subroutine b_keep_results(ABORT,err) implicit none save include 'bigcal_data_structures.cmn' include 'b_ntuple.cmn' include 'gen_event_info.cmn' include 'sane_ntuple.cmn' character*14 here parameter(here='b_keep_results') logical abort character*(*) err abort=.false. err=' ' c check whether there is a cluster. c if there is a cluster, then keep the ntuple c$$$ if(BIGCAL_PROT_NCLSTR.gt.0.or.BIGCAL_RCS_NCLSTR.gt.0.or. c$$$ $ BIGCAL_MID_NCLSTR.gt.0) then c$$$ call b_ntuple_keep(ABORT,err,.true.) c$$$ endif c if (gen_event_type .le. 2) return if(bigcal_ntuple_type.eq.1)then if(bigcal_all_nclstr.gt.0!.or.bigcal_nmaxima.gt.0 & ) then call b_ntuple_keep(ABORT,err,.true.) endif else if(bigcal_ntuple_type.eq.2)then call b_ntuple_keep(ABORT,err,.true.) endif if(abort) then call G_add_path(here,err) else err=' ' endif return end