[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qutil / qutyinv / izhnum.F

      SUBROUTINE IZHNUM (HOLL,INTV,NP)

      INTEGER      INTV(99), HOLL(99)

#include "zebra/q_and.inc"

      DO 39  JWH=1,NP
   39 INTV(JWH) = IAND (HOLL(JWH), 255)
      RETURN
      END
Commit	Line	Data
fe4da5cc	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