SUBROUTINE S_CER_EFF_SHUTDOWN(lunout,ABORT,errmsg)

*--------------------------------------------------------
*
*   Purpose and Methods: Output Cerenkov efficiency information
*
*  Required Input BANKS: SOS_CER_DIAGNOSTICS
*
*                Output: ABORT           - success or failure
*                      : err             - reason for failure, if any
* 
* author: Chris Cothran
* created: 5/25/95
* $Log: s_cer_eff_shutdown.f,v $
* Revision 1.1  1995/08/31 15:04:56  cdaq
* Initial revision
*
*--------------------------------------------------------

      IMPLICIT NONE
*
      character*18 here
      parameter (here= 'S_CER_EFF_SHUTDOWN')
*
      logical ABORT
      character*(*) errmsg
*
      INCLUDE 'sos_data_structures.cmn'
      INCLUDE 'sos_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, scer_num_regions
        if (scer_track_counter(nr) .gt. scer_min_counts) then
          scer_region_eff(nr) = float(scer_fired_counter(nr))
     >                         /float(scer_track_counter(nr))
        else
          scer_region_eff(nr) = 1.0
c          write (lunout,'(A,I1,A)')
c     >      'Warning: Not enough counts for SOS Cerenkov efficiency
c     > measurement in Region #',nr,'.'
        endif
        if (scer_region_eff(nr) .lt. scer_min_eff) then
          if (.not.written_header) then
            write(lunout,*)
            write(lunout,'(a,f6.3)') ' SOS cerenkov regions with effic. < ',scer_min_eff
          endif
          write (lunout,'(2x,a,i1,a,f7.4)') 'region ',nr,' has eff = ',
     &         scer_region_eff(nr)
c          write (lunout,'(A,I1,A,F7.5,A)')
c     >      'Warning: Efficiency of SOS Cerekov Region #',nr,' is ',
c    >      scer_region_eff(nr),'.'
        endif
      enddo

      return
      end