fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix call to psb_info in apply

Browse Source
stopcriterion
Salvatore Filippone 7 years ago
parent 69cd86f079
commit 9c7b84ed07
8 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/impl/smoother/mld_c_jac_smoother_apply.f90
Unescape Escape 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

2
mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90
Unescape Escape 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

2
mlprec/impl/smoother/mld_d_jac_smoother_apply.f90
Unescape Escape 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

2
mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90
Unescape Escape 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

2
mlprec/impl/smoother/mld_s_jac_smoother_apply.f90
Unescape Escape 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

2
mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90
Unescape Escape 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

2
mlprec/impl/smoother/mld_z_jac_smoother_apply.f90
Unescape Escape 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

2
mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90
Unescape Escape 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

Write Preview
Loading…
Cancel
Save