From 84d4f0dd76fd65a7023f042a1c7e7ac416d152db Mon Sep 17 00:00:00 2001 From: "Daniel R. Reynolds" Date: Thu, 24 Oct 2024 23:58:43 -0500 Subject: [PATCH] Bugfix from last commit --- include/sundials/sundials_adaptcontroller.h | 6 +++--- .../mrihtol/sunadaptcontroller_mrihtol.c | 2 +- src/sundials/sundials_adaptcontroller.c | 12 ++++++------ 3 files changed, 10 insertions(+), 10 deletions(-) diff --git a/include/sundials/sundials_adaptcontroller.h b/include/sundials/sundials_adaptcontroller.h index 24ff59a874..4d5c9bf9ca 100644 --- 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 index dc02ce58ab..fd25b48221 100644 --- 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 index e841b08a60..4641f1751c 100644 --- 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); }