[u/mrichter/AliRoot.git] / PYTHIA6 / openDecayTable.F

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