5 * Revision 1.1.1.1 1996/02/15 17:50:21 mclareni
9 SUBROUTINE SBYTOR (MZ,IZW,IZP,NZB)
11 C CERN PROGLIB# M421 SBYTOR .VERSION KERNSUN 1.06 920511
15 #if defined(CERNLIB_BUGLRSHFT)
16 IZW = OR (IZW, LSHIFT (AND(ishft(-1,NZB-32),MZ), IZP-1))
18 #if !defined(CERNLIB_BUGLRSHFT)
19 IZW = OR (IZW, LSHIFT (AND(lrshft(-1,32-NZB),MZ), IZP-1))