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

View File

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

View File

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