mld2p4

mlprec/mld_prec_type.f90

Fixed order of prints in prec_descr.

mlprec/mld_prec_type.f90

@@ -848,10 +848,6 @@ contains
                  &  aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_))
             write(iout_,*) '  Aggregation threshold: ', &
                  &  p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_)
-            if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
-              write(iout_,*) '  Damping omega: ', &
-                   & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
-            end if
           endif
 
           !
@@ -868,6 +864,10 @@ contains
                 write(iout_,*) '  Sizes of aggregates: ', &
                      &  p%baseprecv(ilev)%nlaggr(:)
               end if
+              if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
+                write(iout_,*) '  Damping omega: ', &
+                     & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
+              end if
             end if
           end do
 
@@ -888,6 +888,10 @@ contains
               write(iout_,*) '  Sizes of aggregates: ', &
                    &  p%baseprecv(ilev)%nlaggr(:)
             end if
+            if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
+              write(iout_,*) '  Damping omega: ', &
+                   & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
+            end if
             if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. &
                  & p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then
               write(iout_,*) '  Coarsest matrix solver: block Jacobi with ', &
@@ -1053,10 +1057,6 @@ contains
                  &  aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_))
             write(iout_,*) '  Aggregation threshold: ', &
                  &  p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_)
-            if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
-              write(iout_,*) '  Damping omega: ', &
-                   & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
-            end if
           endif
 
           !
@@ -1074,6 +1074,10 @@ contains
                      &  p%baseprecv(ilev)%nlaggr(:)
               end if
             end if
+            if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
+              write(iout_,*) '  Damping omega: ', &
+                   & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
+            end if
           end do
 
           !
@@ -1093,6 +1097,10 @@ contains
               write(iout_,*) '  Sizes of aggregates: ', &
                    &  p%baseprecv(ilev)%nlaggr(:)
             end if
+            if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
+              write(iout_,*) '  Damping omega: ', &
+                   & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
+            end if
             if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. &
                  & p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then
               write(iout_,*) '  Coarsest matrix solver: block Jacobi with ', &
@@ -1279,10 +1287,6 @@ contains
                  &  aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_))
             write(iout_,*) '  Aggregation threshold: ', &
                  &  p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_)
-            if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
-              write(iout_,*) '  Damping omega: ', &
-                   & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
-            end if
           endif
 
           !
@@ -1300,6 +1304,10 @@ contains
                      &  p%baseprecv(ilev)%nlaggr(:)
               end if
             end if
+            if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
+              write(iout_,*) '  Damping omega: ', &
+                   & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
+            end if
           end do
 
           !
@@ -1319,6 +1327,10 @@ contains
               write(iout_,*) '  Sizes of aggregates: ', &
                    &  p%baseprecv(ilev)%nlaggr(:)
             end if
+            if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
+              write(iout_,*) '  Damping omega: ', &
+                   & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
+            end if
             if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. &
                  & p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then
               write(iout_,*) '  Coarsest matrix solver: block Jacobi with ', &
@@ -1484,10 +1496,6 @@ contains
                  &  aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_))
             write(iout_,*) '  Aggregation threshold: ', &
                  &  p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_)
-            if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
-              write(iout_,*) '  Damping omega: ', &
-                   & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
-            end if
           endif
 
           !
@@ -1505,6 +1513,10 @@ contains
                      &  p%baseprecv(ilev)%nlaggr(:)
               end if
             end if
+            if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
+              write(iout_,*) '  Damping omega: ', &
+                   & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
+            end if
           end do
 
           !
@@ -1524,6 +1536,10 @@ contains
               write(iout_,*) '  Sizes of aggregates: ', &
                    &  p%baseprecv(ilev)%nlaggr(:)
             end if
+            if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then 
+              write(iout_,*) '  Damping omega: ', &
+                   & p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)  
+            end if
             if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. &
                  & p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then
               write(iout_,*) '  Coarsest matrix solver: block Jacobi with ', &