GEANT321/gbase/glast.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:10  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GLAST
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       TERMINATION ROUTINE                                      *
  17 C.    *                                                                *
  18 C.    *    ==>Called by : <USER>, UGLAST                               *
  19 C.    *       Author    R.Brun  *********                              *
  20 C.    *                                                                *
  21 C.    ******************************************************************
  22 C.
  23 #include "geant321/gcbank.inc"
  24 #include "geant321/gcflag.inc"
  25 #include "geant321/gcunit.inc"
  26 #include "geant321/gctime.inc"
  27 C.
  28 C.    ------------------------------------------------------------------
  29 C.
  30       WRITE (CHMAIL,1000) IEVENT
  31       CALL GMAIL(0,0)
  32 C
  33       CALL GRNDMQ(NRNDM(1),NRNDM(2),0,'G')
  34 C
  35       WRITE (CHMAIL,3000) NRNDM
  36       CALL GMAIL(0,0)
  37 C
  38 C             COMPUTE ONE EVENT PROCESSING TIME
  39 C
  40       IF(IEVENT.GT.0)THEN
  41          CALL TIMEL(TIMLFT)
  42          XMEAN  = (TIMINT - TIMLFT)/IEVENT
  43          WRITE(CHMAIL,4000)XMEAN
  44          CALL GMAIL(0,2)
  45       ENDIF
  46 C
  47 C             Print ZEBRA statistics
  48 C
  49       CALL MZEND
  50 C
  51 C             Print statistics
  52 C
  53       IF(JGSTAT.NE.0)CALL GPSTAT
  54 #if defined(CERNLIB_MONITOR)
  55 C
  56 C             Call monitoring routine
  57 C
  58       CALL GEAMON(2,'GLAST')
  59 #endif
  60 C
  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,
  65      +      ' SECONDS')
  66       END