SUBROUTINE H_keep_results(ABORT,err)
*--------------------------------------------------------
*-       Prototype C analysis routine
*-
*-
*-   Purpose and Methods : Keeps statistics, etc.
*- 
*-   Output: ABORT	- success or failure
*-         : err	- reason for failure, if any
*- 
*-   Created  20-Nov-1993   Kevin B. Beard for new error standards
*
* $Log: h_keep_results.f,v $
* Revision 1.6.24.3.2.2  2009/06/05 17:53:25  jones
* Include call to fill bigcal ntuple. Needed for coincidence runs.
*
* Revision 1.6.24.3.2.1  2009/01/16 18:47:11  cdaq
* *** empty log message ***
*
* Revision 1.6.24.3  2007/09/12 14:40:03  brash
* *** empty log message ***
*
* Revision 1.6.24.2  2007/09/11 19:14:17  frw
* fixed FPP related arrays and limits
*
* Revision 1.6.24.1  2007/08/22 19:09:17  frw
* added FPP
*
* Revision 1.7  frw
* added FPP call
*
* Revision 1.6  1996/09/04 14:42:14  saw
* (JRA) Make HSNUM_FPTRACK.gt.0 instead of HNTRACKS_FP .gt. 0 the
*       criteria for adding to ntuples
*
* Revision 1.5  1996/01/16 17:03:06  cdaq
* no change
*
* Revision 1.4  1995/07/27 19:40:29  cdaq
* (JRA) Only add to ntuples when we have HNTRACKS_FP > 0
*
* Revision 1.3  1995/01/27  20:14:51  cdaq
* (SAW) Add call to sieve slit ntuple keep routine
*
* Revision 1.2  1994/04/12  17:21:58  cdaq
* (KBB) Add ntuple call
*
* Revision 1.1  1994/02/04  22:17:38  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
*
      include 'gen_detectorids.par'
      include 'gen_decode_common.cmn'
      include 'hms_data_structures.cmn'
      INCLUDE 'hms_fpp_params.cmn'
      INCLUDE 'hms_fpp_event.cmn'
      include 'bigcal_data_structures.cmn'
*
      character*50 here
      parameter (here= 'H_keep_results')
*
      logical ABORT
      character*(*) err
*
*--------------------------------------------------------
*-chance to flush any statistics, etc.
*
*
      ABORT= .FALSE.
      err= ' '
*
      if(bigcal_all_nclstr.gt.0) call b_ntuple_keep(ABORT,err,.false.)
      if(HSNUM_FPTRACK.gt.0)         call h_ntuple_keep(ABORT,err)! check for good tracks
*
      IF(ABORT) THEN
         call G_add_path(here,err)
      ELSE
         err= ' '
      ENDIF
*
*
c      write(*,*)'Calling h_fpp_nt_keep:',HFPP_eventclass,HFPP_min_event_code
      if (HFPP_eventclass.ge.HFPP_min_event_code) call h_fpp_nt_keep(ABORT,err)
*
      IF(ABORT) THEN
         call G_add_path(here,err)
      ELSE
         err= ' '
      ENDIF
*
* Need to fix up the bloody error reporting
*
      if(HSNUM_FPTRACK.gt.0)call h_sv_nt_keep(ABORT,err) ! at least one track
*
      IF(ABORT) THEN
         call G_add_path(here,err)
      ELSE
         err= ' '
      ENDIF
*
      RETURN
      END