5 * Revision 1.1.1.1 1996/02/15 17:49:58 mclareni
9 FUNCTION LOCBYT (IT,IA,N,NW,LA,NBITS)
11 C CERN PROGLIB# M428 LOCBYT .VERSION KERNSUN 1.06 920511
18 #if defined(CERNLIB_BUGLRSHFT)
19 MASK = LSHIFT (ishft(-1,-32+NBITS),LA-1)
21 #if !defined(CERNLIB_BUGLRSHFT)
22 MASK = LSHIFT (lrshft(-1,32-NBITS),LA-1)
24 ITSH = LSHIFT (IT,LA-1)
27 IF (AND(IA(J),MASK).EQ.ITSH) GO TO 21