SUBROUTINE S_DC_EFF(ABORT,errmsg)
*--------------------------------------------------------
*-
*-   Purpose and Methods : Analyze scintillator information for each track 
*-
*-      Required Input BANKS     SOS_STATISTICS
*-                               GEN_DATA_STRUCTURES
*-
*-   Output: ABORT           - success or failure
*-         : err             - reason for failure, if any
*- 
* author: John Arrington
* created: 8/17/95
*
* s_dc_eff calculates efficiencies for the drift chambers.
*
* $Log: s_dc_eff.f,v $
* Revision 1.1  1995/08/31 15:07:28  cdaq
* Initial revision
*
*--------------------------------------------------------
      IMPLICIT NONE
*
      character*8 here
      parameter (here= 'S_DC_EFF')
*
      logical ABORT
      character*(*) errmsg
*
      INCLUDE 'sos_data_structures.cmn'
      INCLUDE 'gen_constants.par'
      INCLUDE 'gen_units.par'
      include 'sos_statistics.cmn'
      include 'sos_tracking.cmn'

      integer*4 ind

      save

      sdc_tot_events = sdc_tot_events + 1
      do ind = 1 , sdc_num_planes
        if (sdc_hits_per_plane(ind).gt.0) sdc_events(ind)=sdc_events(ind)+1
      enddo

      if (sdc_hits_per_plane(1)+sdc_hits_per_plane(2)+sdc_hits_per_plane(3)
     &   +sdc_hits_per_plane(4)+sdc_hits_per_plane(5)+sdc_hits_per_plane(6)
     &    .ne. 0)   sdc_cham_hits(1) = sdc_cham_hits(1) + 1

      if (sdc_hits_per_plane( 7)+sdc_hits_per_plane( 8)+sdc_hits_per_plane( 9)
     &   +sdc_hits_per_plane(10)+sdc_hits_per_plane(11)+sdc_hits_per_plane(12)
     &    .ne. 0)   sdc_cham_hits(2) = sdc_cham_hits(2) + 1

      return
      end