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

Redefine interface of prec%descr to get INFO

Browse Source
This commit is contained in:
Salvatore Filippone
2021-05-06 19:17:19 +02:00
parent 50951ef636
commit 555d7433b7
18 changed files with 32 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/amgprec/amg_dprec_cbind_mod.F90
+2 -2
View File
@@ -384,7 +384,7 @@ contains
integer(psb_c_ipk_) :: res
type(psb_c_object_type) :: ph
integer :: info
integer(psb_c_ipk_) :: info
type(amg_dprec_type), pointer :: precp
res = -1
@@ -396,7 +396,7 @@ contains
end if
call precp%descr()
call precp%descr(info)
call flush(psb_out_unit)
info = 0
cbind/amgprec/amg_zprec_cbind_mod.F90
+2 -2
View File
@@ -384,7 +384,7 @@ contains
integer(psb_c_ipk_) :: res
type(psb_c_object_type) :: ph
integer :: info
integer(psb_c_ipk_) :: info
type(amg_zprec_type), pointer :: precp
res = -1
@@ -396,7 +396,7 @@ contains
end if
call precp%descr()
call precp%descr(info)
call flush(psb_out_unit)
info = 0