SUBROUTINE H_CER_EFF_SHUTDOWN(lunout,ABORT,errmsg) *-------------------------------------------------------- * * Purpose and Methods: Output Cerenkov efficiency information * * Required Input BANKS: HMS_CER_DIAGNOSTICS * * Output: ABORT - success or failure * : err - reason for failure, if any * * author: Chris Cothran * created: 5/25/95 * $Log: h_cer_eff_shutdown.f,v $ * Revision 1.1 1995/08/31 14:54:31 cdaq * Initial revision * *-------------------------------------------------------- IMPLICIT NONE * character*18 here parameter (here= 'H_CER_EFF_SHUTDOWN') * logical ABORT character*(*) errmsg * INCLUDE 'hms_data_structures.cmn' INCLUDE 'hms_cer_parms.cmn' integer*4 lunout integer*4 nr logical written_header save written_header = .false. !haven't done the header yet do nr = 1, hcer_num_regions if (hcer_track_counter(nr) .gt. hcer_min_counts) then hcer_region_eff(nr) = float(hcer_fired_counter(nr)) > /float(hcer_track_counter(nr)) else hcer_region_eff(nr) = 1.0 c write (lunout,'(A,I1,A)') c > 'Warning: Not enough counts for HMS Cerenkov efficiency c > measurement in Region #',nr,'.' endif if (hcer_region_eff(nr) .lt. hcer_min_eff) then if (.not.written_header) then write(lunout,*) write(lunout,'(a,f6.3)') ' HMS cerenkov regions with effic. < ',hcer_min_eff endif write (lunout,'(2x,a,i1,a,f7.4)') 'region ',nr,' has eff = ', & hcer_region_eff(nr) c write (lunout,'(A,I1,A,F7.5,A)') c > 'Warning: Efficiency of HMS Cerekov Region #',nr,' is ', c > hcer_region_eff(nr),'.' endif enddo return end