5 * Revision 1.1.1.1 1996/02/15 17:50:20 mclareni
9 SUBROUTINE UBUNCH (MS,MT,NCHP)
11 C CERN PROGLIB# M409 UBUNCH .VERSION KERNLNX 1.02 940511
12 C ORIG. 03/02/89 K.M.STORR
15 DIMENSION MS(99), MT(99), NCHP(9)
16 data iblan1/x'20202020'/
17 data mask1/x'000000ff'/
21 11 NWT = ishftr (NCH,2)
24 IF (NWT.EQ.0) GO TO 31
26 C-- Pack the initial complete words
30 + AND(MS(JS+1),MASK1),
31 + LSHIFT (AND(MS(JS+2),MASK1), 8)),
32 + LSHIFT (IAND(MS(JS+3),MASK1),16)),
33 + LSHIFT (MS(JS+4), 24) )
36 IF (NTRAIL.EQ.0) RETURN
38 C-- Pack the trailing word
44 MWD = OR (LSHIFT(MWD,8), AND(MS(JS),MASK1))