use ei_sqrt instead of sqrt

This commit is contained in:
Thomas Capricelli 2009-08-21 00:27:11 +02:00
parent 1ad042c981
commit 0abb148b7d
3 changed files with 3 additions and 3 deletions

View File

@ -261,7 +261,7 @@ L200:
/* L230: */
}
temp1 = ei_enorm<Scalar>(n, &wa3[1]) / fnorm;
temp2 = sqrt(par) * pnorm / fnorm;
temp2 = ei_sqrt(par) * pnorm / fnorm;
/* Computing 2nd power */
prered = temp1 * temp1 + temp2 * temp2 / p5;
dirder = -(temp1 * temp1 + temp2 * temp2);

View File

@ -263,7 +263,7 @@ L200:
/* L230: */
}
temp1 = ei_enorm<Scalar>(n, &wa3[1]) / fnorm;
temp2 = sqrt(par) * pnorm / fnorm;
temp2 = ei_sqrt(par) * pnorm / fnorm;
/* Computing 2nd power */
prered = temp1 * temp1 + temp2 * temp2 / p5;
dirder = -(temp1 * temp1 + temp2 * temp2);

View File

@ -285,7 +285,7 @@ L240:
/* L270: */
}
temp1 = ei_enorm<Scalar>(n, &wa3[1]) / fnorm;
temp2 = sqrt(par) * pnorm / fnorm;
temp2 = ei_sqrt(par) * pnorm / fnorm;
/* Computing 2nd power */
prered = temp1 * temp1 + temp2 * temp2 / p5;
dirder = -(temp1 * temp1 + temp2 * temp2);