From f586df1ac3c61ca18372378b62ad85a8919c54fa Mon Sep 17 00:00:00 2001
From: sfilippone <filippone.salvatore@gmail.com>
Date: Thu, 15 Jan 2026 11:40:36 +0100
Subject: [PATCH] Fix use of stringc2f

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

diff --git a/cbind/amgprec/amg_dprec_cbind_mod.F90 b/cbind/amgprec/amg_dprec_cbind_mod.F90
index 26d8dda4..d5cbc502 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)
 
@@ -319,7 +319,7 @@ contains
     end if
 
 
-    call stringc2f(methd,fmethd)
+    call psb_stringc2f(methd,fmethd)
     feps    = eps
     fitmax  = itmax
     fitrace = itrace
@@ -431,7 +431,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..154fc4c7 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)
 
@@ -315,7 +315,7 @@ contains
     end if
 
 
-    call stringc2f(methd,fmethd)
+    call psb_stringc2f(methd,fmethd)
     feps    = eps
     fitmax  = itmax
     fitrace = itrace
@@ -427,7 +427,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)