psblas-submodules:

base/internals/psi_desc_impl.f90

New submodules for psi_mod

base/internals/psi_desc_impl.f90

@@ -29,9 +29,11 @@
 !!$  POSSIBILITY OF SUCH DAMAGE.
 !!$ 
 !!$  
+submodule (psi_i_mod) psi_desc_impl_mod
+
+contains
 
   subroutine psi_renum_index(iperm,idx,info)
-  use psi_mod, psi_protect_name =>  psi_renum_index
     use psb_serial_mod 
     implicit none 
 
@@ -61,8 +63,6 @@ subroutine psi_renum_index(iperm,idx,info)
   end subroutine psi_renum_index
 
   subroutine psi_cnv_dsc(halo_in,ovrlap_in,ext_in,cdesc, info, mold)
-
-  use psi_mod, psi_protect_name =>  psi_cnv_dsc
     use psb_realloc_mod
     implicit none
 
@@ -189,7 +189,6 @@ end subroutine psi_cnv_dsc
 
 
   subroutine psi_inner_cnvs(x,hashmask,hashv,glb_lc)
-  use psi_mod, psi_protect_name => psi_inner_cnvs
 
     integer(psb_ipk_), intent(in)    :: hashmask,hashv(0:),glb_lc(:,:)
     integer(psb_ipk_), intent(inout) :: x
@@ -234,7 +233,6 @@ subroutine psi_inner_cnvs(x,hashmask,hashv,glb_lc)
   end subroutine psi_inner_cnvs
 
   subroutine psi_inner_cnvs2(x,y,hashmask,hashv,glb_lc)
-  use psi_mod, psi_protect_name =>  psi_inner_cnvs2
     integer(psb_ipk_), intent(in)  :: hashmask,hashv(0:),glb_lc(:,:)
     integer(psb_ipk_), intent(in)  :: x
     integer(psb_ipk_), intent(out) :: y
@@ -280,7 +278,6 @@ end subroutine psi_inner_cnvs2
 
 
   subroutine psi_inner_cnv1(n,x,hashmask,hashv,glb_lc,mask)
-  use psi_mod, psi_protect_name =>  psi_inner_cnv1
     integer(psb_ipk_), intent(in)    :: n,hashmask,hashv(0:),glb_lc(:,:)
     logical, intent(in), optional    :: mask(:)
     integer(psb_ipk_), intent(inout) :: x(:)
@@ -361,7 +358,6 @@ subroutine psi_inner_cnv1(n,x,hashmask,hashv,glb_lc,mask)
   end subroutine psi_inner_cnv1
 
   subroutine psi_inner_cnv2(n,x,y,hashmask,hashv,glb_lc,mask)
-  use psi_mod, psi_protect_name =>  psi_inner_cnv2
     integer(psb_ipk_), intent(in)  :: n, hashmask,hashv(0:),glb_lc(:,:)
     logical, intent(in),optional  :: mask(:)
     integer(psb_ipk_), intent(in)  :: x(:)
@@ -449,7 +445,6 @@ subroutine psi_inner_cnv2(n,x,y,hashmask,hashv,glb_lc,mask)
   end subroutine psi_inner_cnv2
 
   subroutine psi_bld_ovr_mst(me,ovrlap_elem,mst_idx,info)
-  use psi_mod, psi_protect_name =>  psi_bld_ovr_mst
 
     use psb_realloc_mod
     implicit none
@@ -495,3 +490,4 @@ subroutine psi_bld_ovr_mst(me,ovrlap_elem,mst_idx,info)
 
   end subroutine psi_bld_ovr_mst
 
+end submodule psi_desc_impl_mod