From daaa06e4869438ffb2324aa4b0d8dee90f5142af Mon Sep 17 00:00:00 2001 From: sfilippone Date: Tue, 23 Sep 2025 16:16:08 +0200 Subject: [PATCH] Fix USE statement --- amgprec/impl/amg_c_smoothers_bld.f90 | 2 +- amgprec/impl/amg_d_smoothers_bld.f90 | 2 +- amgprec/impl/amg_s_smoothers_bld.f90 | 2 +- amgprec/impl/amg_z_smoothers_bld.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/amgprec/impl/amg_c_smoothers_bld.f90 b/amgprec/impl/amg_c_smoothers_bld.f90 index 34d4dc9b..749ba57f 100644 --- a/amgprec/impl/amg_c_smoothers_bld.f90 +++ b/amgprec/impl/amg_c_smoothers_bld.f90 @@ -81,7 +81,7 @@ subroutine amg_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold) use psb_base_mod - use amg_c_prec_type + use amg_c_prec_type, amg_protect_name => amg_c_smoothers_bld Implicit None diff --git a/amgprec/impl/amg_d_smoothers_bld.f90 b/amgprec/impl/amg_d_smoothers_bld.f90 index ed2fd393..a8398cf6 100644 --- a/amgprec/impl/amg_d_smoothers_bld.f90 +++ b/amgprec/impl/amg_d_smoothers_bld.f90 @@ -81,7 +81,7 @@ subroutine amg_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold) use psb_base_mod - use amg_d_prec_type + use amg_d_prec_type, amg_protect_name => amg_d_smoothers_bld Implicit None diff --git a/amgprec/impl/amg_s_smoothers_bld.f90 b/amgprec/impl/amg_s_smoothers_bld.f90 index 9cd5f00c..396f0b82 100644 --- a/amgprec/impl/amg_s_smoothers_bld.f90 +++ b/amgprec/impl/amg_s_smoothers_bld.f90 @@ -81,7 +81,7 @@ subroutine amg_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold) use psb_base_mod - use amg_s_prec_type + use amg_s_prec_type, amg_protect_name => amg_s_smoothers_bld Implicit None diff --git a/amgprec/impl/amg_z_smoothers_bld.f90 b/amgprec/impl/amg_z_smoothers_bld.f90 index f55b3f12..715f6178 100644 --- a/amgprec/impl/amg_z_smoothers_bld.f90 +++ b/amgprec/impl/amg_z_smoothers_bld.f90 @@ -81,7 +81,7 @@ subroutine amg_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold) use psb_base_mod - use amg_z_prec_type + use amg_z_prec_type, amg_protect_name => amg_z_smoothers_bld Implicit None