TestEm3/geant3/src/grun.F

Go to the documentation of this file.

      SUBROUTINE grun
*.
*.    ******************************************************************
*.    *                                                                *
*.    *       Steering routine to process all the events               *
*.    *                                                                *
*.    *    ==>Called by : <USER>, main program                         *
*.    *       Author    R.Brun  *********                              *
*.    *                                                                *
*.    ******************************************************************
*.

#include "geant321/gcbank.inc"
#include "geant321/gcunit.inc"
#include "geant321/gcflag.inc"
#include "geant321/gctime.inc"

      SAVE ifirst
      DATA ifirst/0/
*.
*.    ------------------------------------------------------------------
*.
*             Keep starting time
*
      IF(ifirst.EQ.0)THEN
         ifirst=1
         CALL timel(timint)
      ENDIF
*
   10 IF(ievent.LT.nevent) THEN
         ievent=ievent+1
*
*             Initialises event partition
*
         CALL gtrigi
*    
*             Process one event (trigger)
*
         CALL gtrig
*
*             Clear event partition
*
         CALL gtrigc
*
         IF(ieorun.EQ.0) THEN
*
*             Check time left
*
            go to 10
            IF(itime.LE.0)GO TO 10
            IF(mod(ievent,itime).NE.0)GO TO 10
            CALL timel(timnow)
            IF(timnow.GT.timend)GO TO 10
            WRITE(chmail,10000)timend
            CALL gmail(0,2)
            ieorun = 1
         ENDIF
      ENDIF
*
10000 FORMAT(5x,'***** THE JOB STOPS NOW BECAUSE THE TIME LEFT IS LESS',
     +' THAN     ',f8.3,' SECONDS *****')
      END