Bug in MUONTestTrigger
[u/mrichter/AliRoot.git] / PYTHIA6 / openDecayTable.F
CommitLineData
e2dc8e65 1 SUBROUTINE OPENDECAYTABLE(LUN)
2 LOGICAL OPENED,EXISTS
3 LOGICAL LRMSCH, LRD1O2, LTRASP
4 INTEGER LUN
5 CHARACTER*100 FILNAM
e2dc8e65 6 CHARACTER*100 CHROOT
e2dc8e65 7 CHROOT=' '
8 CALL GETENVF('ALICE_ROOT',CHROOT)
9 LNROOT = LNBLNK(CHROOT)
10 IF(LNROOT.LE.0) THEN
11 FILNAM='decaytable.dat'
12 ELSE
13 FILNAM=CHROOT(1:LNROOT)//'/data/decaytable.dat'
14 ENDIF
15 INQUIRE(FILE=FILNAM,EXIST=EXISTS)
16 IF(.NOT.EXISTS) THEN
17 PRINT*,'***********************************'
18 PRINT*,'* OpenDecayTable *'
19 PRINT*,'* --------------- *'
20 PRINT*,'* File DECAYTABLE.DAT not found *'
21 PRINT*,'* Program STOP *'
22 PRINT*,'* Check ALICE_ROOT environment *'
23 PRINT*,'* variable *'
24 PRINT*,'***********************************'
25 STOP
26 ENDIF
27 OPEN(LUN,FILE=FILNAM,STATUS='OLD')
e2dc8e65 28 RETURN
29 END