Function CHKBIT (I,d_WRD) !                       Check bit flag
!         Called by:               Many routines
!         Calls:                   None
          Logical               :: CHKBIT
          Integer, Intent(In)   :: I
          Integer*8, Intent(In) :: d_WRD
!
          CHKBIT=iAnd(d_WRD,d_MASK(I)).ne.0
          Return
        End Function CHKBIT !        UTILITIES Module - Data Base Engine