MINICERN/packlib/zebra/fq/fziphr42.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:09  mclareni
   6 * Zebra
   7 *
   8 *
   9 *   unpack n-bit words to 32-bit
  10 *
  11 * fziphr42.inc
  12 *
  13 #if defined(CERNLIB_QMCDC)
  14    42 CALL UPKCH (LQ(LIN),LQ(L4STAI),NW4USE,IPKVEC)
  15 #elif defined(CERNLIB_QMCRY)
  16    42 CALL UNPACK (LQ(LIN),32,LQ(L4STAI),NW4USE)
  17 #elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
  18    42 CALL UPAK32 (LQ(LIN),LQ(L4STAI),NW4USE)
  19 #elif defined(CERNLIB_QMIBMD)
  20    42 CALL UPACK (LQ(LIN),LQ(L4STAI),NW4USE)
  21 #elif defined(CERNLIB_QMIRTD)
  22    42 CALL UPACK (LQ(LIN),LQ(L4STAI),NW4USE)
  23 #elif 1
  24       NSWDON = 0
  25    42 CALL VXINVB (LQ(LIN+NSWDON),NW4USE-NSWDON)
  26       NSWDON = NW4USE
  27 #endif