pio2lo
y = pio2hi; p = pio2lo;
y = -pio2hi; p = -pio2lo;
y = -pio2lo;
pio2lo = 4.335905065061890512398522013021675984381e-0035L;
y -= pio2lo;
y -= pio2lo;
y = one / x - pio2lo;
y = -pio2lo;
y = -pio2lo;
pio2lo = -4.371139000e-0008F;
y -= pio2lo;
y -= pio2lo;
y = one / x - pio2lo;
y = -pio2lo;
y = -pio2lo;
pio2lo = 6.123233995736765886e-17;
y = -pio2lo;
y = one / x - pio2lo;
t = pio2lo - (r * ee[1] + r_l * ee[0]);