SUBROUTINE S_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: s_keep_results.f,v $
* Revision 1.6  1996/09/04 15:17:33  saw
* (JRA) Make SSNUM_FPTRACK.gt.0 instead of SNTRACKS_FP .gt. 0 the
*       criteria for adding to ntuples
*
* Revision 1.5  1996/01/16 16:42:34  cdaq
* no change
*
* Revision 1.4  1995/08/11 15:43:11  cdaq
* (DD) Add sos sieve slit ntuple
*
* Revision 1.3  1995/07/27  19:43:52  cdaq
* (JRA) Only add to ntuples when we have HNTRACKS_FP > 0
*
* Revision 1.2  1994/04/12  17:29:18  cdaq
* (KBB) Add ntuple call
*
* Revision 1.1  1994/02/04  22:18:31  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 'sos_data_structures.cmn'
*
      character*50 here
      parameter (here= 'S_keep_results')
*
      logical ABORT
      character*(*) err
*
*--------------------------------------------------------
*-chance to flush any statistics, etc.
*
*
      ABORT= .FALSE.
      err= ' '
*
      if(SSNUM_FPTRACK.gt.0) call s_ntuple_keep(ABORT,err)! check for good tracks.
* proceed only if tracks found is greater than zero.   
*
*
      IF(ABORT) THEN
         call G_add_path(here,err)
      ELSE
         err= ' '
      ENDIF
       if(SSNUM_FPTRACK.gt.0)call s_sv_nt_keep(ABORT,err)
*
      IF(ABORT) THEN
         call G_add_path(here,err)
      ELSE
         err= ' '
      ENDIF
*
      RETURN
      END