*** empty log message ***

base/internals/psi_crea_ovr_elem.f90

@@ -42,9 +42,10 @@
 !    desc_a   - type(psb_desc_type).       The communication descriptor.        
 !    info     - integer.                   return code.
 ! 
-subroutine psi_crea_ovr_elem(me,desc_overlap,ovr_elem,info)
+submodule (psi_i_mod) psi_crea_ovr_elem_impl_mod
+contains
+  subroutine psi_crea_ovr_elem(me,desc_overlap,ovr_elem,info)
 
-  use psi_mod, psb_protect_name => psi_crea_ovr_elem
     use psb_realloc_mod
     use psb_error_mod
     use psb_penv_mod
@@ -143,4 +144,5 @@ subroutine psi_crea_ovr_elem(me,desc_overlap,ovr_elem,info)
 
     return
 
-end subroutine psi_crea_ovr_elem
+  end subroutine psi_crea_ovr_elem
+end submodule psi_crea_ovr_elem_impl_mod