psblas2:

base/tools/psb_ccdbldext.F90 base/tools/psb_dcdbldext.F90 base/tools/psb_scdbldext.F90 base/tools/psb_zcdbldext.F90 Reverted to use internal module names.
17 years ago · e880b18eb1
parent 02b09a9eb5
commit e880b18eb1
4 changed files with 25 additions and 4 deletions
--- a/base/tools/psb_ccdbldext.F90
+++ b/base/tools/psb_ccdbldext.F90
@ -61,7 +61,13 @@
 !
 Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype)

-  use psb_base_mod, psb_protect_name => psb_ccdbldext
+
+  use psb_tools_mod, psb_protect_name => psb_ccdbldext
+  use psb_serial_mod
+  use psb_descriptor_type
+  use psb_error_mod
+  use psb_penv_mod
+  use psb_realloc_mod
  use psi_mod
 #ifdef MPI_MOD
    use mpi
--- a/base/tools/psb_dcdbldext.F90
+++ b/base/tools/psb_dcdbldext.F90
@ -61,7 +61,12 @@
 !
 Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)

-  use psb_base_mod, psb_protect_name => psb_dcdbldext
+  use psb_tools_mod, psb_protect_name => psb_dcdbldext
+  use psb_serial_mod
+  use psb_descriptor_type
+  use psb_error_mod
+  use psb_penv_mod
+  use psb_realloc_mod
  use psi_mod
 #ifdef MPI_MOD
  use mpi
--- a/base/tools/psb_scdbldext.F90
+++ b/base/tools/psb_scdbldext.F90
@ -61,7 +61,12 @@
 !
 Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype)

-  use psb_base_mod, psb_protect_name => psb_scdbldext
+  use psb_tools_mod, psb_protect_name => psb_scdbldext
+  use psb_serial_mod
+  use psb_descriptor_type
+  use psb_error_mod
+  use psb_penv_mod
+  use psb_realloc_mod
  use psi_mod
 #ifdef MPI_MOD
  use mpi
--- a/base/tools/psb_zcdbldext.F90
+++ b/base/tools/psb_zcdbldext.F90
@ -61,7 +61,12 @@
 !
 Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype)

-  use psb_base_mod, psb_protect_name => psb_zcdbldext
+  use psb_tools_mod, psb_protect_name => psb_zcdbldext
+  use psb_serial_mod
+  use psb_descriptor_type
+  use psb_error_mod
+  use psb_penv_mod
+  use psb_realloc_mod
  use psi_mod
 #ifdef MPI_MOD
    use mpi