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

Merge branch 'master' of https://github.com/sfilippone/mld2p4-2

Browse Source
stopcriterion
Salvatore Filippone 7 years ago
parent f7645c5aa1 25acc34d6b
commit 79f098c466
12 changed files with 20 additions and 4 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) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
ictxt = desc_data%get_context()
call psb_info(ictxt,me,np)
if (present(init)) then 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) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
ictxt = desc_data%get_context()
call psb_info(ictxt,me,np)
if (present(init)) then 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) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
ictxt = desc_data%get_context()
call psb_info(ictxt,me,np)
if (present(init)) then 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) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
ictxt = desc_data%get_context()
call psb_info(ictxt,me,np)
if (present(init)) then 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) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
ictxt = desc_data%get_context()
call psb_info(ictxt,me,np)
if (present(init)) then 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) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
ictxt = desc_data%get_context()
call psb_info(ictxt,me,np)
if (present(init)) then 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) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
ictxt = desc_data%get_context()
call psb_info(ictxt,me,np)
if (present(init)) then 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) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
ictxt = desc_data%get_context()
call psb_info(ictxt,me,np)
if (present(init)) then if (present(init)) then

2
tests/pdegen/mld_d_pde2d.f90
Unescape Escape View File

@ -868,12 +868,12 @@ contains
call psb_bcast(icontxt,prec%solve) call psb_bcast(icontxt,prec%solve)
call psb_bcast(icontxt,prec%fill) call psb_bcast(icontxt,prec%fill)
call psb_bcast(icontxt,prec%thr) call psb_bcast(icontxt,prec%thr)
call psb_bcast(icontxt,prec%outer_sweeps)
! broadcast (other) AMG parameters ! broadcast (other) AMG parameters
if (psb_toupper(prec%ptype) == 'ML') then if (psb_toupper(prec%ptype) == 'ML') then
call psb_bcast(icontxt,prec%mlcycle) call psb_bcast(icontxt,prec%mlcycle)
call psb_bcast(icontxt,prec%outer_sweeps)
call psb_bcast(icontxt,prec%maxlevs) call psb_bcast(icontxt,prec%maxlevs)
call psb_bcast(icontxt,prec%smther2) call psb_bcast(icontxt,prec%smther2)

2
tests/pdegen/mld_d_pde3d.f90
Unescape Escape View File

@ -922,12 +922,12 @@ contains
call psb_bcast(icontxt,prec%solve) call psb_bcast(icontxt,prec%solve)
call psb_bcast(icontxt,prec%fill) call psb_bcast(icontxt,prec%fill)
call psb_bcast(icontxt,prec%thr) call psb_bcast(icontxt,prec%thr)
call psb_bcast(icontxt,prec%outer_sweeps)
! broadcast (other) AMG parameters ! broadcast (other) AMG parameters
if (psb_toupper(prec%ptype) == 'ML') then if (psb_toupper(prec%ptype) == 'ML') then
call psb_bcast(icontxt,prec%mlcycle) call psb_bcast(icontxt,prec%mlcycle)
call psb_bcast(icontxt,prec%outer_sweeps)
call psb_bcast(icontxt,prec%maxlevs) call psb_bcast(icontxt,prec%maxlevs)
call psb_bcast(icontxt,prec%smther2) call psb_bcast(icontxt,prec%smther2)

2
tests/pdegen/mld_s_pde2d.f90
Unescape Escape View File

@ -868,12 +868,12 @@ contains
call psb_bcast(icontxt,prec%solve) call psb_bcast(icontxt,prec%solve)
call psb_bcast(icontxt,prec%fill) call psb_bcast(icontxt,prec%fill)
call psb_bcast(icontxt,prec%thr) call psb_bcast(icontxt,prec%thr)
call psb_bcast(icontxt,prec%outer_sweeps)
! broadcast (other) AMG parameters ! broadcast (other) AMG parameters
if (psb_toupper(prec%ptype) == 'ML') then if (psb_toupper(prec%ptype) == 'ML') then
call psb_bcast(icontxt,prec%mlcycle) call psb_bcast(icontxt,prec%mlcycle)
call psb_bcast(icontxt,prec%outer_sweeps)
call psb_bcast(icontxt,prec%maxlevs) call psb_bcast(icontxt,prec%maxlevs)
call psb_bcast(icontxt,prec%smther2) call psb_bcast(icontxt,prec%smther2)

2
tests/pdegen/mld_s_pde3d.f90
Unescape Escape View File

@ -922,12 +922,12 @@ contains
call psb_bcast(icontxt,prec%solve) call psb_bcast(icontxt,prec%solve)
call psb_bcast(icontxt,prec%fill) call psb_bcast(icontxt,prec%fill)
call psb_bcast(icontxt,prec%thr) call psb_bcast(icontxt,prec%thr)
call psb_bcast(icontxt,prec%outer_sweeps)
! broadcast (other) AMG parameters ! broadcast (other) AMG parameters
if (psb_toupper(prec%ptype) == 'ML') then if (psb_toupper(prec%ptype) == 'ML') then
call psb_bcast(icontxt,prec%mlcycle) call psb_bcast(icontxt,prec%mlcycle)
call psb_bcast(icontxt,prec%outer_sweeps)
call psb_bcast(icontxt,prec%maxlevs) call psb_bcast(icontxt,prec%maxlevs)
call psb_bcast(icontxt,prec%smther2) call psb_bcast(icontxt,prec%smther2)

Write Preview
Loading…
Cancel
Save