MINICERN/packlib/zebra/fq/fzudat44.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:08  mclareni
   6 * Zebra
   7 *
   8 *
   9 *   pack 32-bit words to 60-bit
  10 *
  11 * fzudat44.inc
  12 *
  13 #if defined(CERNLIB_QMCDC)
  14       CALL PKCHAR (LQ(LWR),LQ(LWR-1),MAXREX,IPKVEC)
  15       LWR  = LWR - 1
  16 #elif defined(CERNLIB_QMCRY)
  17       CALL PACK (LQ(LWR),32,LQ(LWR),MAXREX)
  18 #elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
  19       CALL PACK32 (LQ(LWR),LQ(LWR),MAXREX)
  20 #elif defined(CERNLIB_QMIBMD)
  21       CALL PACK (LQ(LWR),LQ(LWR),MAXREX)
  22 #elif defined(CERNLIB_QMIRTD)
  23       CALL PACK (LQ(LWR),LQ(LWR),MAXREX)
  24 #elif 1
  25       CALL VXINVB (LQ(LWR),24)
  26 #endif