Fix USE statement

8 months ago · daaa06e486
parent 5ee819592f
commit daaa06e486
4 changed files with 4 additions and 4 deletions
--- 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
--- 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
--- 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
--- 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