mld2p4:

mlprec/mld_cprecinit.F90
 mlprec/mld_dprecinit.F90
 mlprec/mld_sprecinit.F90
 mlprec/mld_zprecinit.F90

Explicitly zero  entry (mld_aggr_thresh_)  to improve readability.

mlprec/mld_cprecinit.F90

@@ -224,6 +224,7 @@ subroutine mld_cprecinit(p,ptype,info,nlev)
       p%baseprecv(ilev_)%iprcparm(mld_sub_fillin_)      = 0
       p%baseprecv(ilev_)%iprcparm(mld_smoother_sweeps_) = 1
       p%baseprecv(ilev_)%rprcparm(mld_aggr_damp_)       = 4.e0/3.e0         
+      p%baseprecv(ilev_)%rprcparm(mld_aggr_thresh_)     = szero
     end do
     ilev_ = nlev_
     if (info == 0) call psb_realloc(mld_ifpsz_,p%baseprecv(ilev_)%iprcparm,info)
@@ -251,7 +252,7 @@ subroutine mld_cprecinit(p,ptype,info,nlev)
     p%baseprecv(ilev_)%iprcparm(mld_sub_fillin_)      = 0
     p%baseprecv(ilev_)%iprcparm(mld_smoother_sweeps_) = 4
     p%baseprecv(ilev_)%rprcparm(mld_aggr_damp_)       = 4.e0/3.e0         
-
+    p%baseprecv(ilev_)%rprcparm(mld_aggr_thresh_)     = szero
   case default
     write(0,*) name,': Warning: Unknown preconditioner type request "',ptype,'"'
     info = 2

mlprec/mld_dprecinit.F90

@@ -224,6 +224,7 @@ subroutine mld_dprecinit(p,ptype,info,nlev)
       p%baseprecv(ilev_)%iprcparm(mld_sub_fillin_)      = 0
       p%baseprecv(ilev_)%iprcparm(mld_smoother_sweeps_) = 1
       p%baseprecv(ilev_)%rprcparm(mld_aggr_damp_)       = 4.d0/3.d0         
+      p%baseprecv(ilev_)%rprcparm(mld_aggr_thresh_)     = dzero
     end do
     ilev_ = nlev_
     if (info == 0) call psb_realloc(mld_ifpsz_,p%baseprecv(ilev_)%iprcparm,info)
@@ -253,7 +254,8 @@ subroutine mld_dprecinit(p,ptype,info,nlev)
     p%baseprecv(ilev_)%iprcparm(mld_sub_fillin_)      = 0
     p%baseprecv(ilev_)%iprcparm(mld_smoother_sweeps_) = 4
     p%baseprecv(ilev_)%rprcparm(mld_aggr_damp_)       = 4.d0/3.d0         
-
+    p%baseprecv(ilev_)%rprcparm(mld_aggr_thresh_)     = dzero
+      
   case default
     write(0,*) name,': Warning: Unknown preconditioner type request "',ptype,'"'
     info = 2

mlprec/mld_sprecinit.F90

@@ -224,6 +224,7 @@ subroutine mld_sprecinit(p,ptype,info,nlev)
       p%baseprecv(ilev_)%iprcparm(mld_sub_fillin_)      = 0
       p%baseprecv(ilev_)%iprcparm(mld_smoother_sweeps_) = 1
       p%baseprecv(ilev_)%rprcparm(mld_aggr_damp_)       = 4.e0/3.e0         
+      p%baseprecv(ilev_)%rprcparm(mld_aggr_thresh_)     = szero
     end do
     ilev_ = nlev_
     if (info == 0) call psb_realloc(mld_ifpsz_,p%baseprecv(ilev_)%iprcparm,info)
@@ -251,6 +252,7 @@ subroutine mld_sprecinit(p,ptype,info,nlev)
     p%baseprecv(ilev_)%iprcparm(mld_sub_fillin_)      = 0
     p%baseprecv(ilev_)%iprcparm(mld_smoother_sweeps_) = 4
     p%baseprecv(ilev_)%rprcparm(mld_aggr_damp_)       = 4.e0/3.e0         
+    p%baseprecv(ilev_)%rprcparm(mld_aggr_thresh_)     = szero
 
   case default
     write(0,*) name,': Warning: Unknown preconditioner type request "',ptype,'"'

mlprec/mld_zprecinit.F90

@@ -224,6 +224,7 @@ subroutine mld_zprecinit(p,ptype,info,nlev)
       p%baseprecv(ilev_)%iprcparm(mld_sub_fillin_)      = 0
       p%baseprecv(ilev_)%iprcparm(mld_smoother_sweeps_) = 1
       p%baseprecv(ilev_)%rprcparm(mld_aggr_damp_)       = 4.d0/3.d0         
+      p%baseprecv(ilev_)%rprcparm(mld_aggr_thresh_)     = dzero
     end do
     ilev_ = nlev_
     if (info == 0) call psb_realloc(mld_ifpsz_,p%baseprecv(ilev_)%iprcparm,info)
@@ -253,6 +254,7 @@ subroutine mld_zprecinit(p,ptype,info,nlev)
     p%baseprecv(ilev_)%iprcparm(mld_sub_fillin_)      = 0
     p%baseprecv(ilev_)%iprcparm(mld_smoother_sweeps_) = 4
     p%baseprecv(ilev_)%rprcparm(mld_aggr_damp_)       = 4.d0/3.d0         
+    p%baseprecv(ilev_)%rprcparm(mld_aggr_thresh_)     = dzero
 
   case default
     write(0,*) name,': Warning: Unknown preconditioner type request "',ptype,'"'