5 * Revision 1.1.1.1 1996/02/15 17:50:24 mclareni
9 SUBROUTINE UBUNCH (MS,MT,NCHP)
11 C CERN PROGLIB# M409 UBUNCH .VERSION KERNVAX 2.39 930112
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 = ishft (NCH,-2)
24 IF (NWT.EQ.0) GO TO 31
26 C-- Pack the initial complete words
29 MT(JT) = IOR (IOR (IOR (
30 + IAND(MS(JS+1),MASK1),
31 + ishft (IAND(MS(JS+2),MASK1), 8)),
32 + ishft (IAND(MS(JS+3),MASK1),16)),
33 + ishft (MS(JS+4), 24) )
36 IF (NTRAIL.EQ.0) RETURN
38 C-- Pack the trailing word
44 MWD = IOR (ishft(MWD,8), IAND(MS(JS),MASK1))