mld2p4-2:

mlprec/impl/level/mld_c_base_onelev_descr.f90
 mlprec/impl/level/mld_d_base_onelev_descr.f90
 mlprec/impl/level/mld_s_base_onelev_descr.f90
 mlprec/impl/level/mld_z_base_onelev_descr.f90
 mlprec/mld_base_prec_type.F90

Descr messages updates.

mlprec/impl/level/mld_c_base_onelev_descr.f90

@@ -83,9 +83,9 @@ subroutine mld_c_base_onelev_descr(lv,il,nl,ilmin,info,iout)
 
     if (nl > 1) then 
       if (allocated(lv%map%naggr)) then
-        write(iout_,*) '  Coarse Matrix: Dimension: ', &
+        write(iout_,*) '  Coarse Matrix: Global size: ', &
              &  sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
-        write(iout_,*) '  Sizes of aggregates: ', &
+        write(iout_,*) '          Local matrix sizes: ', &
              &  lv%map%naggr(:)
         write(iout_,*) '  Aggregation   ratio: ', &
              &  lv%szratio

mlprec/impl/level/mld_d_base_onelev_descr.f90

@@ -83,9 +83,9 @@ subroutine mld_d_base_onelev_descr(lv,il,nl,ilmin,info,iout)
 
     if (nl > 1) then 
       if (allocated(lv%map%naggr)) then
-        write(iout_,*) '  Coarse Matrix: Dimension: ', &
+        write(iout_,*) '  Coarse Matrix: Global size: ', &
              &  sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
-        write(iout_,*) '  Sizes of aggregates: ', &
+        write(iout_,*) '          Local matrix sizes: ', &
              &  lv%map%naggr(:)
         write(iout_,*) '  Aggregation   ratio: ', &
              &  lv%szratio

mlprec/impl/level/mld_s_base_onelev_descr.f90

@@ -83,9 +83,9 @@ subroutine mld_s_base_onelev_descr(lv,il,nl,ilmin,info,iout)
 
     if (nl > 1) then 
       if (allocated(lv%map%naggr)) then
-        write(iout_,*) '  Coarse Matrix: Dimension: ', &
+        write(iout_,*) '  Coarse Matrix: Global size: ', &
              &  sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
-        write(iout_,*) '  Sizes of aggregates: ', &
+        write(iout_,*) '          Local matrix sizes: ', &
              &  lv%map%naggr(:)
         write(iout_,*) '  Aggregation   ratio: ', &
              &  lv%szratio

mlprec/impl/level/mld_z_base_onelev_descr.f90

@@ -83,9 +83,9 @@ subroutine mld_z_base_onelev_descr(lv,il,nl,ilmin,info,iout)
 
     if (nl > 1) then 
       if (allocated(lv%map%naggr)) then
-        write(iout_,*) '  Coarse Matrix: Dimension: ', &
+        write(iout_,*) '  Coarse Matrix: Global size: ', &
              &  sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
-        write(iout_,*) '  Sizes of aggregates: ', &
+        write(iout_,*) '          Local matrix sizes: ', &
              &  lv%map%naggr(:)
         write(iout_,*) '  Aggregation   ratio: ', &
              &  lv%szratio

mlprec/mld_base_prec_type.F90

@@ -545,6 +545,7 @@ contains
     info = psb_success_
     if ((pm%ml_cycle>=mld_no_ml_).and.(pm%ml_cycle<=mld_max_ml_cycle_)) then
 
+      
       write(iout,*) '  Multilevel cycle: ',&
            &   ml_names(pm%ml_cycle)
       select case (pm%ml_cycle)