1 saw 1.1 SUBROUTINE T_clear_event(ABORT,err)
2 *--------------------------------------------------------
3 *-
4 *- Purpose and Methods : clears all T20 quantities before event is processed.
5 *-
6 *-
7 *- Output: ABORT - success or failure
8 *- : err - reason for failure, if any
9 *-
10 *- Created 22-Jan-1997 Stephen A. Wood
11 *
12 * $Log:$
13 *-
14 *--------------------------------------------------------
15 IMPLICIT NONE
16 SAVE
17 *
18 character*13 here
19 parameter (here= 'T_clear_event')
20 *
21 logical ABORT
22 saw 1.1 character*(*) err
23 *
24 INCLUDE 't20_data_structures.cmn'
25 * INCLUDE 'hms_tracking.cmn'
26 * INCLUDE 'hms_statistics.cmn'
27 * INCLUDE 'hms_scin_parms.cmn'
28 * INCLUDE 'hms_scin_tof.cmn'
29 * INCLUDE 'hms_cer_parms.cmn'
30 * INCLUDE 'hms_calorimeter.cmn'
31
32 *
33 c INTEGER plane,tube
34 *
35 *--------------------------------------------------------
36 *
37 TMWPC_RAW_TOT_HITS = 0
38
39 THODO_TOT_HITS = 0
40
41 TMISC_TOT_HITS = 0
42
43 saw 1.1 TTST_RAW_TOT_HITS = 0
44
45
46 ABORT= .FALSE.
47 err= ' '
48 RETURN
49 END
50
|