Removing non-supported platforms: VAX,CRAY,etc.
[u/mrichter/AliRoot.git] / 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