From 294361e7f6c9a9d8fd67f54b6eb7f0b5114551da Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mustafa=20A=C4=9Fg=C3=BCl?=
 <33010171+maggul@users.noreply.github.com>
Date: Thu, 30 Jan 2025 20:39:59 -0600
Subject: [PATCH] Maintenance: Fixing incorrect function name returns in
 check_flag calls (#658)

Some of the `check_flag` calls in the LSRK examples were not returning
the correct function names.
---
 examples/arkode/C_serial/ark_analytic_lsrk.c        | 4 ++--
 examples/arkode/C_serial/ark_analytic_lsrk_varjac.c | 6 +++---
 examples/arkode/C_serial/ark_analytic_ssprk.c       | 4 ++--
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/examples/arkode/C_serial/ark_analytic_lsrk.c b/examples/arkode/C_serial/ark_analytic_lsrk.c
index cfab047826..3838365dc6 100644
--- a/examples/arkode/C_serial/ark_analytic_lsrk.c
+++ b/examples/arkode/C_serial/ark_analytic_lsrk.c
@@ -122,7 +122,7 @@ int main(void)
      specify the right-hand side function in y'=f(t,y), the initial time
      T0, and the initial dependent variable vector y. */
   arkode_mem = LSRKStepCreateSTS(f, T0, y, ctx);
-  if (check_flag((void*)arkode_mem, "ARKStepCreate", 0)) { return 1; }
+  if (check_flag((void*)arkode_mem, "LSRKStepCreateSTS", 0)) { return 1; }
 
   /* Set routines */
   flag = ARKodeSetUserData(arkode_mem,
@@ -131,7 +131,7 @@ int main(void)
 
   /* Specify tolerances */
   flag = ARKodeSStolerances(arkode_mem, reltol, abstol);
-  if (check_flag(&flag, "ARKStepSStolerances", 1)) { return 1; }
+  if (check_flag(&flag, "ARKodeSStolerances", 1)) { return 1; }
 
   /* Specify user provided spectral radius */
   flag = LSRKStepSetDomEigFn(arkode_mem, dom_eig);
diff --git a/examples/arkode/C_serial/ark_analytic_lsrk_varjac.c b/examples/arkode/C_serial/ark_analytic_lsrk_varjac.c
index aa71b0c114..93401f27f7 100644
--- a/examples/arkode/C_serial/ark_analytic_lsrk_varjac.c
+++ b/examples/arkode/C_serial/ark_analytic_lsrk_varjac.c
@@ -147,7 +147,7 @@ int main(void)
      specify the right-hand side function in y'=f(t,y), the initial time
      T0, and the initial dependent variable vector y. */
   arkode_mem = LSRKStepCreateSTS(f, T0, y, ctx);
-  if (check_flag((void*)arkode_mem, "ARKStepCreate", 0)) { return 1; }
+  if (check_flag((void*)arkode_mem, "LSRKStepCreateSTS", 0)) { return 1; }
 
   /* Set routines */
   flag = ARKodeSetUserData(arkode_mem,
@@ -156,7 +156,7 @@ int main(void)
 
   /* Specify tolerances */
   flag = ARKodeSStolerances(arkode_mem, reltol, abstol);
-  if (check_flag(&flag, "ARKStepSStolerances", 1)) { return 1; }
+  if (check_flag(&flag, "ARKodeSStolerances", 1)) { return 1; }
 
   /* Specify user provided spectral radius */
   flag = LSRKStepSetDomEigFn(arkode_mem, dom_eig);
@@ -198,7 +198,7 @@ int main(void)
   while (Tf - t > SUN_RCONST(1.0e-15))
   {
     flag = ARKodeEvolve(arkode_mem, tout, y, &t, ARK_NORMAL); /* call integrator */
-    if (check_flag(&flag, "LSRKodeEvolve", 1)) { break; }
+    if (check_flag(&flag, "ARKodeEvolve", 1)) { break; }
     printf("  %10.6" FSYM "  %10.6" FSYM "\n", t,
            N_VGetArrayPointer(y)[0]); /* access/print solution */
     fprintf(UFID, " %.16" ESYM " %.16" ESYM "\n", t, N_VGetArrayPointer(y)[0]);
diff --git a/examples/arkode/C_serial/ark_analytic_ssprk.c b/examples/arkode/C_serial/ark_analytic_ssprk.c
index bdf173bae4..37543af020 100644
--- a/examples/arkode/C_serial/ark_analytic_ssprk.c
+++ b/examples/arkode/C_serial/ark_analytic_ssprk.c
@@ -113,7 +113,7 @@ int main(void)
      specify the right-hand side function in y'=f(t,y), the initial time
      T0, and the initial dependent variable vector y. */
   arkode_mem = LSRKStepCreateSSP(f, T0, y, ctx);
-  if (check_flag((void*)arkode_mem, "ARKStepCreate", 0)) { return 1; }
+  if (check_flag((void*)arkode_mem, "LSRKStepCreateSSP", 0)) { return 1; }
 
   /* Set routines */
   flag = ARKodeSetUserData(arkode_mem,
@@ -122,7 +122,7 @@ int main(void)
 
   /* Specify tolerances */
   flag = ARKodeSStolerances(arkode_mem, reltol, abstol);
-  if (check_flag(&flag, "ARKStepSStolerances", 1)) { return 1; }
+  if (check_flag(&flag, "ARKodeSStolerances", 1)) { return 1; }
 
   /* Specify max number of steps allowed */
   flag = ARKodeSetMaxNumSteps(arkode_mem, 1000);