Fix to SuperLUDist coarse solver setup (after BigInt changes).
This commit is contained in:
parent
d7835fcc62
commit
3a2004da59
@ -63,12 +63,12 @@ HYPRE_Int hypre_SLUDistSetup( HYPRE_Solver *solver, hypre_ParCSRMatrix *A, HYPRE
|
|||||||
num_rows,
|
num_rows,
|
||||||
hypre_ParCSRMatrixFirstRowIndex(A),
|
hypre_ParCSRMatrixFirstRowIndex(A),
|
||||||
hypre_CSRMatrixData(A_local),
|
hypre_CSRMatrixData(A_local),
|
||||||
hypre_CSRMatrixJ(A_local),hypre_CSRMatrixI(A_local),
|
hypre_CSRMatrixBigJ(A_local),hypre_CSRMatrixI(A_local),
|
||||||
SLU_NR_loc, SLU_D, SLU_GE);
|
SLU_NR_loc, SLU_D, SLU_GE);
|
||||||
|
|
||||||
hypre_CSRMatrixData(A_local) = NULL;
|
hypre_CSRMatrixData(A_local) = NULL;
|
||||||
hypre_CSRMatrixI(A_local) = NULL;
|
hypre_CSRMatrixI(A_local) = NULL;
|
||||||
hypre_CSRMatrixJ(A_local) = NULL;
|
hypre_CSRMatrixBigJ(A_local) = NULL;
|
||||||
hypre_CSRMatrixDestroy(A_local);
|
hypre_CSRMatrixDestroy(A_local);
|
||||||
|
|
||||||
/*Create process grid */
|
/*Create process grid */
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user