Provide return value (solarisCC5)
[u/mrichter/AliRoot.git] / DPMJET / openfile.f
CommitLineData
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