Another abs to fabs fix

This commit is contained in:
lambda 2000-01-08 20:00:04 +00:00
parent bfe2e0c71f
commit c5cb4c8fae
2 changed files with 2 additions and 2 deletions

View File

@ -260,7 +260,7 @@ hypre_CSRMatrixDeleteZeros( hypre_CSRMatrix *A, double tol)
{
for (j = A_i[i]; j < A_i[i+1]; j++)
{
if (abs(A_data[j]) <= tol)
if (fabs(A_data[j]) <= tol)
{
pos_A++;
}

View File

@ -260,7 +260,7 @@ hypre_CSRMatrixDeleteZeros( hypre_CSRMatrix *A, double tol)
{
for (j = A_i[i]; j < A_i[i+1]; j++)
{
if (abs(A_data[j]) <= tol)
if (fabs(A_data[j]) <= tol)
{
pos_A++;
}