7 double f0, pind, pw, px;
8 static double p[5] = { -0.322232431088, -1., -0.342242088547,
9 -0.0204231210245, -4.53642210148e-5
11 static double q[5] = { 0.099348462606, 0.588581570495, 0.531103462366,
12 0.10353775285, 0.0038560700634
28 pw = sqrt(log(1 / (pee * pee)));
29 f0 = (((pw * q[4] + q[3]) * pw + q[2]) * pw + q[1]) * pw + q[0];
30 px = pw + ((((pw * p[4] + p[3]) * pw + p[2])
31 * pw + p[1]) * pw + p[0]) / f0;
double Cdhc_xinormal(double pee)