      SUBROUTINE C_clear_event(ABORT,err)
*--------------------------------------------------------
*-       Prototype C analysis routine
*-
*-
*-   Purpose and Methods : clears all COIN quantities before an event
*-                         is processed.
*-
*-
*-   Output: ABORT    - success or failure
*-         : err      - reason for failure, if any
*-
*-   Created  29-Oct-1993   Kevin B. Beard
*-   Modified  6-Dec-1993   K.B.Beard: adopt new errors
* $Log: c_clear_event.f,v $
* Revision 1.5  1999/02/23 16:39:34  csa
* Fixed thinko on last rev
*
* Revision 1.4  1999/02/10 17:44:35  csa
* Added call to c_ntuple_clear
*
* Revision 1.3  1996/01/16 20:59:10  cdaq
* no change
*
* Revision 1.2  1995/05/22 20:50:42  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
*
* Revision 1.1  1994/02/04  21:05:40  cdaq
* Initial revision
*
*-
*- All standards are from "Proposal for Hall C Analysis Software
*- Vade Mecum, Draft 1.0" by D.F.Geesamn and S.Wood, 7 May 1993
*-
*-
*--------------------------------------------------------
      IMPLICIT NONE
      SAVE
*
      character*13 here
      parameter (here= 'C_clear_event')
*
      logical ABORT
      character*(*) err
*
      INCLUDE 'coin_data_structures.cmn'
*
*--------------------------------------------------------
*
      call c_ntuple_clear

      ABORT= .FALSE.
      err= ' '

      RETURN
      END