EffC++ warnings corrected.
[u/mrichter/AliRoot.git] / ISAJET / openfile / 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