fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
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.
stopcriterion
Salvatore Filippone 8 years ago
parent da4eeaf079
commit 75ab4c3269
4 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File

8
mlprec/impl/mld_c_smoothers_bld.f90
Unescape Escape View File

@ -182,7 +182,7 @@ subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -209,7 +209,7 @@ subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -234,7 +234,7 @@ subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -256,7 +256,7 @@ subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else

8
mlprec/impl/mld_d_smoothers_bld.f90
Unescape Escape View File

@ -182,7 +182,7 @@ subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -209,7 +209,7 @@ subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -234,7 +234,7 @@ subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -256,7 +256,7 @@ subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else

8
mlprec/impl/mld_s_smoothers_bld.f90
Unescape Escape View File

@ -182,7 +182,7 @@ subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -209,7 +209,7 @@ subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -234,7 +234,7 @@ subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -256,7 +256,7 @@ subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else

8
mlprec/impl/mld_z_smoothers_bld.f90
Unescape Escape View File

@ -182,7 +182,7 @@ subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -209,7 +209,7 @@ subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -234,7 +234,7 @@ subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else
@ -256,7 +256,7 @@ subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
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
else if (prec%precv(iszv)%parms%coarse_mat == mld_distr_mat_) then
write(psb_err_unit,*) ' but I am building BJAC with ',&
& mld_fact_names(prec%precv(iszv)%sm%sv%get_id())
else

Write Preview
Loading…
Cancel
Save