openfile.F

   1       SUBROUTINE OPENFILES
   2       CHARACTER*100 CHROOT
   3       CHARACTER*100 FILNAM
   4       LOGICAL EXISTS
   5       CHROOT=' '
   6       CALL GETENVF('ALICE_ROOT',CHROOT)
   7       LNROOT = LNBLNK(CHROOT)
   8       IF(LNROOT.LE.0) THEN
   9          FILNAM='myjob.par'
  10       ELSE
  11          FILNAM=CHROOT(1:LNROOT)//'/ISAJET/data/myjob.par'
  12       ENDIF
  13
  14       INQUIRE(FILE=FILNAM,EXIST=EXISTS)
  15       IF(.NOT.EXISTS) THEN
  16          PRINT*,'**********************************'
  17          PRINT*,'*        I S A J E T             *'
  18          PRINT*,'*        -----------             *'
  19          PRINT*,'*   File myjob.par   not found   *'
  20          PRINT*,'*         Program STOP           *'
  21          PRINT*,'*   Check CERN_ROOT environment  *'
  22          PRINT*,'*           variable             *'
  23          PRINT*,'**********************************'
  24          STOP
  25       ENDIF
  26
  27       OPEN(51, FILE=FILNAM
  28      &, STATUS="OLD",FORM = "FORMATTED")
  29       OPEN(52, FILE="myjob.dat", STATUS="OLD",FORM = "UNFORMATTED")
  30
  31       OPEN(53, FILE="myjob.lis", STATUS="OLD",FORM = "FORMATTED")
  32
  33
  34       FILNAM=CHROOT(1:LNROOT)//'/ISAJET/data/decay.cpp'
  35       INQUIRE(FILE=FILNAM,EXIST=EXISTS)
  36       IF(.NOT.EXISTS) THEN
  37          PRINT*,'**********************************'
  38          PRINT*,'*        I S A J E T             *'
  39          PRINT*,'*        -----------             *'
  40          PRINT*,'*   File decay.cpp   not found   *'
  41          PRINT*,'*         Program STOP           *'
  42          PRINT*,'*   Check CERN_ROOT environment  *'
  43          PRINT*,'*           variable             *'
  44          PRINT*,'**********************************'
  45          STOP
  46       ENDIF
  47
  48       OPEN(54, FILE=FILNAM
  49      &, STATUS="OLD",FORM = "FORMATTED")
  50       RETURN
  51       END