5 * Revision 1.1.1.1 1996/02/15 17:50:20 mclareni
9 SUBROUTINE CBYT (MZ,IZQ,IZW,IZP,NZB)
11 C CERN PROGLIB# M421 CBYT .VERSION KERNSUN 1.06 920511
15 #if defined(CERNLIB_BUGLRSHFT)
17 + NOT(LSHIFT (ishft(NOT(0),NZB-32), IZP-1)))
18 +, ishft (LSHIFT(ishft(MZ,1-IZQ),32-NZB),-33+IZP+NZB) )
20 #if !defined(CERNLIB_BUGLRSHFT)
22 + NOT(LSHIFT (lrshft(NOT(0),32-NZB), IZP-1)))
23 +, lrshft (LSHIFT(lrshft(MZ,IZQ-1),32-NZB), 33-IZP-NZB) )