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