ECTIM0

This routine calculates the time of the event based on ECAL information. It loops over all ECAL modules, and extacts the wire energy and recorded time of the event (from the PEWI bank). ECTIMA is the average of these time, weighted by the wire energy. A 1 GeV minimum is imposed on each module. ECTIML and ECTIMH are the lowest and the highest times. A cut abs(ECTIMA)<100 ns is typical, and is good for rejecting cosmic rays.

You can find this routine in ~schmittm/alpha/lib .

      SUBROUTINE ECTIM0(ECTIMA,ECTIML,ECTIMH)
C=======================================================================
C
C Extract timing information from the ECAL
C
C  1-Nov-1995 M.Schmitt
C 11-Nov-1995 M.Schmitt use weighted average
C-----------------------------------------------------------------------