Bugfix from last commit

LLNL · Oct 25, 2024 · 84d4f0d · 84d4f0d
1 parent f787627
commit 84d4f0d
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 10 deletions.
diff --git a/include/sundials/sundials_adaptcontroller.h b/include/sundials/sundials_adaptcontroller.h
@@ -77,9 +77,9 @@ struct _generic_SUNAdaptController_Ops
   SUNErrCode (*write)(SUNAdaptController C, FILE* fptr);
   SUNErrCode (*seterrorbias)(SUNAdaptController C, sunrealtype bias);
   SUNErrCode (*updateh)(SUNAdaptController C, sunrealtype h, sunrealtype dsm);
-  SUNErrCode (*updatemritol)(SUNAdaptController C, sunrealtype H,
-                             sunrealtype tolfac, sunrealtype DSM,
-                             sunrealtype dsm);
+  SUNErrCode (*updatemrihtol)(SUNAdaptController C, sunrealtype H,
+                              sunrealtype tolfac, sunrealtype DSM,
+                              sunrealtype dsm);
   SUNErrCode (*space)(SUNAdaptController C, long int* lenrw, long int* leniw);
 };
 

diff --git a/src/sunadaptcontroller/mrihtol/sunadaptcontroller_mrihtol.c b/src/sunadaptcontroller/mrihtol/sunadaptcontroller_mrihtol.c
@@ -82,7 +82,7 @@ SUNAdaptController SUNAdaptController_MRIHTol(SUNAdaptController HControl,
   C->ops->setdefaults     = SUNAdaptController_SetDefaults_MRIHTol;
   C->ops->write           = SUNAdaptController_Write_MRIHTol;
   C->ops->seterrorbias    = SUNAdaptController_SetErrorBias_MRIHTol;
-  C->ops->updatemritol    = SUNAdaptController_UpdateMRIHTol_MRIHTol;
+  C->ops->updatemrihtol   = SUNAdaptController_UpdateMRIHTol_MRIHTol;
   C->ops->space           = SUNAdaptController_Space_MRIHTol;
 
   /* Create content */

diff --git a/src/sundials/sundials_adaptcontroller.c b/src/sundials/sundials_adaptcontroller.c
@@ -55,7 +55,7 @@ SUNAdaptController SUNAdaptController_NewEmpty(SUNContext sunctx)
   ops->write           = NULL;
   ops->seterrorbias    = NULL;
   ops->updateh         = NULL;
-  ops->updatemritol    = NULL;
+  ops->updatemrihtol   = NULL;
   ops->space           = NULL;
 
   /* attach ops and initialize content to NULL */
@@ -206,16 +206,16 @@ SUNErrCode SUNAdaptController_UpdateH(SUNAdaptController C, sunrealtype h,
   return (ier);
 }
 
-SUNErrCode SUNAdaptController_UpdateMRITol(SUNAdaptController C, sunrealtype H,
-                                           sunrealtype tolfac, sunrealtype DSM,
-                                           sunrealtype dsm)
+SUNErrCode SUNAdaptController_UpdateMRIHTol(SUNAdaptController C, sunrealtype H,
+                                            sunrealtype tolfac, sunrealtype DSM,
+                                            sunrealtype dsm)
 {
   SUNErrCode ier = SUN_SUCCESS;
   if (C == NULL) { return SUN_ERR_ARG_CORRUPT; }
   SUNFunctionBegin(C->sunctx);
-  if (C->ops->updatemritol)
+  if (C->ops->updatemrihtol)
   {
-    ier = C->ops->updatemritol(C, H, tolfac, DSM, dsm);
+    ier = C->ops->updatemrihtol(C, H, tolfac, DSM, dsm);
   }
   return (ier);
 }