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

Fix typo in krylov solvers comments (#938)

Browse Source
This commit is contained in:
adam-sim-dev 2023-06-24 20:47:02 +08:00 committed by GitHub
parent 09d4bd8849
commit 64604ec075
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
11 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/krylov/bicgstab.c
View File

@ -295,7 +295,7 @@ hypre_BiCGSTABSolve(void *bicgstab_vdata,
b_norm = hypre_sqrt((*(bicgstab_functions->InnerProd))(b, b)); b_norm = hypre_sqrt((*(bicgstab_functions->InnerProd))(b, b));
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (b_norm != 0.) { ieee_check = b_norm / b_norm; } /* INF -> NaN conversion */ if (b_norm != 0.) { ieee_check = b_norm / b_norm; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)
@ -323,7 +323,7 @@ hypre_BiCGSTABSolve(void *bicgstab_vdata,
r_norm = hypre_sqrt(res); r_norm = hypre_sqrt(res);
r_norm_0 = r_norm; r_norm_0 = r_norm;
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (r_norm != 0.) { ieee_check = r_norm / r_norm; } /* INF -> NaN conversion */ if (r_norm != 0.) { ieee_check = r_norm / r_norm; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)

6
src/krylov/cgnr.c
View File

@ -237,7 +237,7 @@ hypre_CGNRSolve(void *cgnr_vdata,
/* compute eps */ /* compute eps */
bi_prod = (*(cgnr_functions->InnerProd))(b, b); bi_prod = (*(cgnr_functions->InnerProd))(b, b);
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (bi_prod != 0.) { ieee_check = bi_prod / bi_prod; } /* INF -> NaN conversion */ if (bi_prod != 0.) { ieee_check = bi_prod / bi_prod; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)
@ -294,7 +294,7 @@ hypre_CGNRSolve(void *cgnr_vdata,
{ {
norms[0] = hypre_sqrt((*(cgnr_functions->InnerProd))(r, r)); norms[0] = hypre_sqrt((*(cgnr_functions->InnerProd))(r, r));
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (norms[0] != 0.) { ieee_check = norms[0] / norms[0]; } /* INF -> NaN conversion */ if (norms[0] != 0.) { ieee_check = norms[0] / norms[0]; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)
@ -330,7 +330,7 @@ hypre_CGNRSolve(void *cgnr_vdata,
/* gamma = <t,t> */ /* gamma = <t,t> */
gamma = (*(cgnr_functions->InnerProd))(t, t); gamma = (*(cgnr_functions->InnerProd))(t, t);
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (gamma != 0.) { ieee_check = gamma / gamma; } /* INF -> NaN conversion */ if (gamma != 0.) { ieee_check = gamma / gamma; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)

4
src/krylov/cogmres.c
View File

@ -373,7 +373,7 @@ hypre_COGMRESSolve(void *cogmres_vdata,
b_norm = hypre_sqrt((*(cogmres_functions->InnerProd))(b, b)); b_norm = hypre_sqrt((*(cogmres_functions->InnerProd))(b, b));
real_r_norm_old = b_norm; real_r_norm_old = b_norm;
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (b_norm != 0.) { ieee_check = b_norm / b_norm; } /* INF -> NaN conversion */ if (b_norm != 0.) { ieee_check = b_norm / b_norm; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)
@ -400,7 +400,7 @@ hypre_COGMRESSolve(void *cogmres_vdata,
r_norm = hypre_sqrt((*(cogmres_functions->InnerProd))(p[0], p[0])); r_norm = hypre_sqrt((*(cogmres_functions->InnerProd))(p[0], p[0]));
r_norm_0 = r_norm; r_norm_0 = r_norm;
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (r_norm != 0.) { ieee_check = r_norm / r_norm; } /* INF -> NaN conversion */ if (r_norm != 0.) { ieee_check = r_norm / r_norm; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)

4
src/krylov/flexgmres.c
View File

@ -376,7 +376,7 @@ hypre_FlexGMRESSolve(void *fgmres_vdata,
b_norm = hypre_sqrt((*(fgmres_functions->InnerProd))(b, b)); b_norm = hypre_sqrt((*(fgmres_functions->InnerProd))(b, b));
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (b_norm != 0.) { ieee_check = b_norm / b_norm; } /* INF -> NaN conversion */ if (b_norm != 0.) { ieee_check = b_norm / b_norm; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)
@ -403,7 +403,7 @@ hypre_FlexGMRESSolve(void *fgmres_vdata,
r_norm = hypre_sqrt((*(fgmres_functions->InnerProd))(p[0], p[0])); r_norm = hypre_sqrt((*(fgmres_functions->InnerProd))(p[0], p[0]));
r_norm_0 = r_norm; r_norm_0 = r_norm;
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (r_norm != 0.) { ieee_check = r_norm / r_norm; } /* INF -> NaN conversion */ if (r_norm != 0.) { ieee_check = r_norm / r_norm; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)

4
src/krylov/gmres.c
View File

@ -364,7 +364,7 @@ hypre_GMRESSolve(void *gmres_vdata,
b_norm = hypre_sqrt((*(gmres_functions->InnerProd))(b, b)); b_norm = hypre_sqrt((*(gmres_functions->InnerProd))(b, b));
real_r_norm_old = b_norm; real_r_norm_old = b_norm;
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (b_norm != 0.) if (b_norm != 0.)
{ {
@ -394,7 +394,7 @@ hypre_GMRESSolve(void *gmres_vdata,
r_norm = hypre_sqrt((*(gmres_functions->InnerProd))(p[0], p[0])); r_norm = hypre_sqrt((*(gmres_functions->InnerProd))(p[0], p[0]));
r_norm_0 = r_norm; r_norm_0 = r_norm;
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (r_norm != 0.) if (r_norm != 0.)
{ {

4
src/krylov/lgmres.c
View File

@ -417,7 +417,7 @@ hypre_LGMRESSolve(void *lgmres_vdata,
b_norm = hypre_sqrt((*(lgmres_functions->InnerProd))(b, b)); b_norm = hypre_sqrt((*(lgmres_functions->InnerProd))(b, b));
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (b_norm != 0.) { ieee_check = b_norm / b_norm; } /* INF -> NaN conversion */ if (b_norm != 0.) { ieee_check = b_norm / b_norm; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)
@ -444,7 +444,7 @@ hypre_LGMRESSolve(void *lgmres_vdata,
r_norm = hypre_sqrt((*(lgmres_functions->InnerProd))(p[0], p[0])); r_norm = hypre_sqrt((*(lgmres_functions->InnerProd))(p[0], p[0]));
r_norm_0 = r_norm; r_norm_0 = r_norm;
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (r_norm != 0.) { ieee_check = r_norm / r_norm; } /* INF -> NaN conversion */ if (r_norm != 0.) { ieee_check = r_norm / r_norm; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)

4
src/krylov/pcg.c
View File

@ -375,7 +375,7 @@ hypre_PCGSolve( void *pcg_vdata,
} }
}; };
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (bi_prod != 0.) { ieee_check = bi_prod / bi_prod; } /* INF -> NaN conversion */ if (bi_prod != 0.) { ieee_check = bi_prod / bi_prod; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)
@ -453,7 +453,7 @@ hypre_PCGSolve( void *pcg_vdata,
/* gamma = <r,p> */ /* gamma = <r,p> */
gamma = (*(pcg_functions->InnerProd))(r, p); gamma = (*(pcg_functions->InnerProd))(r, p);
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (gamma != 0.) { ieee_check = gamma / gamma; } /* INF -> NaN conversion */ if (gamma != 0.) { ieee_check = gamma / gamma; } /* INF -> NaN conversion */
if (ieee_check != ieee_check) if (ieee_check != ieee_check)

2
src/parcsr_ls/par_amg_solve.c
View File

@ -188,7 +188,7 @@ hypre_BoomerAMGSolve( void *amg_vdata,
resid_nrm = hypre_sqrt(hypre_ParVectorInnerProd(Vtemp, Vtemp)); resid_nrm = hypre_sqrt(hypre_ParVectorInnerProd(Vtemp, Vtemp));
} }
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (resid_nrm != 0.) if (resid_nrm != 0.)
{ {

2
src/parcsr_ls/par_amgdd_solve.c
View File

@ -135,7 +135,7 @@ hypre_BoomerAMGDDSolve( void *amgdd_vdata,
resid_nrm = hypre_sqrt(hypre_ParVectorInnerProd(Vtemp, Vtemp)); resid_nrm = hypre_sqrt(hypre_ParVectorInnerProd(Vtemp, Vtemp));
} }
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (resid_nrm != 0.) if (resid_nrm != 0.)
{ {

4
src/parcsr_ls/par_ilu_solve.c
View File

@ -172,7 +172,7 @@ hypre_ILUSolve( void *ilu_vdata,
resnorm = hypre_sqrt(hypre_ParVectorInnerProd(Ftemp, Ftemp)); resnorm = hypre_sqrt(hypre_ParVectorInnerProd(Ftemp, Ftemp));
} }
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (resnorm != 0.) if (resnorm != 0.)
{ {
@ -1578,7 +1578,7 @@ hypre_NSHSolve( void *nsh_vdata,
resnorm = hypre_sqrt(hypre_ParVectorInnerProd(Ftemp, Ftemp)); resnorm = hypre_sqrt(hypre_ParVectorInnerProd(Ftemp, Ftemp));
} }
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
and notify users when they supply bad input. */ and notify users when they supply bad input. */
if (resnorm != 0.) if (resnorm != 0.)
{ {

2
src/parcsr_ls/par_mgr_solve.c
View File

@ -144,7 +144,7 @@ hypre_MGRSolve( void *mgr_vdata,
resnorm = hypre_sqrt(hypre_ParVectorInnerProd(Vtemp, Vtemp)); resnorm = hypre_sqrt(hypre_ParVectorInnerProd(Vtemp, Vtemp));
} }
/* Since it is does not diminish performance, attempt to return an error flag /* Since it does not diminish performance, attempt to return an error flag
* and notify users when they supply bad input. */ * and notify users when they supply bad input. */
if (resnorm != 0.) if (resnorm != 0.)
{ {