#include "HepTuple/hbook/pilot.h"
      subroutine bcountcwn(id1,numBlocks)
*.
*.           To count the blocks in an ntuple
*.
*      implicit integer (i-n)
      implicit none
*
      integer id1,numBlocks

#include "HepTuple/hbook/hcntpar.inc"
#include "HepTuple/hbook/hcnt.inc"
#include "HepTuple/hbook/hcflag.inc"
#include "HepTuple/hbook/hcbook.inc"
#include "HepTuple/hbook/hcbits.inc"
#include "HepTuple/hbook/hcunit.inc"
*
      integer idpos, locati, jbit

      id    = id1
      idpos = locati(iq(ltab+1),iq(lcdir+knrh),id)
      if (idpos .le. 0) then
         call hbug('Unknown N-tuple','HPRNT',id1)
         return
      endif
      lcid  = lq(ltab-idpos)
      i4 = jbit(iq(lcid+kbits),4)
      if (i4 .eq. 0) return
      if (iq(lcid-2) .ne. zlink) then
         call hbug('Old N-tuple, print statistics with HPRNTU',
     +             'HPRNT',id)
         return
      endif
*
      numBlocks = 0
*
      lblok = lq(lcid-1)
      if(lblok.eq.0)  return
*
*-- loop over all blocks
*
  5   lname = lq(lblok-1)
      numBlocks = numBlocks + 1
      lblok = lq(lblok)
      if (lblok .ne. 0) goto 5
*
      return
      end