subroutine s_init_cer(ABORT,err) *------------------------------------------------------------------- * * author: Chris Cothran * created: 5/25/95 * * s_init_cer initializes parameters relevant to the SOS Cerenkov. * $Log: s_init_cer.f,v $ * Revision 1.1 1995/08/31 15:05:05 cdaq * Initial revision * *------------------------------------------------------------------- implicit none include 'sos_cer_parms.cmn' logical abort character*(*) err character*20 here parameter (here='s_init_cer') integer*4 ii save do ii = 1, scer_num_regions scer_track_counter(ii) = 0 scer_fired_counter(ii) = 0 enddo return end