MINICERN/packlib/zebra/fq/fziphd42.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 60-bit words to 32-bit
  10 *
  11 * fziphd42.inc
  12 *
  13 #if defined(CERNLIB_QMCDC)
  14       CALL UPKCH (LQ(LIN),LQ(L4STAI),NW4USE,IPKVEC)
  15 *   unpack 64-bit words to 32-bit
  16 *
  17 * fziphd42.inc
  18 *
  19 #elif defined(CERNLIB_QMCRY)
  20       CALL UNPACK (LQ(LIN),32,LQ(L4STAI),NW4USE)
  21 *   unpack 64-bit words to 32-bit
  22 *
  23 * fziphd42.inc
  24 *
  25 #elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
  26       CALL UPAK32 (LQ(LIN),LQ(L4STAI),NW4USE)
  27 *   unpack 64-bit words to 32-bit
  28 *
  29 * fziphd42.inc
  30 *
  31 #elif defined(CERNLIB_QMIBMD)
  32       CALL UPACK (LQ(LIN),LQ(L4STAI),NW4USE)
  33 *   unpack 64-bit words to 32-bit
  34 *
  35 * fziphd42.inc
  36 *
  37 #elif defined(CERNLIB_QMIRTD)
  38       CALL UPACK (LQ(LIN),LQ(L4STAI),NW4USE)
  39 #elif 1
  40       CALL VXINVB (LQ(LIN),NW4USE)
  41 #endif