*** empty log message ***

base/internals/psi_crea_index.f90

@@ -52,13 +52,14 @@
 ! nrcv         - integer               Total receive buffer size    on the calling process
 !
 !  
+submodule (psi_i_mod) psi_crea_index_impl_mod
+contains
   subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,nxch,nsnd,nrcv,info)
 
     use psb_realloc_mod
     use psb_desc_mod
     use psb_error_mod
     use psb_penv_mod
-  use psi_mod, psb_protect_name => psi_crea_index
     implicit none
 
     type(psb_desc_type), intent(in)     :: desc_a
@@ -156,3 +157,4 @@ subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,nxch,nsnd,nrcv,info
 
     return
   end subroutine psi_crea_index
+end submodule psi_crea_index_impl_mod