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