mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-19 04:12:09 +00:00
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.
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user