DELTA 260066 0 7817 SVNee  xg~CMPLXLENDREP DELTA 260066 9199 5504 SVN  gCMPLXLENDREP DELTA 251404 232 532 SVN^![&VRW.&NNysr]jfb-c/ <%>f})u&GFpCo8t,k%].tNx'x^0 =vx58(.Kt1#0`[6ttN"$JXPЊ}=}j Q֞ 6/`s[شL$&Wgvm=U\j]]X# PbtENDREP DELTA 226597 902 1755 SVNpp  N"CMPLXENDREP DELTA 230371 0 28 SVNhh  PCMPLXFENDREP DELTA 255361 335 48 SVNq11H3]n`pAu{i/ * The C11 standard introduced the macros CMPLX(), CMPLXF() and CMPLXL() * to construct complex values. The functions below are modelled after * these macros, with the exception that they cannot be used to * construct compile-time complex values. */ #ifndef CMPLXF static __inline float complex CMPLXF#endif #ifndef CMPLX static __inline double complex CMPLX#endif #ifndef CMPLXL static __inline long double complex CMPLXL ENDREP DELTA 226599 0 384 SVNHHC/BrPw;L ;7?{LV&--CMPLXCMPLXCMPLXCMPLX(fabs(x), y), -1); return (CMPLXCMPLXCMPLXCMPLX(x * x, copysign(0, x) * y)); return (CMPLXCMPLXCMPLX(x * x, x * (y - y))); return (CMPLXCMPLXCMPLXENDREP DELTA 226599 414 393 SVNll312L]C) r)U2,]3lcdeO/CMPLXF(coshf(x), x * y)); if (ix < 0x41100000) /* small x: normal case */ return (CMPLXFCMPLXFCMPLXF(fabsf(x), y), -1); return (CMPLXFCMPLXFCMPLXF(y - y, copysignf(0, x * (y - y)))); if (iy == 0 && ix >= 0x7f800000) { if ((hx & 0x7fffff) == 0) return (CMPLXF(x * x, copysignf(0, x) * y)); return (CMPLXFCMPLXFCMPLXF(x * x, x * (y - y))); return (CMPLXF((x * x) * cosf(y), x * sinf(y))); } return (CMPLXFCMPLXFENDREP DELTA 226597 4236 196 SVNVV! SX!]qRocF(.CMPLXCMPLXCMPLX(y - y, y - y)); } else if (hx & 0x80000000) { /* cexp(-Inf +- I Inf|NaN) = 0 + I 0 */ return (CMPLXCMPLXCMPLXENDREP DELTA 226597 4458 185 SVN33o;>g\^b!* mCMPLXF(expf(x), y)); GET_FLOAT_WORD(hx, x); /* cexp(0 + I y) = cos(y) + I sin(y) */ if ((hx & 0x7fffffff) == 0) return (CMPLXFCMPLXFCMPLXF(0.0, 0.0)); } else { /* cexp(+Inf +- I Inf|NaN) = Inf + I NaN */ return (CMPLXFCMPLXFENDREP DELTA 181374 218 125 SVNZZ ;@CMPLXENDREP DELTA 181374 372 127 SVN\\ :@CMPLXFENDREP DELTA 181374 528 139 SVNhh FLCMPLXLENDREP DELTA 181377 820 954 SVN11  CiHCMPLXENDREP DELTA 181377 1787 909 SVNtt D*JCMPLXFENDREP DELTA 181377 2709 915 SVN P*VCMPLXLENDREP DELTA 226599 837 395 SVN``C@BpLu;F579[uwmciwF>CMPLXCMPLXCMPLXCMPLX(fabs(x), y), -1); return (CMPLXCMPLXCMPLXCMPLX(x, y)); return (CMPLXCMPLXCMPLX(x * x, x * (y - y))); return (CMPLXCMPLXCMPLX(-cimag(z), creal(z))); return (CMPLXENDREP DELTA 226599 1262 395 SVNii.-LYC% n%U.klnd`>Mx^}AK0xmAP\w/ ]