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

Set PCG and GMRES to work with -tol

Browse Source
This commit is contained in:
vhenson 1999-05-28 17:27:12 +00:00
parent fbaa6aa91f
commit e8a4203712
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
parcsr_linear_solvers/driver.c
View File

@ -594,7 +594,8 @@ main( int argc,
HYPRE_ParCSRPCGInitialize(MPI_COMM_WORLD, &pcg_solver);
HYPRE_ParCSRPCGSetMaxIter(pcg_solver, 500);
HYPRE_ParCSRPCGSetTol(pcg_solver, 1.0e-08);
/* HYPRE_ParCSRPCGSetTol(pcg_solver, 1.0e-08); */
HYPRE_ParCSRPCGSetTol(pcg_solver, tol);
HYPRE_ParCSRPCGSetTwoNorm(pcg_solver, 1);
HYPRE_ParCSRPCGSetRelChange(pcg_solver, 0);
HYPRE_ParCSRPCGSetLogging(pcg_solver, 1);
@ -679,7 +680,8 @@ main( int argc,
HYPRE_ParCSRGMRESInitialize(MPI_COMM_WORLD, &pcg_solver);
HYPRE_ParCSRGMRESSetKDim(pcg_solver, k_dim);
HYPRE_ParCSRGMRESSetMaxIter(pcg_solver, 100);
HYPRE_ParCSRGMRESSetTol(pcg_solver, 1.0e-08);
/* HYPRE_ParCSRGMRESSetTol(pcg_solver, 1.0e-08); */
HYPRE_ParCSRGMRESSetTol(pcg_solver, tol);
HYPRE_ParCSRGMRESSetLogging(pcg_solver, 1);
if (solver_id == 3)

6
parcsr_ls/driver.c
View File

@ -594,7 +594,8 @@ main( int argc,
HYPRE_ParCSRPCGInitialize(MPI_COMM_WORLD, &pcg_solver);
HYPRE_ParCSRPCGSetMaxIter(pcg_solver, 500);
HYPRE_ParCSRPCGSetTol(pcg_solver, 1.0e-08);
/* HYPRE_ParCSRPCGSetTol(pcg_solver, 1.0e-08); */
HYPRE_ParCSRPCGSetTol(pcg_solver, tol);
HYPRE_ParCSRPCGSetTwoNorm(pcg_solver, 1);
HYPRE_ParCSRPCGSetRelChange(pcg_solver, 0);
HYPRE_ParCSRPCGSetLogging(pcg_solver, 1);
@ -679,7 +680,8 @@ main( int argc,
HYPRE_ParCSRGMRESInitialize(MPI_COMM_WORLD, &pcg_solver);
HYPRE_ParCSRGMRESSetKDim(pcg_solver, k_dim);
HYPRE_ParCSRGMRESSetMaxIter(pcg_solver, 100);
HYPRE_ParCSRGMRESSetTol(pcg_solver, 1.0e-08);
/* HYPRE_ParCSRGMRESSetTol(pcg_solver, 1.0e-08); */
HYPRE_ParCSRGMRESSetTol(pcg_solver, tol);
HYPRE_ParCSRGMRESSetLogging(pcg_solver, 1);
if (solver_id == 3)