casa-mp-base
Public
Source
+ (void) utDivideComplex ((a).RealPart, (a).ImagPart, (b).RealPart, (-(b).ImagPart), \--- 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 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 */ /* -------------------------------------------------------------------------- */ /* 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) /* -------------------------------------------------------------------------- */ { \ if (split) \ { \- (c).Real = (s1)[p] ; \- (c).Imag = (s2)[p] ; \+ (c).RealPart = (s1)[p] ; \+ (c).ImagPart = (s2)[p] ; \ } \ else \ { \ /* -------------------------------------------------------------------------- */ #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. ; \ } /* -------------------------------------------------------------------------- */ /* *p++ = 0 */ #define CLEAR_AND_INCREMENT(p) \ { \