Added log for aggregation sizes

2026-10-17 03:12:15 +00:00 · 2005-12-14 15:10:12 +00:00
parent 9e6e6b42f4
commit a17c67348b
1 changed files with 2 additions and 0 deletions
@@ -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_))