|
|
@ -560,7 +560,8 @@ contains
|
|
|
|
write(iout,*) ' parallel algorithm: ',&
|
|
|
|
write(iout,*) ' parallel algorithm: ',&
|
|
|
|
& par_aggr_alg_names(pm%par_aggr_alg)
|
|
|
|
& par_aggr_alg_names(pm%par_aggr_alg)
|
|
|
|
if (pm%par_aggr_alg /= mld_ext_aggr_) then
|
|
|
|
if (pm%par_aggr_alg /= mld_ext_aggr_) then
|
|
|
|
write(iout,*) ' with initial ordering: ',&
|
|
|
|
if ( pm%aggr_ord /= mld_aggr_ord_nat_) &
|
|
|
|
|
|
|
|
& write(iout,*) ' with initial ordering: ',&
|
|
|
|
& ord_names(pm%aggr_ord)
|
|
|
|
& ord_names(pm%aggr_ord)
|
|
|
|
write(iout,*) ' Aggregation prolongator: ', &
|
|
|
|
write(iout,*) ' Aggregation prolongator: ', &
|
|
|
|
& aggr_prols(pm%aggr_prol)
|
|
|
|
& aggr_prols(pm%aggr_prol)
|
|
|
|