ISAJET/code/isaend.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE ISAEND
   3 C----------------------------------------------------------------------
   4 C-
   5 C-   Purpose and Methods :
   6 C-       Terminate an ISAJET run
   7 C-
   8 C-   Created   4-FEB-1988   Serban D. Protopopescu
   9 C-
  10 C----------------------------------------------------------------------
  11       CALL TIMER(2)
  12       CALL GETTOT(.TRUE.)
  13   999 RETURN
  14       END