From 008249e5e4670c1bbf4c6026b6433e3fb7575b04 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 13 Jul 2006 14:09:40 +0000 Subject: [PATCH] Improve message in case of no smoother. --- src/modules/psb_prec_type.f90 | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/src/modules/psb_prec_type.f90 b/src/modules/psb_prec_type.f90 index c80d2bc3..9c50a674 100644 --- a/src/modules/psb_prec_type.f90 +++ b/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_)) - write(iout,*) 'Smoothing omega: ', p%baseprecv(2)%dprcparm(smooth_omega_) - write(iout,*) 'Smoothing position: ',& - & smooth_names(p%baseprecv(2)%iprcparm(smth_pos_)) + 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_) - write(iout,*) 'Smoothing position: ',& - & smooth_names(p%baseprecv(2)%iprcparm(smth_pos_)) - write(iout,*) 'Coarse matrix: ',& - & matrix_names(p%baseprecv(2)%iprcparm(coarse_mat_)) + 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: ',&