From 547c4f3a60d49d630d36182077546c3f87e4c536 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Thu, 20 Nov 2025 14:59:15 +0100 Subject: [PATCH] Fix template typo in KRM_SOLVER_IMPL --- amgprec/impl/solver/amg_c_krm_solver_impl.f90 | 6 +++--- amgprec/impl/solver/amg_d_krm_solver_impl.f90 | 6 +++--- amgprec/impl/solver/amg_s_krm_solver_impl.f90 | 6 +++--- amgprec/impl/solver/amg_z_krm_solver_impl.f90 | 6 +++--- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/amgprec/impl/solver/amg_c_krm_solver_impl.f90 b/amgprec/impl/solver/amg_c_krm_solver_impl.f90 index 6df8190c..e09950f7 100644 --- a/amgprec/impl/solver/amg_c_krm_solver_impl.f90 +++ b/amgprec/impl/solver/amg_c_krm_solver_impl.f90 @@ -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) diff --git a/amgprec/impl/solver/amg_d_krm_solver_impl.f90 b/amgprec/impl/solver/amg_d_krm_solver_impl.f90 index 412aa4c8..b267afe3 100644 --- a/amgprec/impl/solver/amg_d_krm_solver_impl.f90 +++ b/amgprec/impl/solver/amg_d_krm_solver_impl.f90 @@ -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) diff --git a/amgprec/impl/solver/amg_s_krm_solver_impl.f90 b/amgprec/impl/solver/amg_s_krm_solver_impl.f90 index df4c1648..b01face6 100644 --- a/amgprec/impl/solver/amg_s_krm_solver_impl.f90 +++ b/amgprec/impl/solver/amg_s_krm_solver_impl.f90 @@ -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) diff --git a/amgprec/impl/solver/amg_z_krm_solver_impl.f90 b/amgprec/impl/solver/amg_z_krm_solver_impl.f90 index 55d55ba1..01d075c5 100644 --- a/amgprec/impl/solver/amg_z_krm_solver_impl.f90 +++ b/amgprec/impl/solver/amg_z_krm_solver_impl.f90 @@ -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)