subroutine hec_ntuple_ter
c
c output and delete standard ntuples
c
      implicit none
c
      include 'hec_par.inc'       ! shared parameters
      include 'hec_datacard.inc'  ! datacard values
c
c local variables
c
      integer icycle
c
c output and delete system histograms
c
      call hcdir('//ntuple', ' ')
c
      call hrout(0, icycle, ' ')
      call hdelet(0)
c
c close the system histograms hbook file
c
      call hrend('ntuple')
      close(io_ntp)
c
      end