5 * Revision 1.1.1.1 1996/02/15 17:50:21 mclareni
9 SUBROUTINE PKBYT (MIV,MBV,JTHP,NINTP,NBITS)
11 C CERN PROGLIB# M422 PKBYT .VERSION KERNSUN 1.06 920511
14 DIMENSION MIV(99), MBV(99), JTHP(9), NINTP(9), NBITS(2)
22 IF (NZB.GT.0) GO TO 11
29 #if defined(CERNLIB_BUGLRSHFT)
30 MASK = ishft (-1, NZB-32)
32 #if !defined(CERNLIB_BUGLRSHFT)
33 MASK = lrshft (-1, 32-NZB)
38 IF (JTH.LT.2) GO TO 21
39 JBV = (JTH-1)/NPWD + 1
40 JPOS = JTH - (JBV-1)*NPWD - 1
41 IF (JPOS.EQ.0) GO TO 21
43 MSKU = LSHIFT (MASK,NL)
52 22 JIVE = MIN0 (NINT,JIVE)
56 IZW = OR (AND(NOT(MSKU),IZW),
57 + AND(MSKU,LSHIFT(MIV(JIV),NL)))
58 IF (JIV.EQ.JIVE) GO TO 27
60 MSKU = LSHIFT (MSKU,NZB)
64 IF (JIV.EQ.NINT) RETURN