MINICERN/packlib/zebra/qutil/qutyinv/izhnum.F

   1       SUBROUTINE IZHNUM (HOLL,INTV,NP)
   2
   3       INTEGER      INTV(99), HOLL(99)
   4
   5 #include "zebra/q_and.inc"
   6
   7       DO 39  JWH=1,NP
   8    39 INTV(JWH) = IAND (HOLL(JWH), 255)
   9       RETURN
  10       END