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 *----------------------------------------------------------------------*
18 CALL GETENVF('ALICE_ROOT',CHROOT)
19 LNROOT = LNBLNK(CHROOT)
23 FILNAM=CHROOT(1:LNROOT)//'/DPMJET/dpmjet.dat'
25 INQUIRE(FILE=FILNAM,EXIST=EXISTS)
27 PRINT*,'***********************************'
29 PRINT*,'* --------------- *'
30 PRINT*,'* File dpmjet.dat not found *'
31 PRINT*,'* Program STOP *'
32 PRINT*,'* Check ALICE_ROOT environment *'
34 PRINT*,'***********************************'
37 OPEN (10, FILE="dpmjet.inp", STATUS="OLD")
38 OPEN (23, FILE=FILNAM, STATUS="OLD")