Improve message in case of no smoother.

src/modules/psb_prec_type.f90

@@ -216,9 +216,11 @@ contains
                &   aggr_names(p%baseprecv(2)%iprcparm(aggr_alg_))
           write(iout,*) 'Smoother:               ', &
                &  smooth_kinds(p%baseprecv(2)%iprcparm(smth_kind_))
+          if (p%baseprecv(2)%iprcparm(smth_kind_) /= no_smth_) then 
             write(iout,*) 'Smoothing omega: ', p%baseprecv(2)%dprcparm(smooth_omega_)
             write(iout,*) 'Smoothing position: ',&
                  & smooth_names(p%baseprecv(2)%iprcparm(smth_pos_))
+          end if
           write(iout,*) 'Coarse matrix: ',&
                & matrix_names(p%baseprecv(2)%iprcparm(coarse_mat_))
           write(iout,*) 'Aggregation sizes: ', &
@@ -354,10 +356,12 @@ contains
           write(iout,*) 'Smoother:               ', &
                &  smooth_kinds(p%baseprecv(2)%iprcparm(smth_kind_))
           write(iout,*) 'Smoothing omega: ', p%baseprecv(2)%dprcparm(smooth_omega_)
+          if (p%baseprecv(2)%iprcparm(smth_kind_) /= no_smth_) then 
             write(iout,*) 'Smoothing position: ',&
                  & smooth_names(p%baseprecv(2)%iprcparm(smth_pos_))
             write(iout,*) 'Coarse matrix: ',&
                  & matrix_names(p%baseprecv(2)%iprcparm(coarse_mat_))
+          end if
           write(iout,*) 'Aggregation sizes: ', &
                &  sum( p%baseprecv(2)%nlaggr(:)),' : ',p%baseprecv(2)%nlaggr(:)
           write(iout,*) 'Factorization type: ',&