]>
Commit | Line | Data |
---|---|---|
ee7c9a1a | 1 | SUBROUTINE DPMJET_OPENINP() |
2 | * | |
3 | *----------------------------------------------------------------------* | |
4 | * Opens a file with a given unit number | |
5 | * | |
6 | * | |
7 | * IOUNIT: Input unit to be assiged to the file | |
8 | * FILNAM: Name of the file | |
9 | * | |
10 | *----------------------------------------------------------------------* | |
11 | * | |
12 | IMPLICIT NONE | |
f87dab60 | 13 | LOGICAL EXISTS |
14 | INTEGER LNROOT | |
15 | CHARACTER*1000 FILNAM | |
16 | CHARACTER*1000 CHROOT | |
17 | CHROOT=' ' | |
18 | CALL GETENVF('ALICE_ROOT',CHROOT) | |
19 | LNROOT = LNBLNK(CHROOT) | |
20 | IF(LNROOT.LE.0) THEN | |
21 | FILNAM='dpmjet.dat' | |
22 | ELSE | |
23 | FILNAM=CHROOT(1:LNROOT)//'/DPMJET/dpmjet.dat' | |
24 | ENDIF | |
25 | INQUIRE(FILE=FILNAM,EXIST=EXISTS) | |
26 | IF(.NOT.EXISTS) THEN | |
27 | PRINT*,'***********************************' | |
28 | PRINT*,'* openfile *' | |
29 | PRINT*,'* --------------- *' | |
30 | PRINT*,'* File dpmjet.dat not found *' | |
31 | PRINT*,'* Program STOP *' | |
32 | PRINT*,'* Check ALICE_ROOT environment *' | |
33 | PRINT*,'* variable *' | |
34 | PRINT*,'***********************************' | |
35 | STOP | |
36 | ENDIF | |
ee7c9a1a | 37 | OPEN (10, FILE="dpmjet.inp", STATUS="OLD") |
f87dab60 | 38 | OPEN (23, FILE=FILNAM, STATUS="OLD") |
ee7c9a1a | 39 | RETURN |
40 | END |