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

Override DESCR for aggregator, testing.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-09-19 12:26:06 +01:00
parent 660d00d49b
commit 5848b592bd
2 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_d_dec_aggregator_mod.f90
+15
View File
@@ -97,6 +97,7 @@ module mld_d_dec_aggregator_mod
procedure, pass(ag) :: mat_asb => mld_d_dec_aggregator_mat_asb
procedure, pass(ag) :: default => mld_d_dec_aggregator_default
procedure, pass(ag) :: set_aggr_type => mld_d_dec_aggregator_set_aggr_type
procedure, pass(ag) :: descr => mld_d_dec_aggregator_descr
procedure, nopass :: fmt => mld_d_dec_aggregator_fmt
end type mld_d_dec_aggregator_type
@@ -189,5 +190,19 @@ contains
val = "Decoupled aggregation"
end function mld_d_dec_aggregator_fmt
subroutine mld_d_dec_aggregator_descr(ag,parms,iout,info)
implicit none
class(mld_d_dec_aggregator_type), intent(in) :: ag
type(mld_dml_parms), intent(in) :: parms
integer(psb_ipk_), intent(in) :: iout
integer(psb_ipk_), intent(out) :: info
write(iout,*) 'Decoupled Aggregator'
write(iout,*) 'Aggregator object type: ',ag%fmt()
call parms%mldescr(iout,info)
return
end subroutine mld_d_dec_aggregator_descr
end module mld_d_dec_aggregator_mod
mlprec/mld_d_symdec_aggregator_mod.f90
+15
View File
@@ -95,6 +95,7 @@ module mld_d_symdec_aggregator_mod
contains
procedure, pass(ag) :: bld_tprol => mld_d_symdec_aggregator_build_tprol
procedure, pass(ag) :: descr => mld_d_symdec_aggregator_descr
procedure, nopass :: fmt => mld_d_symdec_aggregator_fmt
end type mld_d_symdec_aggregator_type
@@ -124,4 +125,18 @@ contains
val = "Symmetric Decoupled aggregation"
end function mld_d_symdec_aggregator_fmt
subroutine mld_d_symdec_aggregator_descr(ag,parms,iout,info)
implicit none
class(mld_d_symdec_aggregator_type), intent(in) :: ag
type(mld_dml_parms), intent(in) :: parms
integer(psb_ipk_), intent(in) :: iout
integer(psb_ipk_), intent(out) :: info
write(iout,*) 'Decoupled Aggregator locally-symmetrized'
write(iout,*) 'Aggregator object type: ',ag%fmt()
call parms%mldescr(iout,info)
return
end subroutine mld_d_symdec_aggregator_descr
end module mld_d_symdec_aggregator_mod