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