#include "HepTuple/hbook/pilot.h"
      logical function iscwn(lid)
*
*       Logical function to see if the object referred to by lid is a CWN
*
      implicit none
*
#include "HepTuple/hbook/hcbook.inc"
#include "HepTuple/hbook/hcntpar.inc"
*
      integer  jbit, ibit4, lid
      iscwn = .false.
*
*     Get the zebra link to the structure for the object with ID = lid
*     If hlocat returns 0, there is no such object.
*
      call hlocat(lid,lcid)
      if(lcid.eq.0)  return
*
*     Verify that it really is an ntuple of some sort. If not, bail out.
*
      ibit4 = jbit(iq(lcid+kbits),4)
      if(ibit4.eq.0) return
*
*     We have an ntuple. Dig down into the structure a little and
*     check if the CWN flag is set. Return true if it is.
*
      if(iq(lcid-2).eq.zlink)  iscwn = .true.
*
      return
      end