MINICERN/packlib/zebra/fq/fzophr22.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 * fzophr22.inc
  12 *
  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)
  16       LWR  = LWR - 1
  17 *   pack 32-bit words to 64-bits
  18 *
  19 * fzophr22.inc
  20 *
  21 #elif defined(CERNLIB_QMCRY)
  22       IF (NWFILX.NE.0)  THEN
  23           NWU  = (NWPK+1) / 2
  24           NWPK =  NWU * 2
  25         ENDIF
  26       CALL PACK (LQ(LWR),32,LQ(LWR),NWPK)
  27 *   pack 32-bit words to 64-bits
  28 *
  29 * fzophr22.inc
  30 *
  31 #elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
  32       IF (NWFILX.NE.0)  THEN
  33           NWU  = (NWPK+1) / 2
  34           NWPK =  NWU * 2
  35         ENDIF
  36       CALL PACK32 (LQ(LWR),LQ(LWR),NWPK)
  37 *   pack 32-bit words to 64-bits
  38 *
  39 * fzophr22.inc
  40 *
  41 #elif defined(CERNLIB_QMIBMD)
  42       IF (NWFILX.NE.0)  THEN
  43           NWU  = (NWPK+1) / 2
  44           NWPK =  NWU * 2
  45         ENDIF
  46       CALL PACK (LQ(LWR),LQ(LWR),NWPK)
  47 *   pack 32-bit words to 64-bits
  48 *
  49 * fzophr22.inc
  50 *
  51 #elif defined(CERNLIB_QMIRTD)
  52       IF (NWFILX.NE.0)  THEN
  53           NWU  = (NWPK+1) / 2
  54           NWPK =  NWU * 2
  55         ENDIF
  56       CALL PACK (LQ(LWR),LQ(LWR),NWPK)
  57 #elif 1
  58       CALL VXINVB (LQ(LWR),NWPK)
  59 #endif