5 * Revision 1.1.1.1 1996/03/06 10:47:08 mclareni
9 * pack 32-bit words to 60-bit
13 #if defined(CERNLIB_QMCDC)
14 IF (NWFILX.NE.0) NWU = NWR - (32*NWFILX)/60
15 CALL PKCHAR (LQ(LWR),LQ(LWR-1),NWPK,IPKVEC)
17 * pack 32-bit words to 64-bits
21 #elif defined(CERNLIB_QMCRY)
26 CALL PACK (LQ(LWR),32,LQ(LWR),NWPK)
27 * pack 32-bit words to 64-bits
31 #elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
36 CALL PACK32 (LQ(LWR),LQ(LWR),NWPK)
37 * pack 32-bit words to 64-bits
41 #elif defined(CERNLIB_QMIBMD)
46 CALL PACK (LQ(LWR),LQ(LWR),NWPK)
47 * pack 32-bit words to 64-bits
51 #elif defined(CERNLIB_QMIRTD)
56 CALL PACK (LQ(LWR),LQ(LWR),NWPK)
58 CALL VXINVB (LQ(LWR),NWPK)