simplifying

This commit is contained in:
Thomas Capricelli 2009-08-21 01:24:04 +02:00
parent 0abb148b7d
commit 6a8b52b3aa
3 changed files with 12 additions and 12 deletions

View File

@ -260,11 +260,11 @@ L200:
} }
/* L230: */ /* L230: */
} }
temp1 = ei_enorm<Scalar>(n, &wa3[1]) / fnorm; temp1 = ei_abs2(ei_enorm<Scalar>(n, &wa3[1]) / fnorm);
temp2 = ei_sqrt(par) * pnorm / fnorm; temp2 = ei_abs2( ei_sqrt(par) * pnorm / fnorm);
/* Computing 2nd power */ /* Computing 2nd power */
prered = temp1 * temp1 + temp2 * temp2 / p5; prered = temp1 + temp2 / p5;
dirder = -(temp1 * temp1 + temp2 * temp2); dirder = -(temp1 + temp2);
/* compute the ratio of the actual to the predicted */ /* compute the ratio of the actual to the predicted */
/* reduction. */ /* reduction. */

View File

@ -262,11 +262,11 @@ L200:
} }
/* L230: */ /* L230: */
} }
temp1 = ei_enorm<Scalar>(n, &wa3[1]) / fnorm; temp1 = ei_abs2(ei_enorm<Scalar>(n, &wa3[1]) / fnorm);
temp2 = ei_sqrt(par) * pnorm / fnorm; temp2 = ei_abs2( ei_sqrt(par) * pnorm / fnorm);
/* Computing 2nd power */ /* Computing 2nd power */
prered = temp1 * temp1 + temp2 * temp2 / p5; prered = temp1 + temp2 / p5;
dirder = -(temp1 * temp1 + temp2 * temp2); dirder = -(temp1 + temp2);
/* compute the ratio of the actual to the predicted */ /* compute the ratio of the actual to the predicted */
/* reduction. */ /* reduction. */

View File

@ -284,11 +284,11 @@ L240:
} }
/* L270: */ /* L270: */
} }
temp1 = ei_enorm<Scalar>(n, &wa3[1]) / fnorm; temp1 = ei_abs2(ei_enorm<Scalar>(n, &wa3[1]) / fnorm);
temp2 = ei_sqrt(par) * pnorm / fnorm; temp2 = ei_abs2( ei_sqrt(par) * pnorm / fnorm);
/* Computing 2nd power */ /* Computing 2nd power */
prered = temp1 * temp1 + temp2 * temp2 / p5; prered = temp1 + temp2 / p5;
dirder = -(temp1 * temp1 + temp2 * temp2); dirder = -(temp1 + temp2);
/* compute the ratio of the actual to the predicted */ /* compute the ratio of the actual to the predicted */
/* reduction. */ /* reduction. */