2 #define stop CALL EXIT !
3 #define STOP CALL EXIT !
5 SUBROUTINE OPENDECAYTABLE(LUN)
7 LOGICAL LRMSCH, LRD1O2, LTRASP
12 CALL GETENVF('ALICE_ROOT',CHROOT)
13 LNROOT = LNBLNK(CHROOT)
15 FILNAM='decaytable.dat'
17 FILNAM=CHROOT(1:LNROOT)//'/data/decaytable.dat'
19 INQUIRE(FILE=FILNAM,EXIST=EXISTS)
21 PRINT*,'***********************************'
22 PRINT*,'* OpenDecayTable *'
23 PRINT*,'* --------------- *'
24 PRINT*,'* File DECAYTABLE.DAT not found *'
25 PRINT*,'* Program STOP *'
26 PRINT*,'* Check ALICE_ROOT environment *'
28 PRINT*,'***********************************'
31 OPEN(LUN,FILE=FILNAM,STATUS='OLD')
34 SUBROUTINE CLOSEDECAYTABLE(LUN)