Replacing rindex by strrchr

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

diff --git a/PYTHIA6/openDecayTable.F b/PYTHIA6/openDecayTable.F
index b05b37d1f9c8481ccf152ab4372b4bba2e423988..7ec87fe361055a8539482d5bcdd87e8da1af28eb 100644 (file)
--- a/PYTHIA6/openDecayTable.F
+++ b/PYTHIA6/openDecayTable.F
@@ -1,3 +1,7 @@
+#ifdef __APPLE__
+#define stop CALL EXIT !
+#define STOP CALL EXIT !
+#endif
       SUBROUTINE OPENDECAYTABLE(LUN)
       LOGICAL OPENED,EXISTS
       LOGICAL LRMSCH, LRD1O2, LTRASP
@@ -27,3 +31,7 @@
       OPEN(LUN,FILE=FILNAM,STATUS='OLD')
       RETURN
       END
+      SUBROUTINE CLOSEDECAYTABLE(LUN)
+      CLOSE(LUN)
+      RETURN
+      END