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

Fix template typo in KRM_SOLVER_IMPL

Browse Source
gpucinterfaces
sfilippone 6 months ago
parent 92766e743a
commit 547c4f3a60
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

6
amgprec/impl/solver/amg_c_krm_solver_impl.f90
Unescape Escape View File

@ -99,7 +99,7 @@ subroutine amg_c_krm_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt, l_ctxt
character(len=20) :: name='@Z@_krm_solver_bld', ch_err
character(len=20) :: name='c_krm_solver_bld', ch_err
info=psb_success_
call psb_erractionsave(err_act)
@ -190,7 +190,7 @@ subroutine amg_c_krm_solver_apply_vect(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt
character(len=20) :: name='@Z@_krm_solver_apply_v', ch_err
character(len=20) :: name='c_krm_solver_apply_v', ch_err
info=psb_success_
call psb_erractionsave(err_act)
@ -252,7 +252,7 @@ subroutine amg_c_krm_solver_apply(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt
character(len=20) :: name='@Z@_krm_solver_apply', ch_err
character(len=20) :: name='c_krm_solver_apply', ch_err
info=psb_success_
call psb_erractionsave(err_act)

6
amgprec/impl/solver/amg_d_krm_solver_impl.f90
Unescape Escape View File

@ -99,7 +99,7 @@ subroutine amg_d_krm_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt, l_ctxt
character(len=20) :: name='@Z@_krm_solver_bld', ch_err
character(len=20) :: name='d_krm_solver_bld', ch_err
info=psb_success_
call psb_erractionsave(err_act)
@ -190,7 +190,7 @@ subroutine amg_d_krm_solver_apply_vect(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt
character(len=20) :: name='@Z@_krm_solver_apply_v', ch_err
character(len=20) :: name='d_krm_solver_apply_v', ch_err
info=psb_success_
call psb_erractionsave(err_act)
@ -252,7 +252,7 @@ subroutine amg_d_krm_solver_apply(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt
character(len=20) :: name='@Z@_krm_solver_apply', ch_err
character(len=20) :: name='d_krm_solver_apply', ch_err
info=psb_success_
call psb_erractionsave(err_act)

6
amgprec/impl/solver/amg_s_krm_solver_impl.f90
Unescape Escape View File

@ -99,7 +99,7 @@ subroutine amg_s_krm_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt, l_ctxt
character(len=20) :: name='@Z@_krm_solver_bld', ch_err
character(len=20) :: name='s_krm_solver_bld', ch_err
info=psb_success_
call psb_erractionsave(err_act)
@ -190,7 +190,7 @@ subroutine amg_s_krm_solver_apply_vect(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt
character(len=20) :: name='@Z@_krm_solver_apply_v', ch_err
character(len=20) :: name='s_krm_solver_apply_v', ch_err
info=psb_success_
call psb_erractionsave(err_act)
@ -252,7 +252,7 @@ subroutine amg_s_krm_solver_apply(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt
character(len=20) :: name='@Z@_krm_solver_apply', ch_err
character(len=20) :: name='s_krm_solver_apply', ch_err
info=psb_success_
call psb_erractionsave(err_act)

6
amgprec/impl/solver/amg_z_krm_solver_impl.f90
Unescape Escape View File

@ -99,7 +99,7 @@ subroutine amg_z_krm_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt, l_ctxt
character(len=20) :: name='@Z@_krm_solver_bld', ch_err
character(len=20) :: name='z_krm_solver_bld', ch_err
info=psb_success_
call psb_erractionsave(err_act)
@ -190,7 +190,7 @@ subroutine amg_z_krm_solver_apply_vect(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt
character(len=20) :: name='@Z@_krm_solver_apply_v', ch_err
character(len=20) :: name='z_krm_solver_apply_v', ch_err
info=psb_success_
call psb_erractionsave(err_act)
@ -252,7 +252,7 @@ subroutine amg_z_krm_solver_apply(alpha,sv,x,beta,y,desc_data,&
integer(psb_ipk_) :: i, err_act, debug_unit, debug_level
integer(psb_mpk_) :: np,me
type(psb_ctxt_type) :: ctxt
character(len=20) :: name='@Z@_krm_solver_apply', ch_err
character(len=20) :: name='z_krm_solver_apply', ch_err
info=psb_success_
call psb_erractionsave(err_act)

Write Preview
Loading…
Cancel
Save