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)));
static const double A4 = .0004348877777076145742;
RESTORE_REG(a4, A4, frame, bo) ;\
SAVE_REG(a4, A4, frame, bo) ;\