cluster -> TrackPoint

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

diff --git a/PYTHIA6/openDecayTable.F b/PYTHIA6/openDecayTable.F
index 2f71ea131d02be8a366b4d7e81bb5a95043eca19..70003c0650ec98d5cf956af6fabffd967b232a28 100644 (file)
--- a/PYTHIA6/openDecayTable.F
+++ b/PYTHIA6/openDecayTable.F
@@ -1,6 +1,8 @@
 #ifdef __APPLE__
+#ifndef __INTEL_COMPILER
 #define stop CALL EXIT !
 #define STOP CALL EXIT !
+#endif
 #endif
       SUBROUTINE OPENDECAYTABLE(LUN)
       LOGICAL OPENED,EXISTS
@@ -28,7 +30,11 @@
          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)