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

bcmag in the test program.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-09-15 10:44:49 +01:00
parent 5664c97555
commit 8c3faf0e9a
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/Bcmatch/mld_d_pde3d.f90
+3 -1
View File
@@ -577,6 +577,7 @@ program mld_d_pde3d
use psb_util_mod
use data_input
use mld_d_pde3d_mod
use mld_d_bcmatch_aggregator_mod
implicit none
! input parameters
@@ -590,6 +591,7 @@ program mld_d_pde3d
! sparse matrix and preconditioner
type(psb_dspmat_type) :: a
type(mld_dprec_type) :: prec
type(mld_d_bcmatch_aggregator_type) :: bcmag
! descriptor
type(psb_desc_type) :: desc_a
! dense vectors
@@ -814,7 +816,7 @@ program mld_d_pde3d
call prec%set('coarse_fillin', p_choice%cfill, info)
call prec%set('coarse_iluthrs', p_choice%cthres, info)
call prec%set('coarse_sweeps', p_choice%cjswp, info)
!call prec%set(bcmag,info)
end select
! build the preconditioner