Fixed ONLY clause in USE PSB_TOOLS_MOD to avoid name clashing.

18 years ago · 1ae3697c76
parent 63c39fd0f2
commit 1ae3697c76
2 changed files with 2 additions and 2 deletions
--- a/base/tools/psb_dcdovr.f90
+++ b/base/tools/psb_dcdovr.f90
@ -50,7 +50,7 @@ Subroutine psb_dcdovr(a,desc_a,novr,desc_ov,info, extype)
  use psb_descriptor_type
  use psb_error_mod
  use psb_penv_mod
-  use psb_tools_mod
+  use psb_tools_mod, only : psb_cdcpy
  use psb_realloc_mod
  use psi_mod
  use mpi
--- a/base/tools/psb_zcdovr.f90
+++ b/base/tools/psb_zcdovr.f90
@ -49,7 +49,7 @@ Subroutine psb_zcdovr(a,desc_a,novr,desc_ov,info, extype)
  use psb_descriptor_type
  use psb_error_mod
  use psb_penv_mod
-  use psb_tools_mod
+  use psb_tools_mod, only : psb_cdcpy
  use psb_realloc_mod
  use psi_mod
  use mpi