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

Fix use of stringc2f

Browse Source
This commit is contained in:
sfilippone
2026-01-15 11:40:36 +01:00
parent bab8a27962
commit f586df1ac3
2 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/amgprec/amg_dprec_cbind_mod.F90
+7 -7
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)
@@ -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)
cbind/amgprec/amg_zprec_cbind_mod.F90
+7 -7
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)
@@ -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)