MINICERN/packlib/zebra/fq/fzicxd1.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 *   no longer needed
  10 *
  11 * fzicxd1.inc
  12 *
  13 #if defined(CERNLIB_QMCDC)
  14       PARAMETER    (JEXMIN = -975,  JEXMAX=1023)
  15       PARAMETER    (IBADMS = O"17770000000000000000")
  16       PARAMETER    (IOVPMS = O"37774000000000000000")
  17       PARAMETER    (IOVNMS = O"40003777777777777777")
  18       PARAMETER    (IBADMD = IBADMS, IBADME = 0)
  19       PARAMETER    (IOVPMD = IOVPMS, IOVNMD = IOVNMS)
  20 #endif
  21 *   no longer needed
  22 *
  23 * fzicxd1.inc
  24 *
  25 #if defined(CERNLIB_QMIBM)
  26       PARAMETER    (JEXMIN = -259,  JEXMAX=251)
  27 C     PARAMETER    (IOVPMS =   Z 7FFFFFF0)
  28       PARAMETER    (IOVPMS = 2147 483 632)
  29 C     PARAMETER    (IOVNMS =   Z FFFFFFF0)
  30       PARAMETER    (IOVNMS = -16)
  31       PARAMETER    (IBADMD = IBADMS, IBADME = 0)
  32       PARAMETER    (IOVPMD = IOVPMS, IOVNMD = IOVNMS)
  33 #endif
  34 *   no longer needed
  35 *
  36 * fzicxd1.inc
  37 *
  38 #if defined(CERNLIB_QMIBMD)
  39       PARAMETER    (JEXMIN = -259,  JEXMAX=251)
  40 C     PARAMETER    (IOVPMS =   Z 7FFFFFF0)
  41       PARAMETER    (IOVPMS = 2147 483 632)
  42 C     PARAMETER    (IOVNMS =   Z FFFFFFF0)
  43       PARAMETER    (IOVNMS = -16)
  44       PARAMETER    (IBADMD = IBADMS, IBADME = 0)
  45       PARAMETER    (IOVPMD = IOVPMS, IOVNMD = IOVNMS)
  46 #endif
  47 *   no longer needed
  48 *
  49 * fzicxd1.inc
  50 *
  51 #if defined(CERNLIB_QMND3)
  52       PARAMETER    (JEXMIN = -255,  JEXMAX=253)
  53       PARAMETER    (IOVPMS = 17777777770 B)
  54       PARAMETER    (IOVNMS = 37777777770 B)
  55       PARAMETER    (IBADMD = IBADMS, IBADME = 0)
  56       PARAMETER    (IOVPMD = IOVPMS, IOVNMD = IOVNMS)
  57 #endif
  58 *    use default CALL IE3TOS for input single prec.
  59 #ifndef CERNLIB_FQIE3TSC
  60 #endif
  61 *    use default CALL IE3TOD for input double prec.
  62 #ifndef CERNLIB_FQIE3TDC
  63 #endif
  64 *    --------------  sequences for FZMACH  ---------------------
  65 *   no longer needed
  66 *
  67 * fzicxd1.inc
  68 *
  69 #if defined(CERNLIB_QMVAX)
  70       PARAMETER    (JEXMIN = -127,  JEXMAX=125)
  71       PARAMETER    (IOVPMS = '00007F81'X)
  72       PARAMETER    (IOVNMS = '0000FF81'X)
  73       PARAMETER    (IBADMS = '00008001'X)
  74       PARAMETER    (IBADMD = IBADMS, IBADME = 0)
  75       PARAMETER    (IOVPMD = IOVPMS, IOVNMD = IOVNMS)
  76 #endif
  77 *    use default CALL IE3TOS for input single prec.
  78 #ifndef CERNLIB_FQIE3TSC
  79 #endif
  80 *    use default CALL IE3TOD for input double prec.
  81 #ifndef CERNLIB_FQIE3TDC
  82 #endif