PYTHIA6/openDecayTable.F

   1       SUBROUTINE OPENDECAYTABLE(LUN)
   2       LOGICAL OPENED,EXISTS
   3       LOGICAL LRMSCH, LRD1O2, LTRASP
   4       INTEGER LUN
   5       CHARACTER*100 FILNAM
   6       CHARACTER*100 CHROOT
   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')
  28       RETURN
  29       END