fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mld2p4

Browse Source 
mlprec/mld_prec_type.f90

Fixed order of prints in prec_descr.
stopcriterion
Salvatore Filippone 17 years ago
parent a90ec2cabd
commit 3b00e69be8
1 changed files with 37 additions and 21 deletions
Show Stats Download Patch File Download Diff File

48
mlprec/mld_prec_type.f90
Unescape Escape View File

@ -848,10 +848,6 @@ contains
& aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_)) & aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_))
write(iout_,*) ' Aggregation threshold: ', & write(iout_,*) ' Aggregation threshold: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_) & p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_)
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
endif endif
! !
@ -868,6 +864,10 @@ contains
write(iout_,*) ' Sizes of aggregates: ', & write(iout_,*) ' Sizes of aggregates: ', &
& p%baseprecv(ilev)%nlaggr(:) & p%baseprecv(ilev)%nlaggr(:)
end if end if
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
end if end if
end do end do
@ -888,6 +888,10 @@ contains
write(iout_,*) ' Sizes of aggregates: ', & write(iout_,*) ' Sizes of aggregates: ', &
& p%baseprecv(ilev)%nlaggr(:) & p%baseprecv(ilev)%nlaggr(:)
end if end if
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. & if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. &
& p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then & p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then
write(iout_,*) ' Coarsest matrix solver: block Jacobi with ', & write(iout_,*) ' Coarsest matrix solver: block Jacobi with ', &
@ -1053,10 +1057,6 @@ contains
& aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_)) & aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_))
write(iout_,*) ' Aggregation threshold: ', & write(iout_,*) ' Aggregation threshold: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_) & p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_)
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
endif endif
! !
@ -1074,6 +1074,10 @@ contains
& p%baseprecv(ilev)%nlaggr(:) & p%baseprecv(ilev)%nlaggr(:)
end if end if
end if end if
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
end do end do
! !
@ -1093,6 +1097,10 @@ contains
write(iout_,*) ' Sizes of aggregates: ', & write(iout_,*) ' Sizes of aggregates: ', &
& p%baseprecv(ilev)%nlaggr(:) & p%baseprecv(ilev)%nlaggr(:)
end if end if
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. & if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. &
& p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then & p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then
write(iout_,*) ' Coarsest matrix solver: block Jacobi with ', & write(iout_,*) ' Coarsest matrix solver: block Jacobi with ', &
@ -1279,10 +1287,6 @@ contains
& aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_)) & aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_))
write(iout_,*) ' Aggregation threshold: ', & write(iout_,*) ' Aggregation threshold: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_) & p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_)
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
endif endif
! !
@ -1300,6 +1304,10 @@ contains
& p%baseprecv(ilev)%nlaggr(:) & p%baseprecv(ilev)%nlaggr(:)
end if end if
end if end if
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
end do end do
! !
@ -1319,6 +1327,10 @@ contains
write(iout_,*) ' Sizes of aggregates: ', & write(iout_,*) ' Sizes of aggregates: ', &
& p%baseprecv(ilev)%nlaggr(:) & p%baseprecv(ilev)%nlaggr(:)
end if end if
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. & if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. &
& p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then & p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then
write(iout_,*) ' Coarsest matrix solver: block Jacobi with ', & write(iout_,*) ' Coarsest matrix solver: block Jacobi with ', &
@ -1484,10 +1496,6 @@ contains
& aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_)) & aggr_kinds(p%baseprecv(ilev)%iprcparm(mld_aggr_kind_))
write(iout_,*) ' Aggregation threshold: ', & write(iout_,*) ' Aggregation threshold: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_) & p%baseprecv(ilev)%rprcparm(mld_aggr_thresh_)
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
endif endif
! !
@ -1505,6 +1513,10 @@ contains
& p%baseprecv(ilev)%nlaggr(:) & p%baseprecv(ilev)%nlaggr(:)
end if end if
end if end if
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
end do end do
! !
@ -1524,6 +1536,10 @@ contains
write(iout_,*) ' Sizes of aggregates: ', & write(iout_,*) ' Sizes of aggregates: ', &
& p%baseprecv(ilev)%nlaggr(:) & p%baseprecv(ilev)%nlaggr(:)
end if end if
if (p%baseprecv(ilev)%iprcparm(mld_aggr_kind_) /= mld_no_smooth_) then
write(iout_,*) ' Damping omega: ', &
& p%baseprecv(ilev)%rprcparm(mld_aggr_damp_)
end if
if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. & if (p%baseprecv(ilev)%iprcparm(mld_coarse_mat_) == mld_distr_mat_ .and. &
& p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then & p%baseprecv(ilev)%iprcparm(mld_sub_solve_) /= mld_sludist_) then
write(iout_,*) ' Coarsest matrix solver: block Jacobi with ', & write(iout_,*) ' Coarsest matrix solver: block Jacobi with ', &

Write Preview
Loading…
Cancel
Save