fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix template typo in KRM_SOLVER_IMPL

Browse Source
This commit is contained in:
sfilippone
2025-11-20 14:59:15 +01:00
parent 92766e743a
commit 547c4f3a60
4 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/solver/amg_c_krm_solver_impl.f90
+3 -3
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)
amgprec/impl/solver/amg_d_krm_solver_impl.f90
+3 -3
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)
amgprec/impl/solver/amg_s_krm_solver_impl.f90
+3 -3
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)
amgprec/impl/solver/amg_z_krm_solver_impl.f90
+3 -3
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)