1 SUBROUTINE DPMJET_OPENINP()
3 *----------------------------------------------------------------------*
4 * Opens a file with a given unit number
7 * IOUNIT: Input unit to be assiged to the file
8 * FILNAM: Name of the file
10 *----------------------------------------------------------------------*
19 CALL GETENVF('ALICE_ROOT',CHROOT)
20 LNROOT = LNBLNK(CHROOT)
24 FILNAM=CHROOT(1:LNROOT)//'/DPMJET/dpmjet.dat'
26 INQUIRE(FILE=FILNAM,EXIST=EXISTS)
28 PRINT*,'***********************************'
30 PRINT*,'* --------------- *'
31 PRINT*,'* File dpmjet.dat not found *'
32 PRINT*,'* Program STOP *'
33 PRINT*,'* Check ALICE_ROOT environment *'
35 PRINT*,'***********************************'
38 OPEN (10, FILE="dpmjet.inp", STATUS="OLD")
39 OPEN (23, FILE=FILNAM, STATUS="OLD")