message: decaytable: first try to use local version
diff: INTEGER LUN
  CHARACTER*1000 FILNAM
  CHARACTER*1000 CHROOT
  + FILNAM='decaytable.dat'
  + INQUIRE(FILE=FILNAM,EXIST=EXISTS)
  + IF(.NOT.EXISTS) THEN
  + PRINT*,'***********************************'
  + PRINT*,'* OpenDecayTable *'
  + PRINT*,'* --------------- *'
  + PRINT*,'* USE ALIROOT decaytable *'
  + PRINT*,'***********************************'
  CHROOT=' '
  CALL GETENVF('ALICE_ROOT',CHROOT)
  LNROOT = LNBLNK(CHROOT)
  PRINT*,'***********************************'
  STOP
  ENDIF
  + ELSE
  + PRINT*,'***********************************'
  + PRINT*,'* OpenDecayTable *'
  + PRINT*,'* --------------- *'
  + PRINT*,'* USE LOCAL decaytable in PWD *'
  + PRINT*,'***********************************'
  + ENDIF
  +
  #ifdef __GFORTRAN__
  OPEN(LUN,FILE=FILNAM,STATUS='OLD',ACTION='READ')
  #else
  