psblas-submodules:

base/internals/psi_bld_tmphalo.f90
 base/internals/psi_bld_tmpovrl.f90
 base/internals/psi_crea_bnd_elem.f90

New submodules for psi_mod

base/internals/psi_bld_tmphalo.f90

@@ -44,6 +44,10 @@
 !    desc     - type(psb_desc_type).    The communication descriptor.        
 !    info     - integer.                  return code.
 !
+submodule (psi_i_mod) psi_bld_tmphalo_impl_mod
+
+contains
+
   subroutine psi_bld_tmphalo(desc,info)
     use psb_desc_mod
     use psb_serial_mod
@@ -51,7 +55,6 @@ subroutine psi_bld_tmphalo(desc,info)
     use psb_error_mod
     use psb_penv_mod
     use psb_realloc_mod
-  use psi_mod, psb_protect_name => psi_bld_tmphalo
     implicit none
     type(psb_desc_type), intent(inout) :: desc
     integer(psb_ipk_), intent(out) :: info
@@ -146,3 +149,5 @@ subroutine psi_bld_tmphalo(desc,info)
     return
 
   end subroutine psi_bld_tmphalo
+
+end submodule psi_bld_tmphalo_impl_mod

base/internals/psi_bld_tmpovrl.f90

@@ -50,6 +50,9 @@
 !    desc     - type(psb_desc_type).  The communication descriptor.        
 !    info     - integer.              return code.
 !
+submodule (psi_i_mod) psi_bld_tmpovrl_impl_mod
+
+contains
   subroutine psi_bld_tmpovrl(iv,desc,info)
     use psb_desc_mod
     use psb_serial_mod
@@ -57,7 +60,6 @@ subroutine psi_bld_tmpovrl(iv,desc,info)
     use psb_error_mod
     use psb_penv_mod
     use psb_realloc_mod
-  use psi_mod, psb_protect_name => psi_bld_tmpovrl
     implicit none
     integer(psb_ipk_), intent(in)  :: iv(:)
     type(psb_desc_type), intent(inout) :: desc
@@ -148,3 +150,5 @@ subroutine psi_bld_tmpovrl(iv,desc,info)
     return
 
   end subroutine psi_bld_tmpovrl
+
+end submodule psi_bld_tmpovrl_impl_mod

base/internals/psi_crea_bnd_elem.f90

@@ -43,8 +43,10 @@
 !    desc_a   - type(psb_desc_type).    The communication descriptor.        
 !    info     - integer.                  return code.
 ! 
+submodule (psi_i_mod) psi_crea_bnd_elem_impl_mod
+
+contains
   subroutine psi_crea_bnd_elem(bndel,desc_a,info)
-  use psi_mod, psb_protect_name => psi_crea_bnd_elem
     use psb_realloc_mod
     use psb_desc_mod
     use psb_error_mod
@@ -117,3 +119,4 @@ subroutine psi_crea_bnd_elem(bndel,desc_a,info)
     return
 
   end subroutine psi_crea_bnd_elem
+end submodule psi_crea_bnd_elem_impl_mod