casa-mp-base

--- KLU/Include/klu_version.h.orig  2013-10-24 12:06:25.000000000 -0400

+++ KLU/Include/klu_version.h   2013-10-24 12:08:49.000000000 -0400

@@ -327,8 +327,8 @@

 typedef Double_Complex Unit ;

 #define Entry Double_Complex

-#define Real component [0]

-#define Imag component [1]

+#define RealPart component [0]

+#define ImagPart component [1]

 /* for flop counts */

 #define MULTSUB_FLOPS   8.      /* c -= a*b */

@@ -342,12 +342,12 @@

 /* -------------------------------------------------------------------------- */

 /* real part of c */

-#define REAL(c) ((c).Real)

+#define REAL(c) ((c).RealPart)

 /* -------------------------------------------------------------------------- */

 /* imag part of c */

-#define IMAG(c) ((c).Imag)

+#define IMAG(c) ((c).ImagPart)

 /* -------------------------------------------------------------------------- */

@@ -360,8 +360,8 @@

 { \

     if (split) \

     { \

-        (c).Real = (s1)[p] ; \

-        (c).Imag = (s2)[p] ; \

+        (c).RealPart = (s1)[p] ; \

+        (c).ImagPart = (s2)[p] ; \

     }  \

     else \

     { \

@@ -372,15 +372,15 @@

 /* -------------------------------------------------------------------------- */

 #define CONJ(a, x) \

 { \

-    a.Real = x.Real ; \

-    a.Imag = -x.Imag ; \

+    a.RealPart = x.RealPart ; \

+    a.ImagPart = -x.ImagPart ; \

 }

 /* c = 0 */

 #define CLEAR(c) \

 { \

-    (c).Real = 0. ; \

-    (c).Imag = 0. ; \

+    (c).RealPart = 0. ; \

+    (c).ImagPart = 0. ; \

 }

 /* -------------------------------------------------------------------------- */

@@ -388,8 +388,8 @@

 /* *p++ = 0 */

 #define CLEAR_AND_INCREMENT(p) \

 { \

-    p->Real = 0. ; \

-    p->Imag = 0. ; \

+    p->RealPart = 0. ; \

+    p->ImagPart = 0. ; \

     p++ ; \

 }

@@ -397,34 +397,34 @@

 /* True if a == 0 */

 #define IS_ZERO(a) \

-    (SCALAR_IS_ZERO ((a).Real) && SCALAR_IS_ZERO ((a).Imag))

+    (SCALAR_IS_ZERO ((a).RealPart) && SCALAR_IS_ZERO ((a).ImagPart))

 /* -------------------------------------------------------------------------- */

 /* True if a is NaN */

 #define IS_NAN(a) \

-    (SCALAR_IS_NAN ((a).Real) || SCALAR_IS_NAN ((a).Imag))

+    (SCALAR_IS_NAN ((a).RealPart) || SCALAR_IS_NAN ((a).ImagPart))

 /* -------------------------------------------------------------------------- */

 /* True if a != 0 */

 #define IS_NONZERO(a) \

-    (SCALAR_IS_NONZERO ((a).Real) || SCALAR_IS_NONZERO ((a).Imag))

+    (SCALAR_IS_NONZERO ((a).RealPart) || SCALAR_IS_NONZERO ((a).ImagPart))