From 6862a464e5182bd34c04c6a38dfd20f41049286f Mon Sep 17 00:00:00 2001 From: Fabio Durastante Date: Wed, 30 Sep 2026 16:44:19 +0200 Subject: [PATCH] Added string trimming to improve passage of arguments from C interfaces --- amgprec/amg_d_mumps_solver.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/amgprec/amg_d_mumps_solver.F90 b/amgprec/amg_d_mumps_solver.F90 index 38357bb1..a80e4e83 100644 --- a/amgprec/amg_d_mumps_solver.F90 +++ b/amgprec/amg_d_mumps_solver.F90 @@ -420,7 +420,7 @@ subroutine d_mumps_solver_cseti(sv,what,val,info,idx) info = psb_success_ call psb_erractionsave(err_act) - select case(psb_toupper(what)) + select case(psb_toupper(trim(what))) #if defined(AMG_HAVE_MUMPS) case('MUMPS_LOC_GLOB') sv%ipar(1) = val @@ -466,7 +466,7 @@ subroutine d_mumps_solver_csetr(sv,what,val,info,idx) info = psb_success_ call psb_erractionsave(err_act) - select case(psb_toupper(what)) + select case(psb_toupper(trim(what))) #if defined(AMG_HAVE_MUMPS) case('MUMPS_RPAR_ENTRY') if(present(idx)) then