mld2p4:

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
8 years ago · 85ef57a561
parent c28dc7fd5a
commit 85ef57a561
8 changed files with 44 additions and 0 deletions
--- a/mlprec/impl/mld_ccprecset.F90
+++ b/mlprec/impl/mld_ccprecset.F90
@ -519,6 +519,12 @@ subroutine mld_ccprecsetr(p,what,val,info,ilev,pos)
        ilev_=nlev_
        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')
        thr = val
        do ilev_ = 2, nlev_
--- a/mlprec/impl/mld_cprecset.F90
+++ b/mlprec/impl/mld_cprecset.F90
@ -621,6 +621,11 @@ subroutine mld_cprecsetr(p,what,val,info,ilev,pos)
        ilev_=nlev_
        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_)
        thr = val
        do ilev_ = 2, nlev_
--- a/mlprec/impl/mld_dcprecset.F90
+++ b/mlprec/impl/mld_dcprecset.F90
@ -529,6 +529,12 @@ subroutine mld_dcprecsetr(p,what,val,info,ilev,pos)
        ilev_=nlev_
        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')
        thr = val
        do ilev_ = 2, nlev_
--- a/mlprec/impl/mld_dprecset.F90
+++ b/mlprec/impl/mld_dprecset.F90
@ -631,6 +631,11 @@ subroutine mld_dprecsetr(p,what,val,info,ilev,pos)
        ilev_=nlev_
        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_)
        thr = val
        do ilev_ = 2, nlev_
--- a/mlprec/impl/mld_scprecset.F90
+++ b/mlprec/impl/mld_scprecset.F90
@ -519,6 +519,12 @@ subroutine mld_scprecsetr(p,what,val,info,ilev,pos)
        ilev_=nlev_
        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')
        thr = val
        do ilev_ = 2, nlev_
--- a/mlprec/impl/mld_sprecset.F90
+++ b/mlprec/impl/mld_sprecset.F90
@ -621,6 +621,11 @@ subroutine mld_sprecsetr(p,what,val,info,ilev,pos)
        ilev_=nlev_
        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_)
        thr = val
        do ilev_ = 2, nlev_
--- a/mlprec/impl/mld_zcprecset.F90
+++ b/mlprec/impl/mld_zcprecset.F90
@ -529,6 +529,12 @@ subroutine mld_zcprecsetr(p,what,val,info,ilev,pos)
        ilev_=nlev_
        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')
        thr = val
        do ilev_ = 2, nlev_
--- a/mlprec/impl/mld_zprecset.F90
+++ b/mlprec/impl/mld_zprecset.F90
@ -631,6 +631,11 @@ subroutine mld_zprecsetr(p,what,val,info,ilev,pos)
        ilev_=nlev_
        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_)
        thr = val
        do ilev_ = 2, nlev_