fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mld2p4:

Browse Source 
mlprec/impl/mld_ccprecset.F90
 mlprec/impl/mld_cprecset.F90
 mlprec/impl/mld_dcprecset.F90
 mlprec/impl/mld_dprecset.F90
 mlprec/impl/mld_scprecset.F90
 mlprec/impl/mld_sprecset.F90
 mlprec/impl/mld_zcprecset.F90
 mlprec/impl/mld_zprecset.F90

Fix aggr_scale
stopcriterion
Salvatore Filippone 8 years ago
parent c28dc7fd5a
commit 85ef57a561
8 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File

6
mlprec/impl/mld_ccprecset.F90
Unescape Escape View File

@ -519,6 +519,12 @@ subroutine mld_ccprecsetr(p,what,val,info,ilev,pos)
ilev_=nlev_ ilev_=nlev_
call p%precv(ilev_)%set('SUB_ILUTHRS',val,info,pos=pos) call p%precv(ilev_)%set('SUB_ILUTHRS',val,info,pos=pos)
case('AGGR_SCALE')
do ilev_ = 2, nlev_
call p%precv(ilev_)%set('AGGR_SCALE',val,info,pos=pos)
end do
case('AGGR_THRESH') case('AGGR_THRESH')
thr = val thr = val
do ilev_ = 2, nlev_ do ilev_ = 2, nlev_

5
mlprec/impl/mld_cprecset.F90
Unescape Escape View File

@ -621,6 +621,11 @@ subroutine mld_cprecsetr(p,what,val,info,ilev,pos)
ilev_=nlev_ ilev_=nlev_
call p%precv(ilev_)%set(mld_sub_iluthrs_,val,info,pos=pos) call p%precv(ilev_)%set(mld_sub_iluthrs_,val,info,pos=pos)
case(mld_aggr_scale_)
do ilev_ = 2, nlev_
call p%precv(ilev_)%set(mld_aggr_scale_,val,info,pos=pos)
end do
case(mld_aggr_thresh_) case(mld_aggr_thresh_)
thr = val thr = val
do ilev_ = 2, nlev_ do ilev_ = 2, nlev_

6
mlprec/impl/mld_dcprecset.F90
Unescape Escape View File

@ -529,6 +529,12 @@ subroutine mld_dcprecsetr(p,what,val,info,ilev,pos)
ilev_=nlev_ ilev_=nlev_
call p%precv(ilev_)%set('SUB_ILUTHRS',val,info,pos=pos) call p%precv(ilev_)%set('SUB_ILUTHRS',val,info,pos=pos)
case('AGGR_SCALE')
do ilev_ = 2, nlev_
call p%precv(ilev_)%set('AGGR_SCALE',val,info,pos=pos)
end do
case('AGGR_THRESH') case('AGGR_THRESH')
thr = val thr = val
do ilev_ = 2, nlev_ do ilev_ = 2, nlev_

5
mlprec/impl/mld_dprecset.F90
Unescape Escape View File

@ -631,6 +631,11 @@ subroutine mld_dprecsetr(p,what,val,info,ilev,pos)
ilev_=nlev_ ilev_=nlev_
call p%precv(ilev_)%set(mld_sub_iluthrs_,val,info,pos=pos) call p%precv(ilev_)%set(mld_sub_iluthrs_,val,info,pos=pos)
case(mld_aggr_scale_)
do ilev_ = 2, nlev_
call p%precv(ilev_)%set(mld_aggr_scale_,val,info,pos=pos)
end do
case(mld_aggr_thresh_) case(mld_aggr_thresh_)
thr = val thr = val
do ilev_ = 2, nlev_ do ilev_ = 2, nlev_

6
mlprec/impl/mld_scprecset.F90
Unescape Escape View File

@ -519,6 +519,12 @@ subroutine mld_scprecsetr(p,what,val,info,ilev,pos)
ilev_=nlev_ ilev_=nlev_
call p%precv(ilev_)%set('SUB_ILUTHRS',val,info,pos=pos) call p%precv(ilev_)%set('SUB_ILUTHRS',val,info,pos=pos)
case('AGGR_SCALE')
do ilev_ = 2, nlev_
call p%precv(ilev_)%set('AGGR_SCALE',val,info,pos=pos)
end do
case('AGGR_THRESH') case('AGGR_THRESH')
thr = val thr = val
do ilev_ = 2, nlev_ do ilev_ = 2, nlev_

5
mlprec/impl/mld_sprecset.F90
Unescape Escape View File

@ -621,6 +621,11 @@ subroutine mld_sprecsetr(p,what,val,info,ilev,pos)
ilev_=nlev_ ilev_=nlev_
call p%precv(ilev_)%set(mld_sub_iluthrs_,val,info,pos=pos) call p%precv(ilev_)%set(mld_sub_iluthrs_,val,info,pos=pos)
case(mld_aggr_scale_)
do ilev_ = 2, nlev_
call p%precv(ilev_)%set(mld_aggr_scale_,val,info,pos=pos)
end do
case(mld_aggr_thresh_) case(mld_aggr_thresh_)
thr = val thr = val
do ilev_ = 2, nlev_ do ilev_ = 2, nlev_

6
mlprec/impl/mld_zcprecset.F90
Unescape Escape View File

@ -529,6 +529,12 @@ subroutine mld_zcprecsetr(p,what,val,info,ilev,pos)
ilev_=nlev_ ilev_=nlev_
call p%precv(ilev_)%set('SUB_ILUTHRS',val,info,pos=pos) call p%precv(ilev_)%set('SUB_ILUTHRS',val,info,pos=pos)
case('AGGR_SCALE')
do ilev_ = 2, nlev_
call p%precv(ilev_)%set('AGGR_SCALE',val,info,pos=pos)
end do
case('AGGR_THRESH') case('AGGR_THRESH')
thr = val thr = val
do ilev_ = 2, nlev_ do ilev_ = 2, nlev_

5
mlprec/impl/mld_zprecset.F90
Unescape Escape View File

@ -631,6 +631,11 @@ subroutine mld_zprecsetr(p,what,val,info,ilev,pos)
ilev_=nlev_ ilev_=nlev_
call p%precv(ilev_)%set(mld_sub_iluthrs_,val,info,pos=pos) call p%precv(ilev_)%set(mld_sub_iluthrs_,val,info,pos=pos)
case(mld_aggr_scale_)
do ilev_ = 2, nlev_
call p%precv(ilev_)%set(mld_aggr_scale_,val,info,pos=pos)
end do
case(mld_aggr_thresh_) case(mld_aggr_thresh_)
thr = val thr = val
do ilev_ = 2, nlev_ do ilev_ = 2, nlev_

Write Preview
Loading…
Cancel
Save