Removing non-supported platforms: VAX,CRAY,etc.

diff --git a/PYTHIA6/openDecayTable.F b/PYTHIA6/openDecayTable.F
index 081c12de81836de5a12e7c690754aaf3e8b6f216..b05b37d1f9c8481ccf152ab4372b4bba2e423988 100644 (file)
--- a/PYTHIA6/openDecayTable.F
+++ b/PYTHIA6/openDecayTable.F
@@ -3,10 +3,7 @@
       LOGICAL LRMSCH, LRD1O2, LTRASP
       INTEGER LUN
       CHARACTER*100 FILNAM
       LOGICAL LRMSCH, LRD1O2, LTRASP
       INTEGER LUN
       CHARACTER*100 FILNAM

-#if defined(CERNLIB_LINUX)||defined(CERNLIB_UNIX)||defined(CERNLIB_VAX)||defined(CERNLIB_CRAY)||defined(CERNLIB_LXIA64)

       CHARACTER*100 CHROOT
       CHARACTER*100 CHROOT

-#endif
-#if defined(CERNLIB_LINUX) || defined(CERNLIB_UNIX)||defined(CERNLIB_CRAY)||defined(CERNLIB_LXIA64)

       CHROOT=' '
       CALL GETENVF('ALICE_ROOT',CHROOT)
       LNROOT = LNBLNK(CHROOT)
       CHROOT=' '
       CALL GETENVF('ALICE_ROOT',CHROOT)
       LNROOT = LNBLNK(CHROOT)


@@ -28,31 +25,5 @@
          STOP
       ENDIF
       OPEN(LUN,FILE=FILNAM,STATUS='OLD')
          STOP
       ENDIF
       OPEN(LUN,FILE=FILNAM,STATUS='OLD')

-#endif
-#if defined(CERNLIB_VAX)
-      ISTAT = LIB$SYS_TRNLOG ('ALICE_ROOT',NALL,CHROOT,,,%VAL(0))
-      IF(ISTAT.NE.1) THEN
-         FILNAM='decaytable.dat'
-      ELSE
-         FILNAM='ALICE_ROOT:[LIB]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',READONLY)
-#endif
-#if defined(CERNLIB_IBM)
-      FILNAM='/DECAYTABLE DAT *'
-      OPEN(LUN,FILE=FILNAM,STATUS='OLD')
-#endif

       RETURN
       END
       RETURN
       END