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

Fix to SuperLUDist coarse solver setup (after BigInt changes).

Browse Source
This commit is contained in:
Sarah Virginia Osborn 2019-07-10 14:11:41 -07:00
parent d7835fcc62
commit 3a2004da59
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/parcsr_ls/superlu.c
View File

@ -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 */
@ -103,7 +103,7 @@ HYPRE_Int hypre_SLUDistSetup( HYPRE_Solver *solver, hypre_ParCSRMatrix *A, HYPRE
dslu_data->berr = hypre_CTAlloc(HYPRE_Real, 1, HYPRE_MEMORY_HOST); dslu_data->berr = hypre_CTAlloc(HYPRE_Real, 1, HYPRE_MEMORY_HOST);
dslu_data->berr[0] = 0.0; dslu_data->berr[0] = 0.0;
pdgssvx(&(dslu_data->dslu_options), &(dslu_data->A_dslu), pdgssvx(&(dslu_data->dslu_options), &(dslu_data->A_dslu),
&(dslu_data->dslu_ScalePermstruct), NULL, num_rows, nrhs, &(dslu_data->dslu_ScalePermstruct), NULL, num_rows, nrhs,
&(dslu_data->dslu_data_grid), &(dslu_data->dslu_data_LU), &(dslu_data->dslu_data_grid), &(dslu_data->dslu_data_LU),