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