Added log for aggregation sizes

19 years ago · a17c67348b
parent 9e6e6b42f4
commit a17c67348b
1 changed files with 2 additions and 0 deletions
--- a/src/modules/psb_prec_type.f90
+++ b/src/modules/psb_prec_type.f90
@ -152,6 +152,8 @@ contains
               & smooth_names(p%baseprecv(2)%iprcparm(smth_pos_))
          write(iout,*) 'Coarse matrix: ',&
               & matrix_names(p%baseprecv(2)%iprcparm(coarse_mat_))
+          write(iout,*) 'Aggregation sizes: ', &
+               &  sum( p%baseprecv(2)%nlaggr(:)),' : ',p%baseprecv(2)%nlaggr(:)
          write(iout,*) 'Factorization type: ',&
               & fact_names(p%baseprecv(2)%iprcparm(f_type_))
          select case(p%baseprecv(2)%iprcparm(f_type_))