]>
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 |
29 | END |