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

mld2p4-2:

Browse Source 
mlprec/impl/mld_cprecinit.F90
 mlprec/impl/mld_dprecinit.F90
 mlprec/impl/mld_sprecinit.F90
 mlprec/impl/mld_zprecinit.F90

Explicitly initialize filter_mat
This commit is contained in:
Salvatore Filippone
2016-10-02 10:03:55 +00:00
parent 3b9c74359b
commit 0898738486
4 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_cprecinit.F90
+1
View File
@@ -207,6 +207,7 @@ subroutine mld_cprecinit(p,ptype,info,nlev)
do ilev_=1,nlev_
call p%precv(ilev_)%set(mld_aggr_thresh_,thr,info)
call p%precv(ilev_)%set(mld_aggr_scale_,scale,info)
call p%precv(ilev_)%set(mld_aggr_filter_,mld_no_filter_mat_,info)
end do
case default
mlprec/impl/mld_dprecinit.F90
+1
View File
@@ -212,6 +212,7 @@ subroutine mld_dprecinit(p,ptype,info,nlev)
do ilev_=1,nlev_
call p%precv(ilev_)%set(mld_aggr_thresh_,thr,info)
call p%precv(ilev_)%set(mld_aggr_scale_,scale,info)
call p%precv(ilev_)%set(mld_aggr_filter_,mld_no_filter_mat_,info)
end do
case default
mlprec/impl/mld_sprecinit.F90
+1
View File
@@ -207,6 +207,7 @@ subroutine mld_sprecinit(p,ptype,info,nlev)
do ilev_=1,nlev_
call p%precv(ilev_)%set(mld_aggr_thresh_,thr,info)
call p%precv(ilev_)%set(mld_aggr_scale_,scale,info)
call p%precv(ilev_)%set(mld_aggr_filter_,mld_no_filter_mat_,info)
end do
case default
mlprec/impl/mld_zprecinit.F90
+1
View File
@@ -212,6 +212,7 @@ subroutine mld_zprecinit(p,ptype,info,nlev)
do ilev_=1,nlev_
call p%precv(ilev_)%set(mld_aggr_thresh_,thr,info)
call p%precv(ilev_)%set(mld_aggr_scale_,scale,info)
call p%precv(ilev_)%set(mld_aggr_filter_,mld_no_filter_mat_,info)
end do
case default