]>
Commit | Line | Data |
---|---|---|
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 | |
13 | LOGICAL EXISTS | |
14 | INTEGER LNROOT | |
15 | INTEGER LNBLNK | |
16 | CHARACTER*1000 FILNAM | |
17 | CHARACTER*1000 CHROOT | |
18 | CHROOT=' ' | |
19 | CALL GETENVF('ALICE_ROOT',CHROOT) | |
20 | LNROOT = LNBLNK(CHROOT) | |
21 | IF(LNROOT.LE.0) THEN | |
22 | FILNAM='dpmjet.dat' | |
23 | ELSE | |
24 | FILNAM=CHROOT(1:LNROOT)//'/DPMJET/dpmjet.dat' | |
25 | ENDIF | |
26 | INQUIRE(FILE=FILNAM,EXIST=EXISTS) | |
27 | IF(.NOT.EXISTS) THEN | |
28 | PRINT*,'***********************************' | |
29 | PRINT*,'* openfile *' | |
30 | PRINT*,'* --------------- *' | |
31 | PRINT*,'* File dpmjet.dat not found *' | |
32 | PRINT*,'* Program STOP *' | |
33 | PRINT*,'* Check ALICE_ROOT environment *' | |
34 | PRINT*,'* variable *' | |
35 | PRINT*,'***********************************' | |
36 | STOP | |
37 | ENDIF | |
38 | OPEN (10, FILE="dpmjet.inp", STATUS="OLD") | |
39 | OPEN (23, FILE=FILNAM, STATUS="OLD") | |
40 | RETURN | |
41 | END |