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:13:11 +00:00
parent da4eeaf079
commit 75ab4c3269
4 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_c_smoothers_bld.f90
+4 -4
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
mlprec/impl/mld_d_smoothers_bld.f90
+4 -4
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
mlprec/impl/mld_s_smoothers_bld.f90
+4 -4
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
mlprec/impl/mld_z_smoothers_bld.f90
+4 -4
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