First commit.

[u/mrichter/AliRoot.git] / ISAJET / code / isaend.F

diff --git a/ISAJET/code/isaend.F b/ISAJET/code/isaend.F
new file mode 100644 (file)
index 0000000..5011e1f
--- /dev/null
+++ b/ISAJET/code/isaend.F
@@ -0,0 +1,14 @@
+#include "isajet/pilot.h"
+      SUBROUTINE ISAEND
+C----------------------------------------------------------------------
+C-
+C-   Purpose and Methods : 
+C-       Terminate an ISAJET run
+C-
+C-   Created   4-FEB-1988   Serban D. Protopopescu
+C-
+C----------------------------------------------------------------------
+      CALL TIMER(2)
+      CALL GETTOT(.TRUE.)
+  999 RETURN
+      END