[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / fq / fzcvdpc.inc

*
* $Id$
*
* $Log$
* Revision 1.2  1997/03/14 17:19:49  mclareni
* WNT mods
*
* Revision 1.1.1.1.2.1  1997/01/21 11:33:39  mclareni
* All mods for Winnt 96a on winnt branch
*
* Revision 1.1.1.1  1996/03/06 10:47:10  mclareni
* Zebra
*
*
*   swop halves of double precision numbers
*
* fzcvdpc.inc
*
#if defined(CERNLIB_QMDOS) || defined(CERNLIB_WINNT)
C--       PC : exchange left and right half of each d/p number
      DO 449  JL=1,NDPN
      MT(JMT+1) = MS(JMS+2)
      MT(JMT+2) = MS(JMS+1)
      JMT = JMT + 2
  449 JMS = JMS + 2
#endif
Commit	Line	Data
fe4da5cc	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