geant3/src/grun.F

0001
0002       SUBROUTINE GRUN
0003 *.
0004 *.    ******************************************************************
0005 *.    *                                                                *
0006 *.    *       Steering routine to process all the events               *
0007 *.    *                                                                *
0008 *.    *    ==>Called by : <USER>, main program                         *
0009 *.    *       Author    R.Brun  *********                              *
0010 *.    *                                                                *
0011 *.    ******************************************************************
0012 *.
0013
0014 #include "geant321/gcbank.inc"
0015 #include "geant321/gcunit.inc"
0016 #include "geant321/gcflag.inc"
0017 #include "geant321/gctime.inc"
0018
0019       SAVE IFIRST
0020       DATA IFIRST/0/
0021 *.
0022 *.    ------------------------------------------------------------------
0023 *.
0024 *             Keep starting time
0025 *
0026       IF(IFIRST.EQ.0)THEN
0027          IFIRST=1
0028          CALL TIMEL(TIMINT)
0029       ENDIF
0030 *
0031    10 IF(IEVENT.LT.NEVENT) THEN
0032          IEVENT=IEVENT+1
0033 *
0034 *             Initialises event partition
0035 *
0036          CALL GTRIGI
0037 *
0038 *             Process one event (trigger)
0039 *
0040          CALL GTRIG
0041 *
0042 *             Clear event partition
0043 *
0044          CALL GTRIGC
0045 *
0046          IF(IEORUN.EQ.0) THEN
0047 *
0048 *             Check time left
0049 *
0050             go to 10
0051             IF(ITIME.LE.0)GO TO 10
0052             IF(MOD(IEVENT,ITIME).NE.0)GO TO 10
0053             CALL TIMEL(TIMNOW)
0054             IF(TIMNOW.GT.TIMEND)GO TO 10
0055             WRITE(CHMAIL,10000)TIMEND
0056             CALL GMAIL(0,2)
0057             IEORUN = 1
0058          ENDIF
0059       ENDIF
0060 *
0061 10000 FORMAT(5X,'***** THE JOB STOPS NOW BECAUSE THE TIME LEFT IS LESS',
0062      +' THAN     ',F8.3,' SECONDS *****')
0063       END