SUBROUTINE OPENDECAYTABLE(LUN) LOGICAL OPENED,EXISTS LOGICAL LRMSCH, LRD1O2, LTRASP INTEGER LUN CHARACTER*100 FILNAM #if defined(CERNLIB_LINUX)||defined(CERNLIB_UNIX)||defined(CERNLIB_VAX)||defined(CERNLIB_CRAY)||defined(CERNLIB_LXIA64) CHARACTER*100 CHROOT #endif #if defined(CERNLIB_LINUX) || defined(CERNLIB_UNIX)||defined(CERNLIB_CRAY)||defined(CERNLIB_LXIA64) CHROOT=' ' CALL GETENVF('ALICE_ROOT',CHROOT) LNROOT = LNBLNK(CHROOT) IF(LNROOT.LE.0) THEN FILNAM='decaytable.dat' ELSE FILNAM=CHROOT(1:LNROOT)//'/data/decaytable.dat' ENDIF INQUIRE(FILE=FILNAM,EXIST=EXISTS) IF(.NOT.EXISTS) THEN PRINT*,'***********************************' PRINT*,'* OpenDecayTable *' PRINT*,'* --------------- *' PRINT*,'* File DECAYTABLE.DAT not found *' PRINT*,'* Program STOP *' PRINT*,'* Check ALICE_ROOT environment *' PRINT*,'* variable *' PRINT*,'***********************************' STOP ENDIF OPEN(LUN,FILE=FILNAM,STATUS='OLD') #endif #if defined(CERNLIB_VAX) ISTAT = LIB$SYS_TRNLOG ('ALICE_ROOT',NALL,CHROOT,,,%VAL(0)) IF(ISTAT.NE.1) THEN FILNAM='decaytable.dat' ELSE FILNAM='ALICE_ROOT:[LIB]decaytable.dat' ENDIF INQUIRE(FILE=FILNAM,EXIST=EXISTS) IF(.NOT.EXISTS) THEN PRINT*,'***********************************' PRINT*,'* OpenDecayTable *' PRINT*,'* --------------- *' PRINT*,'* File DECAYTABLE.DAT not found *' PRINT*,'* Program STOP *' PRINT*,'* Check ALICE_ROOT environment *' PRINT*,'* variable *' PRINT*,'***********************************' STOP ENDIF OPEN(LUN,FILE=FILNAM,STATUS='OLD',READONLY) #endif #if defined(CERNLIB_IBM) FILNAM='/DECAYTABLE DAT *' OPEN(LUN,FILE=FILNAM,STATUS='OLD') #endif RETURN END