MINICERN/packlib/zebra/fq/fzicvfi.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 *   sign-extension for integer input
  10 *
  11 * fzicvfi.inc
  12 *
  13 #if defined(CERNLIB_QMCDC)
  14   201 DO 229 J=1,NWDO
  15       ITHA = MS(JMS+1)
  16       IF ((ITHA.AND.O"20000000000").NE.0)  ITHA= MASK(28).OR.(ITHA-1)
  17       MT(JMT+1) = ITHA
  18       JMT = JMT + 1
  19   229 JMS = JMS + 1
  20       GO TO 801
  21 #endif
  22 *    use default CALL IE3TOS for input single prec.
  23 #ifndef CERNLIB_FQIE3TSC
  24 #endif
  25 *    use default CALL IE3TOD for input double prec.
  26 #ifndef CERNLIB_FQIE3TDC
  27 #endif
  28 *   sign-extension for integer input
  29 *
  30 * fzicvfi.inc
  31 *
  32 #if defined(CERNLIB_QMCRY)
  33   201 DO 229 J=1,NWDO
  34       ITHA = MS(JMS+1)
  35       IF ((ITHA.AND.20000000000B).NE.0)  ITHA= ITHA .OR. MASK(32)
  36       MT(JMT+1) = ITHA
  37       JMT = JMT + 1
  38   229 JMS = JMS + 1
  39       GO TO 801
  40 #endif
  41 *     use default in-line conversion for input floating
  42 #ifndef CERNLIB_FQCVDFF
  43 #endif
  44 *   sign-extension for integer input
  45 *
  46 * fzicvfi.inc
  47 *
  48 #if (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
  49   201 DO 229 J=1,NWDO
  50       ITHA = MS(JMS+1)
  51       IF ((ITHA.AND.MSKB32).NE.0)  ITHA= ITHA .OR. MSKL32
  52       MT(JMT+1) = ITHA
  53       JMT = JMT + 1
  54   229 JMS = JMS + 1
  55       GO TO 801
  56 #endif
  57 *    use default CALL IE3TOS for input single prec.
  58 #ifndef CERNLIB_FQIE3TSC
  59 #endif
  60 *    use default CALL IE3TOD for input double prec.
  61 #ifndef CERNLIB_FQIE3TDC
  62 #endif