fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4-2:

Browse Source 
mlprec/impl/mld_c_smoothers_bld.f90
 mlprec/impl/mld_d_smoothers_bld.f90
 mlprec/impl/mld_s_smoothers_bld.f90
 mlprec/impl/mld_z_smoothers_bld.f90

Changed coarse_solve messages.
This commit is contained in:
Salvatore Filippone
2017-04-22 20:09:57 +00:00
parent 2edacbe2bd
commit da4eeaf079
4 changed files with 188 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_c_smoothers_bld.f90
+47 -13
View File
@@ -179,8 +179,16 @@ subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id),&
@@ -189,9 +197,8 @@ subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
end if
if (prec%precv(iszv)%parms%coarse_mat /= mld_repl_mat_) then
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id),&
& ' but the coarse matrix has been changed to distributed'
& 'MLD2P4: Warning: original coarse matrix was requested as replicated', &
& ' but it has been changed to distributed.'
end if
case(mld_ilu_n_, mld_ilu_t_,mld_milu_n_)
@@ -199,8 +206,16 @@ subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) &
&'This may happen if coarse_subsolve has been reset'
end if
@@ -216,10 +231,21 @@ subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
write(psb_err_unit,*) &
&'This may happen if coarse_subsolve has been reset'
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id),&
& ' was not configured at MLD2P4 build time, or'
write(psb_err_unit,*) ' 3. an unsupported solver setup was specified.'
end if
case(mld_sludist_)
@@ -227,8 +253,16 @@ subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id), &
mlprec/impl/mld_d_smoothers_bld.f90
+47 -13
View File
@@ -179,8 +179,16 @@ subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id),&
@@ -189,9 +197,8 @@ subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
end if
if (prec%precv(iszv)%parms%coarse_mat /= mld_repl_mat_) then
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id),&
& ' but the coarse matrix has been changed to distributed'
& 'MLD2P4: Warning: original coarse matrix was requested as replicated', &
& ' but it has been changed to distributed.'
end if
case(mld_ilu_n_, mld_ilu_t_,mld_milu_n_)
@@ -199,8 +206,16 @@ subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) &
&'This may happen if coarse_subsolve has been reset'
end if
@@ -216,10 +231,21 @@ subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
write(psb_err_unit,*) &
&'This may happen if coarse_subsolve has been reset'
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id),&
& ' was not configured at MLD2P4 build time, or'
write(psb_err_unit,*) ' 3. an unsupported solver setup was specified.'
end if
case(mld_sludist_)
@@ -227,8 +253,16 @@ subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id), &
mlprec/impl/mld_s_smoothers_bld.f90
+47 -13
View File
@@ -179,8 +179,16 @@ subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id),&
@@ -189,9 +197,8 @@ subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
end if
if (prec%precv(iszv)%parms%coarse_mat /= mld_repl_mat_) then
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id),&
& ' but the coarse matrix has been changed to distributed'
& 'MLD2P4: Warning: original coarse matrix was requested as replicated', &
& ' but it has been changed to distributed.'
end if
case(mld_ilu_n_, mld_ilu_t_,mld_milu_n_)
@@ -199,8 +206,16 @@ subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) &
&'This may happen if coarse_subsolve has been reset'
end if
@@ -216,10 +231,21 @@ subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
write(psb_err_unit,*) &
&'This may happen if coarse_subsolve has been reset'
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id),&
& ' was not configured at MLD2P4 build time, or'
write(psb_err_unit,*) ' 3. an unsupported solver setup was specified.'
end if
case(mld_sludist_)
@@ -227,8 +253,16 @@ subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id), &
mlprec/impl/mld_z_smoothers_bld.f90
+47 -13
View File
@@ -179,8 +179,16 @@ subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id),&
@@ -189,9 +197,8 @@ subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
end if
if (prec%precv(iszv)%parms%coarse_mat /= mld_repl_mat_) then
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id),&
& ' but the coarse matrix has been changed to distributed'
& 'MLD2P4: Warning: original coarse matrix was requested as replicated', &
& ' but it has been changed to distributed.'
end if
case(mld_ilu_n_, mld_ilu_t_,mld_milu_n_)
@@ -199,8 +206,16 @@ subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) &
&'This may happen if coarse_subsolve has been reset'
end if
@@ -216,10 +231,21 @@ subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
write(psb_err_unit,*) &
&'This may happen if coarse_subsolve has been reset'
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id),&
& ' was not configured at MLD2P4 build time, or'
write(psb_err_unit,*) ' 3. an unsupported solver setup was specified.'
end if
case(mld_sludist_)
@@ -227,8 +253,16 @@ subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
write(psb_err_unit,*) &
& 'MLD2P4: Warning: original coarse solver was requested as ',&
& mld_fact_names(coarse_solve_id)
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
if (prec%precv(iszv)%parms%coarse_mat == mld_repl_mat_) then
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else if (prec%precv(iszv)%parms%coarse_mat == mld_dist_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
write(psb_err_unit,*) ' but I am building ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
end if
write(psb_err_unit,*) 'This may happen if: '
write(psb_err_unit,*) ' 1. coarse_subsolve has been reset, or '
write(psb_err_unit,*) ' 2. the solver ', mld_fact_names(coarse_solve_id), &