Analyzer/T20/t_clear_event.f - view

Return to t_clear_event.f CVS log

Up to [HallC] / Analyzer / T20

File: [HallC] / Analyzer / T20 / t_clear_event.f (download)
Revision: 1.1, Tue Dec 1 20:57:37 1998 UTC (25 years, 9 months ago) by saw
Branch: MAIN
CVS Tags: spring03, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, mduality, mar-24-2003, gep_online, gep3, fpi2, emc, e01004, bigcal, baryon, aug-12-2003, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS

Initial revision

      SUBROUTINE T_clear_event(ABORT,err)
*--------------------------------------------------------
*-
*-   Purpose and Methods : clears all T20 quantities before event is processed.
*-
*- 
*-   Output: ABORT		- success or failure
*-         : err	- reason for failure, if any
*- 
*-   Created  22-Jan-1997   Stephen A. Wood
*
* $Log: t_clear_event.f,v $
* Revision 1.1  1998/12/01 20:57:37  saw
* Initial revision
*
*-
*--------------------------------------------------------
      IMPLICIT NONE
      SAVE
*
      character*13 here
      parameter (here= 'T_clear_event')
*
      logical ABORT
      character*(*) err
*
      INCLUDE 't20_data_structures.cmn'
*      INCLUDE 'hms_tracking.cmn'
*      INCLUDE 'hms_statistics.cmn'
*      INCLUDE 'hms_scin_parms.cmn'
*      INCLUDE 'hms_scin_tof.cmn'
*      INCLUDE 'hms_cer_parms.cmn'
*      INCLUDE 'hms_calorimeter.cmn'

*
c      INTEGER plane,tube
*
*--------------------------------------------------------
*
      TMWPC_RAW_TOT_HITS = 0

      THODO_TOT_HITS = 0

      TMISC_TOT_HITS = 0

      TTST_RAW_TOT_HITS = 0


      ABORT= .FALSE.
      err= ' '
      RETURN
      END

Analyzer/Replay: Mark Jones, Documents: Stephen Wood