P0
H = P0(TT2); \
#ifndef P0
P0 = 6.2138957182182086e-1,
p = P0 + z * (P1 + z * (P2 + z * (P3 + z * P4)));
p = P0 + z * (P1 + z * (P2 + z * (P3 + z * (P4 + z * (P5 +
P0 = 1.87595182427177009643, /* 0x3ffe03e6, 0x0f61e692 */
t=t*((P0+r*(P1+r*P2))+((r*r)*r)*(P3+r*P4));