A4
double A4, lprime, V, ldprime, D, Nm;
A4 = 0.214 * sin(dtor(2 * Mmprime)); /* sec 65 #11 */
lprime = l + Ev + Ec - Ac + A4; /* sec 65 #12 */
q = u * v * (A1 + v * (A2 + v * (A3 + v * A4)));
q = r2 + r * r * (A2 + r * (A3 + r * (A4 + r * (A5 + r * (A6 +
A4 = 4.16666666666666666666666666425885320e-2L,
q = r2 + r * r * (A2 + r * (A3 + r * (A4 + r * (A5 + r * (A6 +
q = u * v * (A1 + v * (A2 + v * (A3 + v * A4)));
q = r2 + z * (A2 + r * A3) + z * z * (A4 + r * A5) + z * z * z * A6;
q = r2 + z * A2 + z * r * (A3 + r * A4 + z * (A5 + r * A6));
A4 = 4.1666666666665887e-2, /* 0x155555555554e5.0p-57 */
q = r2 + z * (A2 + r * A3) + z * z * (A4 + r * A5) + z * z * z * A6;
static const double A4 = .0004348877777076145742;
q = u*v*(A1 + v*(A2 + v*(A3 + v*A4)));
q = u*v*(A1 + v*(A2 + v*(A3 + v*A4)));
q = u*v*(A1 + v*(A2 + v*(A3 + v*A4)));
static const double A4 = .0004348877777076145742;
tf->tf_regs[A4] = 0;
gr[_REG_A4] = frame->f_regs[A4];
frame->f_regs[A4] = gr[_REG_A4];