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

Fix call to psb_info in apply

Browse Source
This commit is contained in:
Salvatore Filippone
2017-10-23 12:36:01 +01:00
parent 69cd86f079
commit 9c7b84ed07
8 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/smoother/mld_c_jac_smoother_apply.f90
+2
View File
@@ -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
mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90
+2
View File
@@ -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
mlprec/impl/smoother/mld_d_jac_smoother_apply.f90
+2
View File
@@ -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
mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90
+2
View File
@@ -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
mlprec/impl/smoother/mld_s_jac_smoother_apply.f90
+2
View File
@@ -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
mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90
+2
View File
@@ -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
mlprec/impl/smoother/mld_z_jac_smoother_apply.f90
+2
View File
@@ -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
mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90
+2
View File
@@ -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