*--------1---------2---------3---------4---------5---------6---------7--

      subroutine NTCLOSE

* initialize NTUPLE
*----------------------------------
      include './Include/ntdata.inc'

* close NTUPLE
*----------------------------------
      if (NTFOUND) then

        call HROUT(IHBK, ICYCLE, ' ')
        call HREND(UNNAM)
        close(LUNHBK)

      end if
      return
      end
