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 |
Powered by ViewCVS 0.9.2-cvsgraph-1.4.0 |