5 * Revision 1.1.1.1 1995/10/24 10:20:10 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
14 C. ******************************************************************
16 C. * TERMINATION ROUTINE *
18 C. * ==>Called by : <USER>, UGLAST *
19 C. * Author R.Brun ********* *
21 C. ******************************************************************
23 #include "geant321/gcbank.inc"
24 #include "geant321/gcflag.inc"
25 #include "geant321/gcunit.inc"
26 #include "geant321/gctime.inc"
28 C. ------------------------------------------------------------------
30 WRITE (CHMAIL,1000) IEVENT
33 CALL GRNDMQ(NRNDM(1),NRNDM(2),0,'G')
35 WRITE (CHMAIL,3000) NRNDM
38 C COMPUTE ONE EVENT PROCESSING TIME
42 XMEAN = (TIMINT - TIMLFT)/IEVENT
43 WRITE(CHMAIL,4000)XMEAN
47 C Print ZEBRA statistics
53 IF(JGSTAT.NE.0)CALL GPSTAT
54 #if defined(CERNLIB_MONITOR)
56 C Call monitoring routine
58 CALL GEAMON(2,'GLAST')
61 1000 FORMAT('1',9X,'**** NUMBER OF EVENTS PROCESSED =',I10)
62 3000 FORMAT(10X,'**** RANDOM NUMBER GENERATOR AFTER'
63 +,' LAST COMPLETE EVENT ',2I12)
64 4000 FORMAT(10X,'**** TIME TO PROCESS ONE EVENT IS =',F10.4,