1. Adding the new histograms TPC z vertex correlation in order

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

diff --git a/PYTHIA6/openDecayTable.F b/PYTHIA6/openDecayTable.F
index b05b37d1f9c8481ccf152ab4372b4bba2e423988..70003c0650ec98d5cf956af6fabffd967b232a28 100644 (file)
--- a/PYTHIA6/openDecayTable.F
+++ b/PYTHIA6/openDecayTable.F
@@ -1,9 +1,15 @@
+#ifdef __APPLE__
+#ifndef __INTEL_COMPILER
+#define stop CALL EXIT !
+#define STOP CALL EXIT !
+#endif
+#endif
       SUBROUTINE OPENDECAYTABLE(LUN)
       LOGICAL OPENED,EXISTS
       LOGICAL LRMSCH, LRD1O2, LTRASP
       INTEGER LUN
-      CHARACTER*100 FILNAM
-      CHARACTER*100 CHROOT
+      CHARACTER*1000 FILNAM
+      CHARACTER*1000 CHROOT
       CHROOT=' '
       CALL GETENVF('ALICE_ROOT',CHROOT)
       LNROOT = LNBLNK(CHROOT)
@@ -24,6 +30,14 @@
          PRINT*,'***********************************'
          STOP
       ENDIF
+#ifdef __GFORTRAN__
+      OPEN(LUN,FILE=FILNAM,STATUS='OLD',ACTION='READ')
+#else
       OPEN(LUN,FILE=FILNAM,STATUS='OLD')
+#endif
+      RETURN
+      END
+      SUBROUTINE CLOSEDECAYTABLE(LUN)
+      CLOSE(LUN)
       RETURN
       END