MINICERN/packlib/zebra/fq/fzcvdpc.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1997/03/14 17:19:49  mclareni
   6 * WNT mods
   7 *
   8 * Revision 1.1.1.1.2.1  1997/01/21 11:33:39  mclareni
   9 * All mods for Winnt 96a on winnt branch
  10 *
  11 * Revision 1.1.1.1  1996/03/06 10:47:10  mclareni
  12 * Zebra
  13 *
  14 *
  15 *   swop halves of double precision numbers
  16 *
  17 * fzcvdpc.inc
  18 *
  19 #if defined(CERNLIB_QMDOS) || defined(CERNLIB_WINNT)
  20 C--       PC : exchange left and right half of each d/p number
  21       DO 449  JL=1,NDPN
  22       MT(JMT+1) = MS(JMS+2)
  23       MT(JMT+2) = MS(JMS+1)
  24       JMT = JMT + 2
  25   449 JMS = JMS + 2
  26 #endif