Line | |
---|
1 | |
---|
2 | SUBROUTINE GRUN |
---|
3 | *. |
---|
4 | *. ****************************************************************** |
---|
5 | *. * * |
---|
6 | *. * Steering routine to process all the events * |
---|
7 | *. * * |
---|
8 | *. * ==>Called by : <USER>, main program * |
---|
9 | *. * Author R.Brun ********* * |
---|
10 | *. * * |
---|
11 | *. ****************************************************************** |
---|
12 | *. |
---|
13 | |
---|
14 | #include "geant321/gcbank.inc" |
---|
15 | #include "geant321/gcunit.inc" |
---|
16 | #include "geant321/gcflag.inc" |
---|
17 | #include "geant321/gctime.inc" |
---|
18 | |
---|
19 | SAVE IFIRST |
---|
20 | DATA IFIRST/0/ |
---|
21 | *. |
---|
22 | *. ------------------------------------------------------------------ |
---|
23 | *. |
---|
24 | * Keep starting time |
---|
25 | * |
---|
26 | IF(IFIRST.EQ.0)THEN |
---|
27 | IFIRST=1 |
---|
28 | CALL TIMEL(TIMINT) |
---|
29 | ENDIF |
---|
30 | * |
---|
31 | 10 IF(IEVENT.LT.NEVENT) THEN |
---|
32 | IEVENT=IEVENT+1 |
---|
33 | * |
---|
34 | * Initialises event partition |
---|
35 | * |
---|
36 | CALL GTRIGI |
---|
37 | * |
---|
38 | * Process one event (trigger) |
---|
39 | * |
---|
40 | CALL GTRIG |
---|
41 | * |
---|
42 | * Clear event partition |
---|
43 | * |
---|
44 | CALL GTRIGC |
---|
45 | * |
---|
46 | IF(IEORUN.EQ.0) THEN |
---|
47 | * |
---|
48 | * Check time left |
---|
49 | * |
---|
50 | go to 10 |
---|
51 | IF(ITIME.LE.0)GO TO 10 |
---|
52 | IF(MOD(IEVENT,ITIME).NE.0)GO TO 10 |
---|
53 | CALL TIMEL(TIMNOW) |
---|
54 | IF(TIMNOW.GT.TIMEND)GO TO 10 |
---|
55 | WRITE(CHMAIL,10000)TIMEND |
---|
56 | CALL GMAIL(0,2) |
---|
57 | IEORUN = 1 |
---|
58 | ENDIF |
---|
59 | ENDIF |
---|
60 | * |
---|
61 | 10000 FORMAT(5X,'***** THE JOB STOPS NOW BECAUSE THE TIME LEFT IS LESS', |
---|
62 | +' THAN ',F8.3,' SECONDS *****') |
---|
63 | END |
---|
Note: See
TracBrowser
for help on using the repository browser.