From 95382fbb0154717f2815d89ada0fa2b292adb25e Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Thu, 15 Jan 2026 15:26:11 +0100
Subject: [PATCH] Fix use of psb_stringc2f

---
 cbind/amgprec/amg_dprec_cbind_mod.F90 | 15 +++++++--------
 cbind/amgprec/amg_zprec_cbind_mod.F90 | 15 +++++++--------
 2 files changed, 14 insertions(+), 16 deletions(-)

diff --git a/cbind/amgprec/amg_dprec_cbind_mod.F90 b/cbind/amgprec/amg_dprec_cbind_mod.F90
index 26d8dda4..c373dee3 100644
--- a/cbind/amgprec/amg_dprec_cbind_mod.F90
+++ b/cbind/amgprec/amg_dprec_cbind_mod.F90
@@ -43,7 +43,7 @@ contains
 
     ph%item = c_loc(precp)
 
-    call stringc2f(ptype,fptype)
+    call psb_stringc2f(ptype,fptype)
 
     call precp%init(psb_c2f_ctxt(cctxt),fptype,iret)
 
@@ -70,7 +70,7 @@ contains
       return
     end if
 
-    call stringc2f(what,fwhat)
+    call psb_stringc2f(what,fwhat)
 
     call precp%set(fwhat,val,iret)
 
@@ -98,7 +98,7 @@ contains
       return
     end if
 
-    call stringc2f(what,fwhat)
+    call psb_stringc2f(what,fwhat)
 
     call precp%set(fwhat,val,iret)
 
@@ -124,8 +124,8 @@ contains
       return
     end if
 
-    call stringc2f(what,fwhat)
-    call stringc2f(val,fval)
+    call psb_stringc2f(what,fwhat)
+    call psb_stringc2f(val,fval)
 
     call precp%set(fwhat,fval,iret)
 
@@ -273,7 +273,6 @@ contains
     use psb_linsolve_mod
     use psb_objhandle_mod
     use psb_prec_cbind_mod
-    use psb_base_string_cbind_mod
     implicit none
     integer(psb_c_ipk_)          :: res
     type(psb_c_object_type) :: ah,cdh,ph,bh,xh
@@ -319,7 +318,7 @@ contains
     end if
 
 
-    call stringc2f(methd,fmethd)
+    call psb_stringc2f(methd,fmethd)
     feps    = eps
     fitmax  = itmax
     fitrace = itrace
@@ -431,7 +430,7 @@ end function amg_c_dprecapply
     end if
 
     ! Convert transpose flag
-    call stringc2f(ctrans,ftrans)
+    call psb_stringc2f(ctrans,ftrans)
     
     ! Apply preconditioner
     call precp%apply(bp,xp,descp,info,trans=ftrans)
diff --git a/cbind/amgprec/amg_zprec_cbind_mod.F90 b/cbind/amgprec/amg_zprec_cbind_mod.F90
index 4e6a00d9..fa686a84 100644
--- a/cbind/amgprec/amg_zprec_cbind_mod.F90
+++ b/cbind/amgprec/amg_zprec_cbind_mod.F90
@@ -44,7 +44,7 @@ contains
 
     ph%item = c_loc(precp)
 
-    call stringc2f(ptype,fptype)
+    call psb_stringc2f(ptype,fptype)
 
     call precp%init(psb_c2f_ctxt(cctxt),fptype,iret)
 
@@ -71,7 +71,7 @@ contains
       return
     end if
 
-    call stringc2f(what,fwhat)
+    call psb_stringc2f(what,fwhat)
 
     call precp%set(fwhat,val,iret)
 
@@ -99,7 +99,7 @@ contains
       return
     end if
 
-    call stringc2f(what,fwhat)
+    call psb_stringc2f(what,fwhat)
 
     call precp%set(fwhat,val,iret)
 
@@ -125,8 +125,8 @@ contains
       return
     end if
 
-    call stringc2f(what,fwhat)
-    call stringc2f(val,fval)
+    call psb_stringc2f(what,fwhat)
+    call psb_stringc2f(val,fval)
 
     call precp%set(fwhat,fval,iret)
 
@@ -269,7 +269,6 @@ contains
        & ah,ph,bh,xh,eps,cdh,itmax,iter,err,itrace,irst,istop) bind(c) result(res)
     use psb_linsolve_mod
     use psb_objhandle_mod
-    use psb_base_string_cbind_mod
     implicit none
     integer(psb_c_ipk_)          :: res
     type(psb_c_object_type) :: ah,cdh,ph,bh,xh
@@ -315,7 +314,7 @@ contains
     end if
 
 
-    call stringc2f(methd,fmethd)
+    call psb_stringc2f(methd,fmethd)
     feps    = eps
     fitmax  = itmax
     fitrace = itrace
@@ -427,7 +426,7 @@ contains
     end if
 
     ! Convert transpose flag
-    call stringc2f(ctrans,ftrans)
+    call psb_stringc2f(ctrans,ftrans)
     
     ! Apply preconditioner
     call precp%apply(bp,xp,descp,info,trans=ftrans)