MINICERN/packlib/zebra/fq/fziphm42.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 * fziphm42.inc
  12 *
  13 #if defined(CERNLIB_QMCDC)
  14       IF (IUPAKI.NE.0)             GO TO 44
  15       CALL UPKCH (LQ(LBUF),LQ(L4STAI),NW4IN,IPKVEC)
  16       GO TO 46
  17 #elif defined(CERNLIB_QMCRY)
  18       IF (IUPAKI.NE.0)             GO TO 44
  19       CALL UNPACK (LQ(LBUF),32,LQ(L4STAI),NW4IN)
  20       GO TO 46
  21 #elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
  22       IF (IUPAKI.NE.0)             GO TO 44
  23       CALL UPAK32 (LQ(LBUF),LQ(L4STAI),NW4IN)
  24       GO TO 46
  25 #elif defined(CERNLIB_QMIBMD)
  26       IF (IUPAKI.NE.0)             GO TO 44
  27       CALL UPACK (LQ(LBUF),LQ(L4STAI),NW4IN)
  28       GO TO 46
  29 #elif defined(CERNLIB_QMIRTD)
  30       IF (IUPAKI.NE.0)             GO TO 44
  31       CALL UPACK (LQ(LBUF),LQ(L4STAI),NW4IN)
  32       GO TO 46
  33 #elif 1
  34       IF (IUPAKI.NE.0)             GO TO 44
  35       CALL VXINVC (LQ(LBUF),LQ(L4STAI),NW4IN)
  36       GO TO 46
  37 #endif