From 85d97093cd1f7b689d005439c96ac7e3b81b81d3 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Sun, 23 Sep 2018 09:55:18 +0100
Subject: [PATCH] Reinstate printout of smoothed/unsmoothed.

---
 mlprec/mld_base_prec_type.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mlprec/mld_base_prec_type.F90 b/mlprec/mld_base_prec_type.F90
index b7661e99..95015d1d 100644
--- a/mlprec/mld_base_prec_type.F90
+++ b/mlprec/mld_base_prec_type.F90
@@ -573,7 +573,7 @@ contains
            &   par_aggr_alg_names(pm%par_aggr_alg)
       write(iout,*) '  Aggregation type: ',&
            & aggr_type_names(pm%aggr_type)
-      if (pm%par_aggr_alg /= mld_ext_aggr_) then
+      !if (pm%par_aggr_alg /= mld_ext_aggr_) then
         if ( pm%aggr_ord /= mld_aggr_ord_nat_) &
              & write(iout,*) '               with initial ordering: ',&
              &   ord_names(pm%aggr_ord)
@@ -591,7 +591,7 @@ contains
             write(iout,*) '  Damping omega computation: unknown value in iprcparm!!'
           end if
         end if
-      end if
+      !end if
     else
       write(iout,*) '  Multilevel type: Unkonwn value. Something is amiss....',&
            & pm%ml_cycle