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

#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
Commit	Line	Data
0795afa3	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