This commit was generated by cvs2svn to compensate for changes in r2,

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

diff --git a/MINICERN/packlib/zebra/fq/fzcvdvmi.inc b/MINICERN/packlib/zebra/fq/fzcvdvmi.inc
new file mode 100644 (file)
index 0000000..67464a8
--- /dev/null
+++ b/MINICERN/packlib/zebra/fq/fzcvdvmi.inc
@@ -0,0 +1,20 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/03/06 10:47:11  mclareni
+* Zebra
+*
+*
+*   swop halves of double precision numbers
+*
+* fzcvdvmi.inc
+*
+#if defined(CERNLIB_QMVMI)
+C--       VMI : 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