Merging the VirtualMC branch to the main development branch (HEAD)

[u/mrichter/AliRoot.git] / GEANT321 / gbase / glast.F

diff --git a/GEANT321/gbase/glast.F b/GEANT321/gbase/glast.F
deleted file mode 100644 (file)
index 7d5fb56..0000000
--- a/GEANT321/gbase/glast.F
+++ /dev/null
@@ -1,66 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1995/10/24 10:20:10  cernlib
-* Geant
-*
-*
-#include "geant321/pilot.h"
-*CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
-*-- Author :
-      SUBROUTINE GLAST
-C.
-C.    ******************************************************************
-C.    *                                                                *
-C.    *       TERMINATION ROUTINE                                      *
-C.    *                                                                *
-C.    *    ==>Called by : <USER>, UGLAST                               *
-C.    *       Author    R.Brun  *********                              *
-C.    *                                                                *
-C.    ******************************************************************
-C.
-#include "geant321/gcbank.inc"
-#include "geant321/gcflag.inc"
-#include "geant321/gcunit.inc"
-#include "geant321/gctime.inc"
-C.
-C.    ------------------------------------------------------------------
-C.
-      WRITE (CHMAIL,1000) IEVENT
-      CALL GMAIL(0,0)
-C
-      CALL GRNDMQ(NRNDM(1),NRNDM(2),0,'G')
-C
-      WRITE (CHMAIL,3000) NRNDM
-      CALL GMAIL(0,0)
-C
-C             COMPUTE ONE EVENT PROCESSING TIME
-C
-      IF(IEVENT.GT.0)THEN
-         CALL TIMEL(TIMLFT)
-         XMEAN  = (TIMINT - TIMLFT)/IEVENT
-         WRITE(CHMAIL,4000)XMEAN
-         CALL GMAIL(0,2)
-      ENDIF
-C
-C             Print ZEBRA statistics
-C
-      CALL MZEND
-C
-C             Print statistics
-C
-      IF(JGSTAT.NE.0)CALL GPSTAT
-#if defined(CERNLIB_MONITOR)
-C
-C             Call monitoring routine
-C
-      CALL GEAMON(2,'GLAST')
-#endif
-C
- 1000 FORMAT('1',9X,'**** NUMBER OF EVENTS PROCESSED =',I10)
- 3000 FORMAT(10X,'**** RANDOM NUMBER GENERATOR AFTER'
-     +,' LAST COMPLETE EVENT ',2I12)
- 4000 FORMAT(10X,'**** TIME TO PROCESS ONE EVENT IS =',F10.4,
-     +      ' SECONDS')
-      END