*** empty log message ***

base/internals/psi_crea_index.f90

@@ -52,13 +52,14 @@
 ! nrcv         - integer               Total receive buffer size    on the calling process
 !
 !  
-subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,nxch,nsnd,nrcv,info)
+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
@@ -155,4 +156,5 @@ subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,nxch,nsnd,nrcv,info
 9999 call psb_error_handler(ictxt,err_act)
 
     return
-end subroutine psi_crea_index
+  end subroutine psi_crea_index
+end submodule psi_crea_index_impl_mod