Command-line control over scalar-valued set routines

examples/arkode/C_serial/ark_analytic.c

@@ -62,7 +62,7 @@ static int check_ans(N_Vector y, sunrealtype t, sunrealtype rtol,
                      sunrealtype atol);
 
 /* Main Program */
-int main(void)
+int main(int argc, char* argv[])
 {
   /* general problem parameters */
   sunrealtype T0     = SUN_RCONST(0.0);    /* initial time */
@@ -130,6 +130,10 @@ int main(void)
   flag = ARKodeSetLinear(arkode_mem, 0);
   if (check_flag(&flag, "ARKodeSetLinear", 1)) { return 1; }
 
+  /* Override any current settings with command-line options */
+  flag = ARKodeSetFromCommandLine(arkode_mem, "", argc, argv);
+  if (check_flag(&flag, "ARKodeSetFromCommandLine", 1)) { return 1; }
+
   /* Open output stream for results, output comment line */
   UFID = fopen("solution.txt", "w");
   fprintf(UFID, "# t u\n");

include/arkode/arkode.h

@@ -214,6 +214,10 @@ typedef enum
  * Shared API routines
  * -------------------------- */
 
+/* Command-line control over ARKODE options */
+SUNDIALS_EXPORT int ARKodeSetFromCommandLine(void* arkode_mem, const char* arkid,
+                                             int argc, char* argv[]);
+
 /* Resize and Reset functions */
 SUNDIALS_EXPORT int ARKodeResize(void* arkode_mem, N_Vector ynew,
                                  sunrealtype hscale, sunrealtype t0,

src/arkode/CMakeLists.txt

@@ -27,6 +27,7 @@ set(arkode_SOURCES
     arkode_butcher_dirk.c
     arkode_butcher_erk.c
     arkode_butcher.c
+    arkode_cli.c
     arkode_erkstep_io.c
     arkode_erkstep.c
     arkode_forcingstep.c

src/arkode/arkode.c

@@ -1545,6 +1545,7 @@ ARKodeMem arkCreate(SUNContext sunctx)
   ark_mem->step_setstagepredictfn         = NULL;
   ark_mem->step_getnumrhsevals            = NULL;
   ark_mem->step_setstepdirection          = NULL;
+  ark_mem->step_setfromcommandline        = NULL;
   ark_mem->step_getnumlinsolvsetups       = NULL;
   ark_mem->step_setadaptcontroller        = NULL;
   ark_mem->step_getestlocalerrors         = NULL;

src/arkode/arkode_arkstep_io.c

@@ -628,6 +628,19 @@ int ARKStepGetTimestepperStats(void* arkode_mem, long int* expsteps,
   Private functions attached to ARKODE
   ===============================================================*/
 
+/*---------------------------------------------------------------
+  arkStep_SetFromCommandLine:
+
+  Provides command-line control over ARKStep-specific "set" routines.
+  ---------------------------------------------------------------*/
+int arkStep_SetFromCommandLine(ARKodeMem ark_mem, int* i, char* argv[],
+                               const size_t offset, sunbooleantype* arg_used)
+{
+
+  return (ARK_SUCCESS);
+}
+
+
 /*---------------------------------------------------------------
   arkStep_SetRelaxFn: