Fix use of psb_stringc2f

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)

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)