Merge branch 'gpucinterfaces' of github.com:sfilippone/amg4psblas into gpucinterfaces

gpucinterfaces
sfilippone 4 months ago
commit 1a969488e3

@ -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

@ -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

Loading…
Cancel
Save