Analyzer/HTRACKING/h_init_cer.f - view

Return to h_init_cer.f CVS log

Up to [HallC] / Analyzer / HTRACKING

File: [HallC] / Analyzer / HTRACKING / h_init_cer.f (download)
Revision: 1.1, Thu Aug 31 13:53:56 1995 UTC (29 years ago) by cdaq
Branch: MAIN
CVS Tags: spring03, sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, nov2696, mduality, mar-24-2003, jan2496, jan1896, jan1796, gep_online, gep3, fpi2, emc, e01004, dec0198, bigcal, baryon, aug-12-2003, apr3096, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS

Initial revision


      subroutine h_init_cer(ABORT,err)

*-------------------------------------------------------------------
*
* author: Chris Cothran
* created: 5/25/95
*
* h_init_cer initializes parameters relevant to the HMS Cerenkov.
* $Log: h_init_cer.f,v $
* Revision 1.1  1995/08/31 14:53:56  cdaq
* Initial revision
*
*-------------------------------------------------------------------

      implicit none

      include 'hms_cer_parms.cmn'

      logical abort
      character*(*) err
      character*20 here
      parameter (here='h_init_cer')

      integer*4 ii

      save

      do ii = 1, hcer_num_regions
        hcer_track_counter(ii) = 0
        hcer_fired_counter(ii) = 0
      enddo

      return
      end

Analyzer/Replay: Mark Jones, Documents: Stephen Wood