Fix call to psb_info in apply

7 years ago · 9c7b84ed07
parent 69cd86f079
commit 9c7b84ed07
8 changed files with 16 additions and 0 deletions
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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