MINICERN/packlib/zebra/fq/fzocvfd.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.3  1998/09/25 09:33:04  mclareni
   6 * Modifications for the Mklinux port flagged by CERNLIB_PPC
   7 *
   8 * Revision 1.2  1997/03/14 17:19:51  mclareni
   9 * WNT mods
  10 *
  11 * Revision 1.1.1.1.2.1  1997/01/21 11:33:42  mclareni
  12 * All mods for Winnt 96a on winnt branch
  13 *
  14 * Revision 1.1.1.1  1996/03/06 10:47:10  mclareni
  15 * Zebra
  16 *
  17 *
  18 *                cv IEEE <- double
  19 *
  20 * fzocvfd.inc
  21 *
  22 #if defined(CERNLIB_QMDOS)||(defined(CERNLIB_QMLNX) && !defined(CERNLIB_PPC))||defined(CERNLIB_QMTMO)||defined(CERNLIB_QMVMI) || defined(CERNLIB_WINNT)
  23 C--       : exchange left and right half of each d/p number
  24       DO 449  JL=1,NDPN
  25       MT(JMT+1) = MS(JMS+2)
  26       MT(JMT+2) = MS(JMS+1)
  27       JMT = JMT + 2
  28   449 JMS = JMS + 2
  29 #elif defined(CERNLIB_FQIE3FDC)
  30 C--       Default conversion from internal to double IEEE
  31       CALL IE3FOD (MS(JMS+1),MT(JMT+1),NDPN,JBAD)
  32       IF (JBAD.NE.0)  THEN
  33           JBAD = 2*JBAD-2 + JMS
  34           IFOCON(1) = 4
  35           IFOCON(2) = JBAD
  36           IFOCON(3) = MS(JBAD+1)
  37         ENDIF
  38       JMT = JMT + NWDODB
  39       JMS = JMS + NWDODB
  40 #elif 1
  41       CALL UCOPY (MS(JMS+1),MT(JMT+1),NWDODB)
  42       JMS = JMS + NWDODB
  43       JMT = JMT + NWDODB
  44 #endif