MINICERN/packlib/zebra/fq/fzcvdtmo.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:11  mclareni
   6 * Zebra
   7 *
   8 *
   9 *   swop halves of double precision numbers
  10 *
  11 * fzcvdtmo.inc
  12 *
  13 #if defined(CERNLIB_QMTMO)
  14 C--       TMO : exchange left and right half of each d/p number
  15       DO 449  JL=1,NDPN
  16       MT(JMT+1) = MS(JMS+2)
  17       MT(JMT+2) = MS(JMS+1)
  18       JMT = JMT + 2
  19   449 JMS = JMS + 2
  20 #endif