From 9c7b84ed072b446a26d8e7e64d7888b81261cf8b Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 23 Oct 2017 12:36:01 +0100 Subject: [PATCH] Fix call to psb_info in apply --- mlprec/impl/smoother/mld_c_jac_smoother_apply.f90 | 2 ++ mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90 | 2 ++ mlprec/impl/smoother/mld_d_jac_smoother_apply.f90 | 2 ++ mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90 | 2 ++ mlprec/impl/smoother/mld_s_jac_smoother_apply.f90 | 2 ++ mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90 | 2 ++ mlprec/impl/smoother/mld_z_jac_smoother_apply.f90 | 2 ++ mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90 | 2 ++ 8 files changed, 16 insertions(+) diff --git a/mlprec/impl/smoother/mld_c_jac_smoother_apply.f90 b/mlprec/impl/smoother/mld_c_jac_smoother_apply.f90 index 699eae68..52cdb7f4 100644 --- a/mlprec/impl/smoother/mld_c_jac_smoother_apply.f90 +++ b/mlprec/impl/smoother/mld_c_jac_smoother_apply.f90 @@ -62,6 +62,8 @@ subroutine mld_c_jac_smoother_apply(alpha,sm,x,beta,y,desc_data,& call psb_erractionsave(err_act) info = psb_success_ + ictxt = desc_data%get_context() + call psb_info(ictxt,me,np) if (present(init)) then diff --git a/mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90 b/mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90 index 921d7560..057a651a 100644 --- a/mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90 +++ b/mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90 @@ -63,6 +63,8 @@ subroutine mld_c_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,& call psb_erractionsave(err_act) info = psb_success_ + ictxt = desc_data%get_context() + call psb_info(ictxt,me,np) if (present(init)) then diff --git a/mlprec/impl/smoother/mld_d_jac_smoother_apply.f90 b/mlprec/impl/smoother/mld_d_jac_smoother_apply.f90 index a697645c..c25b9c40 100644 --- a/mlprec/impl/smoother/mld_d_jac_smoother_apply.f90 +++ b/mlprec/impl/smoother/mld_d_jac_smoother_apply.f90 @@ -62,6 +62,8 @@ subroutine mld_d_jac_smoother_apply(alpha,sm,x,beta,y,desc_data,& call psb_erractionsave(err_act) info = psb_success_ + ictxt = desc_data%get_context() + call psb_info(ictxt,me,np) if (present(init)) then diff --git a/mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90 b/mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90 index baa5923a..de352727 100644 --- a/mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90 +++ b/mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90 @@ -63,6 +63,8 @@ subroutine mld_d_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,& call psb_erractionsave(err_act) info = psb_success_ + ictxt = desc_data%get_context() + call psb_info(ictxt,me,np) if (present(init)) then diff --git a/mlprec/impl/smoother/mld_s_jac_smoother_apply.f90 b/mlprec/impl/smoother/mld_s_jac_smoother_apply.f90 index 82fceabe..877f8607 100644 --- a/mlprec/impl/smoother/mld_s_jac_smoother_apply.f90 +++ b/mlprec/impl/smoother/mld_s_jac_smoother_apply.f90 @@ -62,6 +62,8 @@ subroutine mld_s_jac_smoother_apply(alpha,sm,x,beta,y,desc_data,& call psb_erractionsave(err_act) info = psb_success_ + ictxt = desc_data%get_context() + call psb_info(ictxt,me,np) if (present(init)) then diff --git a/mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90 b/mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90 index c24e0943..7442e4e8 100644 --- a/mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90 +++ b/mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90 @@ -63,6 +63,8 @@ subroutine mld_s_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,& call psb_erractionsave(err_act) info = psb_success_ + ictxt = desc_data%get_context() + call psb_info(ictxt,me,np) if (present(init)) then diff --git a/mlprec/impl/smoother/mld_z_jac_smoother_apply.f90 b/mlprec/impl/smoother/mld_z_jac_smoother_apply.f90 index 71d1951c..e7872240 100644 --- a/mlprec/impl/smoother/mld_z_jac_smoother_apply.f90 +++ b/mlprec/impl/smoother/mld_z_jac_smoother_apply.f90 @@ -62,6 +62,8 @@ subroutine mld_z_jac_smoother_apply(alpha,sm,x,beta,y,desc_data,& call psb_erractionsave(err_act) info = psb_success_ + ictxt = desc_data%get_context() + call psb_info(ictxt,me,np) if (present(init)) then diff --git a/mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90 b/mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90 index 53697f54..ee97b9c9 100644 --- a/mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90 +++ b/mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90 @@ -63,6 +63,8 @@ subroutine mld_z_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,& call psb_erractionsave(err_act) info = psb_success_ + ictxt = desc_data%get_context() + call psb_info(ictxt,me,np) if (present(init)) then