fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix use of psb_stringc2f

Browse Source
This commit is contained in:
Salvatore Filippone
2026-01-15 15:26:11 +01:00
parent bab8a27962
commit 95382fbb01
2 changed files with 14 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/amgprec/amg_dprec_cbind_mod.F90
+7 -8
View File
@@ -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
+7 -8
View File
@@ -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)