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

Fix a bug in creating invA22 in the second version of reduction.

Browse Source
This commit is contained in:
chtong 2002-03-08 18:52:32 +00:00
parent 7ea24f8cfb
commit 34d95f83f0
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
FEI_mv/fei-hypre/hypre_slide_reduce.C
View File

@ -26,6 +26,7 @@
#include "../../parcsr_mv/HYPRE_parcsr_mv.h"
#include "../../parcsr_ls/HYPRE_parcsr_ls.h"
#include "HYPRE_LinSysCore.h"
#include "HYPRE_LSI_mli.h"
#define dabs(x) (((x) > 0.0) ? x : -(x))
@ -1800,6 +1801,10 @@ void HYPRE_LinSysCore::buildSlideReducedSystem2()
ProcNConstr[i] = ncnt;
ncnt += ncnt2;
}
#ifdef HAVE_MLI
if ( HYPreconID_ == HYMLI )
HYPRE_LSI_MLIAdjustNodeEqnMap(HYPrecon_, ProcNRows, ProcNConstr);
#endif
//******************************************************************
// compose the local and global selected node lists
@ -2309,6 +2314,7 @@ void HYPRE_LinSysCore::buildSlideReducedSystem2()
colIndex,globalNSelected);
if ( searchIndex >= 0 )
{
searchIndex = globalSelectedListAux[searchIndex];
for ( procIndex = 0; procIndex < numProcs_; procIndex++ )
if ( ProcNRows[procIndex] > colIndex ) break;
if ( procIndex == numProcs_ )