From 5ecb8833f127b6bbfe429f2eabb1dd15a5142c98 Mon Sep 17 00:00:00 2001 From: "Daniel R. Reynolds" Date: Fri, 26 Apr 2024 13:26:57 -0500 Subject: [PATCH] Apply suggestions from code review Fixed comment capitalization errors --- examples/arkode/CXX_parallel/ark_heat2D_p.cpp | 4 ++-- examples/arkode/CXX_parhyp/ark_heat2D_hypre_ls.cpp | 4 ++-- examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg.cpp | 4 ++-- examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg_imex.cpp | 4 ++-- examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg_mri.cpp | 2 +- .../CXX_serial/ark_advection_diffusion_reaction.cpp | 2 +- examples/arkode/CXX_serial/ark_heat2D.cpp | 4 ++-- examples/arkode/CXX_serial/ark_kpr_Mt.cpp | 4 ++-- examples/arkode/CXX_serial/ark_pendulum.cpp | 2 +- .../CXX_superludist/ark_brusselator1D_FEM_sludist.cpp | 4 ++-- .../arkode/CXX_xbraid/ark_heat2D_hypre_pfmg_xbraid.cpp | 2 +- examples/arkode/CXX_xbraid/ark_heat2D_p_xbraid.cpp | 2 +- examples/arkode/CXX_xbraid/ark_heat2D_xbraid.cpp | 4 ++-- examples/arkode/C_openmp/ark_heat1D_omp.c | 4 ++-- examples/arkode/C_openmpdev/ark_analytic_nonlin_ompdev.c | 2 +- examples/arkode/C_openmpdev/ark_heat1D_adapt_ompdev.c | 4 ++-- examples/arkode/C_openmpdev/ark_heat1D_ompdev.c | 2 +- examples/arkode/C_parallel/ark_diurnal_kry_bbd_p.c | 2 +- examples/arkode/C_parallel/ark_diurnal_kry_p.c | 2 +- examples/arkode/C_parhyp/ark_diurnal_kry_ph.c | 2 +- examples/arkode/C_petsc/ark_petsc_ex25.c | 8 ++++---- examples/arkode/C_serial/ark_analytic_mels.c | 4 ++-- examples/arkode/C_serial/ark_brusselator1D_FEM_slu.c | 2 +- examples/arkode/C_serial/ark_brusselator1D_klu.c | 2 +- examples/arkode/C_serial/ark_brusselator_fp.c | 2 +- examples/arkode/C_serial/ark_dissipated_exp_entropy.c | 2 +- examples/arkode/C_serial/ark_heat1D.c | 2 +- examples/arkode/C_serial/ark_heat1D_adapt.c | 4 ++-- examples/arkode/F2003_custom/ark_brusselator1D_f2003.f90 | 2 +- 29 files changed, 44 insertions(+), 44 deletions(-) diff --git a/examples/arkode/CXX_parallel/ark_heat2D_p.cpp b/examples/arkode/CXX_parallel/ark_heat2D_p.cpp index a44d27022d..78a25fa210 100644 --- a/examples/arkode/CXX_parallel/ark_heat2D_p.cpp +++ b/examples/arkode/CXX_parallel/ark_heat2D_p.cpp @@ -41,7 +41,7 @@ * problem is advanced in time with a diagonally implicit Runge-Kutta method * using an inexact Newton method paired with the PCG or SPGMR linear solver. * Several command line options are available to change the problem parameters - * and ARKode settings. Use the flag --help for more information. + * and ARKODE settings. Use the flag --help for more information. * ---------------------------------------------------------------------------*/ #include @@ -382,7 +382,7 @@ int main(int argc, char* argv[]) } // -------------- - // Setup ARKode + // Setup ARKODE // -------------- // Create integrator diff --git a/examples/arkode/CXX_parhyp/ark_heat2D_hypre_ls.cpp b/examples/arkode/CXX_parhyp/ark_heat2D_hypre_ls.cpp index f3cb4a54fa..09e95bc328 100644 --- a/examples/arkode/CXX_parhyp/ark_heat2D_hypre_ls.cpp +++ b/examples/arkode/CXX_parhyp/ark_heat2D_hypre_ls.cpp @@ -41,7 +41,7 @@ * problem is advanced in time with a diagonally implicit Runge-Kutta method * using an inexact Newton method paired with the hypre's PCG or GMRES linear * solver and PFMG preconditioner. Several command line options are available - * to change the problem parameters and ARKode settings. Use the flag --help + * to change the problem parameters and ARKODE settings. Use the flag --help * for more information. * ---------------------------------------------------------------------------*/ @@ -439,7 +439,7 @@ int main(int argc, char* argv[]) if (check_flag((void*)LS, "HypreLS", 0)) { return 1; } // -------------- - // Setup ARKode + // Setup ARKODE // -------------- // Create integrator diff --git a/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg.cpp b/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg.cpp index 3b16818670..bb541e41d6 100644 --- a/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg.cpp +++ b/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg.cpp @@ -41,7 +41,7 @@ * problem is advanced in time with a diagonally implicit Runge-Kutta method * using an inexact Newton method paired with the PCG or SPGMR linear solver * using hypre's PFMG preconditioner. Several command line options are available - * to change the problem parameters and ARKode settings. Use the flag --help + * to change the problem parameters and ARKODE settings. Use the flag --help * for more information. * ---------------------------------------------------------------------------*/ @@ -412,7 +412,7 @@ int main(int argc, char* argv[]) } // -------------- - // Setup ARKode + // Setup ARKODE // -------------- // Create integrator diff --git a/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg_imex.cpp b/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg_imex.cpp index dc57e33c2f..8410570911 100644 --- a/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg_imex.cpp +++ b/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg_imex.cpp @@ -41,7 +41,7 @@ * If the requested accuracy is 5th order, the problem is treated implicitly. * This option is included for computing a reference solution. * Several command line options are available to - * change the problem parameters and ARKode settings. Use the flag --help for + * change the problem parameters and ARKODE settings. Use the flag --help for * more information. * ---------------------------------------------------------------------------*/ @@ -391,7 +391,7 @@ int main(int argc, char* argv[]) } // ---------------------------------------------- - // Setup ARKode integrator and set options + // Setup ARKODE integrator and set options // ---------------------------------------------- // Create integrator diff --git a/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg_mri.cpp b/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg_mri.cpp index 3f1d1d8b35..1f90ddcc7a 100644 --- a/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg_mri.cpp +++ b/examples/arkode/CXX_parhyp/ark_heat2D_hypre_pfmg_mri.cpp @@ -39,7 +39,7 @@ * an inexact Newton method paired with the PCG linear solver using hypre's PFMG * preconditioner for the slow-implicit nonlinear solve and inexact Newton with * GMRES for the fast nonlinear solve. Several command line options are - * available to change the problem parameters and ARKode settings. Use the flag + * available to change the problem parameters and ARKODE settings. Use the flag * --help for more information. * ---------------------------------------------------------------------------*/ diff --git a/examples/arkode/CXX_serial/ark_advection_diffusion_reaction.cpp b/examples/arkode/CXX_serial/ark_advection_diffusion_reaction.cpp index bff4c2aba8..9afe3e1ac3 100644 --- a/examples/arkode/CXX_serial/ark_advection_diffusion_reaction.cpp +++ b/examples/arkode/CXX_serial/ark_advection_diffusion_reaction.cpp @@ -178,7 +178,7 @@ int main(int argc, char* argv[]) // Setup the integrator // -------------------- - // ARKode memory structure + // ARKODE memory structure void* arkode_mem = nullptr; // Matrix and linear solver for DIRK, IMEX, or MRI slow integrators diff --git a/examples/arkode/CXX_serial/ark_heat2D.cpp b/examples/arkode/CXX_serial/ark_heat2D.cpp index d0da950bd6..bf18a6fbb0 100644 --- a/examples/arkode/CXX_serial/ark_heat2D.cpp +++ b/examples/arkode/CXX_serial/ark_heat2D.cpp @@ -41,7 +41,7 @@ * problem is advanced in time with a diagonally implicit Runge-Kutta method * using an inexact Newton method paired with the PCG or SPGMR linear solver. * Several command line options are available to change the problem parameters - * and ARKode settings. Use the flag --help for more information. + * and ARKODE settings. Use the flag --help for more information. * ---------------------------------------------------------------------------*/ #include @@ -290,7 +290,7 @@ int main(int argc, char* argv[]) } // -------------- - // Setup ARKode + // Setup ARKODE // -------------- // Create integrator diff --git a/examples/arkode/CXX_serial/ark_kpr_Mt.cpp b/examples/arkode/CXX_serial/ark_kpr_Mt.cpp index 74de1a344d..ff1d6daa05 100644 --- a/examples/arkode/CXX_serial/ark_kpr_Mt.cpp +++ b/examples/arkode/CXX_serial/ark_kpr_Mt.cpp @@ -157,7 +157,7 @@ int main(int argc, char* argv[]) // general problem variables int retval; // reusable error-checking flag N_Vector y = NULL; // empty vector for the computed solution - void* arkode_mem = NULL; // empty ARKode memory structure + void* arkode_mem = NULL; // empty ARKODE memory structure SUNMatrix A = NULL; // empty system matrix SUNMatrix M = NULL; // empty mass matrix SUNLinearSolver LS = NULL; // empty system linear solver object @@ -667,7 +667,7 @@ static int check_order(void* arkode_mem, N_Vector y, sunrealtype T0, cout << " -----------------------------------------------------\n"; for (size_t ih = 0; ih < hvals.size(); ih++) { - // Reset ARKode for this run + // Reset ARKODE for this run retval = Ytrue(T0, y); if (check_retval(&retval, "Ytrue", 1)) { return 1; } retval = ARKodeReset(arkode_mem, T0, y); diff --git a/examples/arkode/CXX_serial/ark_pendulum.cpp b/examples/arkode/CXX_serial/ark_pendulum.cpp index d351f38239..be36be088c 100644 --- a/examples/arkode/CXX_serial/ark_pendulum.cpp +++ b/examples/arkode/CXX_serial/ark_pendulum.cpp @@ -370,7 +370,7 @@ int main(int argc, char* argv[]) * Clean up * * -------- */ - // Free ARKode integrator and SUNDIALS objects + // Free ARKODE integrator and SUNDIALS objects ARKodeFree(&arkode_mem); SUNLinSolFree(LS); SUNMatDestroy(A); diff --git a/examples/arkode/CXX_superludist/ark_brusselator1D_FEM_sludist.cpp b/examples/arkode/CXX_superludist/ark_brusselator1D_FEM_sludist.cpp index b41e69e82b..25b366c677 100644 --- a/examples/arkode/CXX_superludist/ark_brusselator1D_FEM_sludist.cpp +++ b/examples/arkode/CXX_superludist/ark_brusselator1D_FEM_sludist.cpp @@ -481,7 +481,7 @@ int main(int argc, char* argv[]) MPI_Abort(grid.comm, 1); } - /* Attach the matrix, linear solver, and Jacobian construction routine to ARKode */ + /* Attach the matrix, linear solver, and Jacobian construction routine to ARKODE */ retval = ARKodeSetLinearSolver(arkode_mem, LS, A); if (check_retval(&retval, "ARKodeSetLinearSolver", 1)) { @@ -492,7 +492,7 @@ int main(int argc, char* argv[]) retval = ARKodeSetJacFn(arkode_mem, Jac); if (check_retval(&retval, "ARKodeSetJacFn", 1)) { MPI_Abort(grid.comm, 1); } - /* Attach the mass matrix, linear solver and construction routines to ARKode; + /* Attach the mass matrix, linear solver and construction routines to ARKODE; notify ARKode that the mass matrix is not time-dependent */ retval = ARKodeSetMassLinearSolver(arkode_mem, MLS, M, SUNFALSE); if (check_retval(&retval, "ARKodeSetMassLinearSolver", 1)) diff --git a/examples/arkode/CXX_xbraid/ark_heat2D_hypre_pfmg_xbraid.cpp b/examples/arkode/CXX_xbraid/ark_heat2D_hypre_pfmg_xbraid.cpp index f10509ed43..3d11f6a539 100644 --- a/examples/arkode/CXX_xbraid/ark_heat2D_hypre_pfmg_xbraid.cpp +++ b/examples/arkode/CXX_xbraid/ark_heat2D_hypre_pfmg_xbraid.cpp @@ -448,7 +448,7 @@ int main(int argc, char* argv[]) } // -------------- - // Setup ARKode + // Setup ARKODE // -------------- // Create integrator diff --git a/examples/arkode/CXX_xbraid/ark_heat2D_p_xbraid.cpp b/examples/arkode/CXX_xbraid/ark_heat2D_p_xbraid.cpp index 8db37df9d0..686862ea5a 100644 --- a/examples/arkode/CXX_xbraid/ark_heat2D_p_xbraid.cpp +++ b/examples/arkode/CXX_xbraid/ark_heat2D_p_xbraid.cpp @@ -402,7 +402,7 @@ int main(int argc, char* argv[]) } // -------------- - // Setup ARKode + // Setup ARKODE // -------------- // Create integrator diff --git a/examples/arkode/CXX_xbraid/ark_heat2D_xbraid.cpp b/examples/arkode/CXX_xbraid/ark_heat2D_xbraid.cpp index f1f1bd23da..3ca94f8fcf 100644 --- a/examples/arkode/CXX_xbraid/ark_heat2D_xbraid.cpp +++ b/examples/arkode/CXX_xbraid/ark_heat2D_xbraid.cpp @@ -41,7 +41,7 @@ * with a diagonally implicit Runge-Kutta method from the ARKODE ARKStep module * using an inexact Newton method paired with the PCG or SPGMR linear solver. * Several command line options are available to change the problem parameters - * and ARKode settings. Use the flag --help for more information. + * and ARKODE settings. Use the flag --help for more information. * ---------------------------------------------------------------------------*/ #include @@ -340,7 +340,7 @@ int main(int argc, char* argv[]) } // -------------- - // Setup ARKode + // Setup ARKODE // -------------- // Create integrator diff --git a/examples/arkode/C_openmp/ark_heat1D_omp.c b/examples/arkode/C_openmp/ark_heat1D_omp.c index 74bc2bb27e..4fc8eb998b 100644 --- a/examples/arkode/C_openmp/ark_heat1D_omp.c +++ b/examples/arkode/C_openmp/ark_heat1D_omp.c @@ -97,7 +97,7 @@ int main(int argc, char* argv[]) int flag; /* reusable error-checking flag */ N_Vector y = NULL; /* empty vector for storing solution */ SUNLinearSolver LS = NULL; /* empty linear solver object */ - void* arkode_mem = NULL; /* empty ARKode memory structure */ + void* arkode_mem = NULL; /* empty ARKODE memory structure */ FILE *FID, *UFID; sunrealtype t, dTout, tout; int iout, num_threads; @@ -156,7 +156,7 @@ int main(int argc, char* argv[]) /* Linear solver interface -- set user-supplied J*v routine (no 'jtsetup' required) */ flag = ARKodeSetLinearSolver(arkode_mem, LS, - NULL); /* Attach linear solver to ARKode */ + NULL); /* Attach linear solver to ARKODE */ if (check_flag(&flag, "ARKodeSetLinearSolver", 1)) { return 1; } flag = ARKodeSetJacTimes(arkode_mem, NULL, Jac); /* Set the Jacobian routine */ if (check_flag(&flag, "ARKodeSetJacTimes", 1)) { return 1; } diff --git a/examples/arkode/C_openmpdev/ark_analytic_nonlin_ompdev.c b/examples/arkode/C_openmpdev/ark_analytic_nonlin_ompdev.c index 9e76e3ce9b..1f847e9dfe 100644 --- a/examples/arkode/C_openmpdev/ark_analytic_nonlin_ompdev.c +++ b/examples/arkode/C_openmpdev/ark_analytic_nonlin_ompdev.c @@ -116,7 +116,7 @@ int main(void) while (Tf - t > 1.0e-15) { flag = ARKodeEvolve(arkode_mem, tout, y, &t, ARK_NORMAL); /* call integrator */ - if (check_flag(&flag, "ARKode", 1)) { break; } + if (check_flag(&flag, "ARKodeEvolve", 1)) { break; } N_VCopyFromDevice_OpenMPDEV(y); printf(" %10.6" FSYM " %10.6" FSYM "\n", t, y_data[0]); /* access/print solution */ diff --git a/examples/arkode/C_openmpdev/ark_heat1D_adapt_ompdev.c b/examples/arkode/C_openmpdev/ark_heat1D_adapt_ompdev.c index 02669d9e5e..7d12f225f8 100644 --- a/examples/arkode/C_openmpdev/ark_heat1D_adapt_ompdev.c +++ b/examples/arkode/C_openmpdev/ark_heat1D_adapt_ompdev.c @@ -213,7 +213,7 @@ int main(void) /* Linear solver interface -- set user-supplied J*v routine (no 'jtsetup' required) */ flag = ARKodeSetLinearSolver(arkode_mem, LS, - NULL); /* Attach linear solver to ARKode */ + NULL); /* Attach linear solver to ARKODE */ if (check_flag(&flag, "ARKodeSetLinearSolver", 1)) { return 1; } flag = ARKodeSetJacTimes(arkode_mem, NULL, Jac); /* Set the Jacobian routine */ if (check_flag(&flag, "ARKodeSetJacTimes", 1)) { return 1; } @@ -311,7 +311,7 @@ int main(void) flag = ARKodeResize(arkode_mem, y, hscale, t, NULL, NULL); if (check_flag(&flag, "ARKodeResize", 1)) { return 1; } - /* destroy and re-allocate linear solver memory; reattach to ARKode interface */ + /* destroy and re-allocate linear solver memory; reattach to ARKODE interface */ SUNLinSolFree(LS); LS = SUNLinSol_PCG(y, 0, (int)N, ctx); if (check_flag((void*)LS, "SUNLinSol_PCG", 0)) { return 1; } diff --git a/examples/arkode/C_openmpdev/ark_heat1D_ompdev.c b/examples/arkode/C_openmpdev/ark_heat1D_ompdev.c index 3e252f2f49..82e13c66a7 100644 --- a/examples/arkode/C_openmpdev/ark_heat1D_ompdev.c +++ b/examples/arkode/C_openmpdev/ark_heat1D_ompdev.c @@ -97,7 +97,7 @@ int main(void) int flag; /* reusable error-checking flag */ N_Vector y = NULL; /* empty vector for storing solution */ SUNLinearSolver LS = NULL; /* empty linear solver object */ - void* arkode_mem = NULL; /* empty ARKode memory structure */ + void* arkode_mem = NULL; /* empty ARKODE memory structure */ FILE *FID, *UFID; sunrealtype t, dTout, tout; int iout; diff --git a/examples/arkode/C_parallel/ark_diurnal_kry_bbd_p.c b/examples/arkode/C_parallel/ark_diurnal_kry_bbd_p.c index 2769ced1b8..97802077ee 100644 --- a/examples/arkode/C_parallel/ark_diurnal_kry_bbd_p.c +++ b/examples/arkode/C_parallel/ark_diurnal_kry_bbd_p.c @@ -241,7 +241,7 @@ int main(int argc, char* argv[]) flag = ARKodeSStolerances(arkode_mem, reltol, abstol); if (check_flag(&flag, "ARKodeSStolerances", 1, my_pe)) { return (1); } - /* Attach SPGMR solver structure to ARKode interface */ + /* Attach SPGMR solver structure to ARKODE interface */ flag = ARKodeSetLinearSolver(arkode_mem, LS, NULL); if (check_flag(&flag, "ARKodeSetLinearSolver", 1, my_pe)) { diff --git a/examples/arkode/C_parallel/ark_diurnal_kry_p.c b/examples/arkode/C_parallel/ark_diurnal_kry_p.c index ade42769dc..b7b08ab4c3 100644 --- a/examples/arkode/C_parallel/ark_diurnal_kry_p.c +++ b/examples/arkode/C_parallel/ark_diurnal_kry_p.c @@ -255,7 +255,7 @@ int main(int argc, char* argv[]) flag = ARKodeSStolerances(arkode_mem, reltol, abstol); if (check_flag(&flag, "ARKodeSStolerances", 1, my_pe)) { return (1); } - /* Attach SPGMR solver structure to ARKode interface */ + /* Attach SPGMR solver structure to ARKODE interface */ flag = ARKodeSetLinearSolver(arkode_mem, LS, NULL); if (check_flag(&flag, "ARKodeSetLinearSolver", 1, my_pe)) { diff --git a/examples/arkode/C_parhyp/ark_diurnal_kry_ph.c b/examples/arkode/C_parhyp/ark_diurnal_kry_ph.c index 5c90a93281..ab5090e86f 100644 --- a/examples/arkode/C_parhyp/ark_diurnal_kry_ph.c +++ b/examples/arkode/C_parhyp/ark_diurnal_kry_ph.c @@ -263,7 +263,7 @@ int main(int argc, char* argv[]) flag = ARKodeSStolerances(arkode_mem, reltol, abstol); if (check_flag(&flag, "ARKodeSStolerances", 1, my_pe)) { return (1); } - /* Attach SPGMR solver structure to ARKode interface */ + /* Attach SPGMR solver structure to ARKODE interface */ flag = ARKodeSetLinearSolver(arkode_mem, LS, NULL); if (check_flag(&flag, "ARKodeSetLinearSolver", 1, my_pe)) { diff --git a/examples/arkode/C_petsc/ark_petsc_ex25.c b/examples/arkode/C_petsc/ark_petsc_ex25.c index 180be37843..0c0bf03fba 100644 --- a/examples/arkode/C_petsc/ark_petsc_ex25.c +++ b/examples/arkode/C_petsc/ark_petsc_ex25.c @@ -60,7 +60,7 @@ static PetscErrorCode FormIFunction(PetscReal, Vec, Vec, Vec, void*); static PetscErrorCode FormIJacobian(SNES, Vec, Mat, Mat, void*); static PetscErrorCode FormInitialSolution(Vec, void*); -/* User-supplied Functions called by ARKode */ +/* User-supplied Functions called by ARKODE */ static int f_I(PetscReal, N_Vector, N_Vector, void*); static int f_E(PetscReal, N_Vector, N_Vector, void*); @@ -188,7 +188,7 @@ int main(int argc, char** argv) dt = 0.4 * PetscSqr(hx) / user.alpha; /* Diffusive stability limit */ /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Create ARKode time stepper + Create ARKODE time stepper - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ /* Call ARKStepCreate to initialize the ARK timestepper module and @@ -225,7 +225,7 @@ int main(int argc, char** argv) CHKERRQ(ierr); /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Set ARKode options + Set ARKODE options - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ ierr = ARKodeSStolerances(arkode_mem, rtol, atol); @@ -305,7 +305,7 @@ int main(int argc, char** argv) } /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - User provided functions in ARKode format + User provided functions in ARKODE format - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ /* Implicit component of RHS */ diff --git a/examples/arkode/C_serial/ark_analytic_mels.c b/examples/arkode/C_serial/ark_analytic_mels.c index 334323a9bf..08d0fa5884 100644 --- a/examples/arkode/C_serial/ark_analytic_mels.c +++ b/examples/arkode/C_serial/ark_analytic_mels.c @@ -46,7 +46,7 @@ #define FSYM "f" #endif -/* User-supplied functions called by ARKode */ +/* User-supplied functions called by ARKODE */ static int f(sunrealtype t, N_Vector y, N_Vector ydot, void* user_data); /* Custom linear solver data structure, accessor macros, and routines */ @@ -249,7 +249,7 @@ static int MatrixEmbeddedLSSolve(SUNLinearSolver LS, SUNMatrix A, N_Vector x, sunrealtype* rdata; sunrealtype lamda; - /* retrieve implicit system data from ARKode */ + /* retrieve implicit system data from ARKODE */ retval = ARKodeGetNonlinearSystemData(LS->content, &tcur, &zpred, &z, &Fi, &gamma, &sdata, &user_data); if (check_retval((void*)&retval, "ARKodeGetNonlinearSystemData", 1)) diff --git a/examples/arkode/C_serial/ark_brusselator1D_FEM_slu.c b/examples/arkode/C_serial/ark_brusselator1D_FEM_slu.c index 09dcea4b6b..a79e142eea 100644 --- a/examples/arkode/C_serial/ark_brusselator1D_FEM_slu.c +++ b/examples/arkode/C_serial/ark_brusselator1D_FEM_slu.c @@ -311,7 +311,7 @@ int main(int argc, char* argv[]) MLS = SUNLinSol_SuperLUMT(y, M, num_threads, ctx); if (check_retval((void*)MLS, "SUNLinSol_SuperLUMT", 0)) { return (1); } - /* Attach the matrix, linear solver, and Jacobian construction routine to ARKode */ + /* Attach the matrix, linear solver, and Jacobian construction routine to ARKODE */ /* Attach matrix and LS */ retval = ARKodeSetLinearSolver(arkode_mem, LS, A); diff --git a/examples/arkode/C_serial/ark_brusselator1D_klu.c b/examples/arkode/C_serial/ark_brusselator1D_klu.c index 07d151ac8c..208acb9a92 100644 --- a/examples/arkode/C_serial/ark_brusselator1D_klu.c +++ b/examples/arkode/C_serial/ark_brusselator1D_klu.c @@ -236,7 +236,7 @@ int main(void) LS = SUNLinSol_KLU(y, A, ctx); if (check_flag((void*)LS, "SUNLinSol_KLU", 0)) { return 1; } - /* Attach the matrix, linear solver, and Jacobian construction routine to ARKode */ + /* Attach the matrix, linear solver, and Jacobian construction routine to ARKODE */ flag = ARKodeSetLinearSolver(arkode_mem, LS, A); /* Attach matrix and LS */ if (check_flag(&flag, "ARKodeSetLinearSolver", 1)) { return 1; } flag = ARKodeSetJacFn(arkode_mem, Jac); /* Supply Jac routine */ diff --git a/examples/arkode/C_serial/ark_brusselator_fp.c b/examples/arkode/C_serial/ark_brusselator_fp.c index f3e2664f07..96b6e2fff6 100644 --- a/examples/arkode/C_serial/ark_brusselator_fp.c +++ b/examples/arkode/C_serial/ark_brusselator_fp.c @@ -185,7 +185,7 @@ int main(int argc, char* argv[]) arkode_mem = ARKStepCreate(fe, fi, T0, y, ctx); if (check_flag((void*)arkode_mem, "ARKStepCreate", 0)) { return 1; } - /* Initialize fixed-point nonlinear solver and attach to ARKode */ + /* Initialize fixed-point nonlinear solver and attach to ARKODE */ NLS = SUNNonlinSol_FixedPoint(y, fp_m, ctx); if (check_flag((void*)NLS, "SUNNonlinSol_FixedPoint", 0)) { return 1; } diff --git a/examples/arkode/C_serial/ark_dissipated_exp_entropy.c b/examples/arkode/C_serial/ark_dissipated_exp_entropy.c index 1b4bd469a5..5b071b61ae 100644 --- a/examples/arkode/C_serial/ark_dissipated_exp_entropy.c +++ b/examples/arkode/C_serial/ark_dissipated_exp_entropy.c @@ -383,7 +383,7 @@ int main(int argc, char* argv[]) * Clean up * * -------- */ - /* Free ARKode integrator and SUNDIALS objects */ + /* Free ARKODE integrator and SUNDIALS objects */ ARKodeFree(&arkode_mem); SUNLinSolFree(LS); SUNMatDestroy(A); diff --git a/examples/arkode/C_serial/ark_heat1D.c b/examples/arkode/C_serial/ark_heat1D.c index e47c614ac8..c5e7597ecb 100644 --- a/examples/arkode/C_serial/ark_heat1D.c +++ b/examples/arkode/C_serial/ark_heat1D.c @@ -141,7 +141,7 @@ int main(void) /* Linear solver interface -- set user-supplied J*v routine (no 'jtsetup' required) */ flag = ARKodeSetLinearSolver(arkode_mem, LS, - NULL); /* Attach linear solver to ARKode */ + NULL); /* Attach linear solver to ARKODE */ if (check_flag(&flag, "ARKodeSetLinearSolver", 1)) { return 1; } flag = ARKodeSetJacTimes(arkode_mem, NULL, Jac); /* Set the Jacobian routine */ if (check_flag(&flag, "ARKodeSetJacTimes", 1)) { return 1; } diff --git a/examples/arkode/C_serial/ark_heat1D_adapt.c b/examples/arkode/C_serial/ark_heat1D_adapt.c index 415b878d8a..3f9e349073 100644 --- a/examples/arkode/C_serial/ark_heat1D_adapt.c +++ b/examples/arkode/C_serial/ark_heat1D_adapt.c @@ -184,7 +184,7 @@ int main(void) /* Linear solver interface -- set user-supplied J*v routine (no 'jtsetup' required) */ flag = ARKodeSetLinearSolver(arkode_mem, LS, - NULL); /* Attach linear solver to ARKode */ + NULL); /* Attach linear solver to ARKODE */ if (check_flag(&flag, "ARKodeSetLinearSolver", 1)) { return 1; } flag = ARKodeSetJacTimes(arkode_mem, NULL, Jac); /* Set the Jacobian routine */ if (check_flag(&flag, "ARKodeSetJacTimes", 1)) { return 1; } @@ -266,7 +266,7 @@ int main(void) flag = ARKodeResize(arkode_mem, y, hscale, t, NULL, NULL); if (check_flag(&flag, "ARKodeResize", 1)) { return 1; } - /* destroy and re-allocate linear solver memory; reattach to ARKode interface */ + /* destroy and re-allocate linear solver memory; reattach to ARKODE interface */ SUNLinSolFree(LS); LS = SUNLinSol_PCG(y, 0, (int)N, ctx); if (check_flag((void*)LS, "SUNLinSol_PCG", 0)) { return 1; } diff --git a/examples/arkode/F2003_custom/ark_brusselator1D_f2003.f90 b/examples/arkode/F2003_custom/ark_brusselator1D_f2003.f90 index ad0e815ae0..579d70479c 100644 --- a/examples/arkode/F2003_custom/ark_brusselator1D_f2003.f90 +++ b/examples/arkode/F2003_custom/ark_brusselator1D_f2003.f90 @@ -334,7 +334,7 @@ program main stop 1 end if - ! initialize custom matrix data structure and solver; attach to ARKode + ! initialize custom matrix data structure and solver; attach to ARKODE sunmat_A => FSUNMatNew_Fortran(Nvar, N, sunctx) if (.not. associated(sunmat_A)) then print *,'ERROR: sunmat = NULL'