MINICERN/packlib/zebra/fq/fzcvdlnx.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1998/09/25 09:32:54  mclareni
   6 * Modifications for the Mklinux port flagged by CERNLIB_PPC
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:10  mclareni
   9 * Zebra
  10 *
  11 *
  12 *   swop halves of double precision numbers
  13 *
  14 * fzcvdlnx.inc
  15 *
  16 #if (defined(CERNLIB_QMLNX) && !defined(CERNLIB_PPC))
  17 C--       LNX : exchange left and right half of each d/p number
  18       DO 449  JL=1,NDPN
  19       MT(JMT+1) = MS(JMS+2)
  20       MT(JMT+2) = MS(JMS+1)
  21       JMT = JMT + 2
  22   449 JMS = JMS + 2
  23 #endif