14 #include "geant321/gcbank.inc"
15 #include "geant321/gcunit.inc"
16 #include "geant321/gcflag.inc"
17 #include "geant321/gctime.inc"
31 10
IF(ievent.LT.
nevent)
THEN
51 IF(itime.LE.0)go to 10
52 IF(
mod(ievent,itime).NE.0)go to 10
54 IF(timnow.GT.timend)go to 10
55 WRITE(chmail,10000)timend
61 10000
FORMAT(5
x,
'***** THE JOB STOPS NOW BECAUSE THE TIME LEFT IS LESS',
62 +
' THAN ',f8.3,
' SECONDS *****')
G4int mod(G4int a, G4int b)