CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ij help (#634)

Browse Source 
Minor fix to `ij -help`
This commit is contained in:
Ruipeng Li 2022-05-24 13:30:23 -07:00 committed by GitHub
parent ef3f890d4b
commit aa0446d720
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/test/ij.c
View File

@ -155,7 +155,7 @@ main( hypre_int argc,
HYPRE_IJMatrix ij_A = NULL;
HYPRE_IJVector ij_b = NULL;
HYPRE_IJVector ij_x = NULL;
HYPRE_IJVector *ij_rbm;
HYPRE_IJVector *ij_rbm = NULL;
HYPRE_ParCSRMatrix parcsr_A = NULL;
HYPRE_ParVector b = NULL;
@ -8254,7 +8254,7 @@ final:
if (test_ij || build_matrix_type == -1)
{
HYPRE_IJMatrixDestroy(ij_A);
if (ij_A) { HYPRE_IJMatrixDestroy(ij_A); }
}
else
{
@ -8268,16 +8268,19 @@ final:
}
else
{
HYPRE_IJVectorDestroy(ij_b);
if (ij_b) { HYPRE_IJVectorDestroy(ij_b); }
}
HYPRE_IJVectorDestroy(ij_x);
if (ij_x) { HYPRE_IJVectorDestroy(ij_x); }
if (build_rbm)
{
for (i = 0; i < num_interp_vecs; i++)
if (ij_rbm)
{
HYPRE_IJVectorDestroy(ij_rbm[i]);
for (i = 0; i < num_interp_vecs; i++)
{
if (ij_rbm[i]) { HYPRE_IJVectorDestroy(ij_rbm[i]); }
}
}
hypre_TFree(ij_rbm, HYPRE_MEMORY_HOST);
hypre_TFree(interp_vecs, HYPRE_MEMORY_HOST);