psblas-submodules:

base/internals/psi_desc_index.F90
 base/internals/psi_dl_check.f90
 base/internals/psi_extrct_dl.F90
 base/internals/psi_sort_dl.f90

New submodules for psi_mod

base/internals/psi_desc_index.F90

@@ -98,6 +98,8 @@
 !     is rebuilt during the CDASB process (in the psi_ldsc_pre_halo subroutine). 
 !
 !
+submodule (psi_i_mod) psi_desc_index_impl_mod
+contains
   subroutine psi_desc_index(desc,index_in,dep_list,&
        & length_dl,nsnd,nrcv,desc_index,isglob_in,info)
     use psb_desc_mod
@@ -108,7 +110,6 @@ subroutine psi_desc_index(desc,index_in,dep_list,&
     use mpi
 #endif
     use psb_penv_mod
-  use psi_mod, psb_protect_name => psi_desc_index
     implicit none
 #ifdef MPI_H
     include 'mpif.h'
@@ -342,3 +343,4 @@ subroutine psi_desc_index(desc,index_in,dep_list,&
     return
 
   end subroutine psi_desc_index
+end submodule psi_desc_index_impl_mod

base/internals/psi_dl_check.f90

@@ -44,9 +44,10 @@
 !    length_dl(:)  - integer             Items in dependency lists; updated on 
 !                                        exit
 ! 
+submodule (psi_i_mod) psi_dl_check_impl_mod
+contains
   subroutine psi_dl_check(dep_list,dl_lda,np,length_dl)
 
-  use psi_mod, psb_protect_name => psi_dl_check
     use psb_const_mod
     use psb_desc_mod
     implicit none
@@ -93,3 +94,4 @@ subroutine psi_dl_check(dep_list,dl_lda,np,length_dl)
     enddo
 
   end subroutine psi_dl_check
+end submodule psi_dl_check_impl_mod

base/internals/psi_extrct_dl.F90

@@ -29,6 +29,8 @@
 !!$  POSSIBILITY OF SUCH DAMAGE.
 !!$ 
 !!$  
+submodule (psi_i_mod) psi_extract_dep_list_impl_mod
+contains
   subroutine psi_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
        & length_dl,np,dl_lda,mode,info)
 
@@ -118,7 +120,6 @@ subroutine psi_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
     !            desc_str list.
     !   length_dl  integer array(0:np)
     !             length_dl(i) is the length of dep_list(*,i) list
-  use psi_mod, psb_protect_name => psi_extract_dep_list
 #ifdef MPI_MOD
     use mpi
 #endif
@@ -293,3 +294,4 @@ subroutine psi_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
     return
 
   end subroutine psi_extract_dep_list
+end submodule psi_extract_dep_list_impl_mod

base/internals/psi_sort_dl.f90

@@ -29,12 +29,13 @@
 !!$  POSSIBILITY OF SUCH DAMAGE.
 !!$ 
 !!$  
+submodule (psi_i_mod) psi_sort_dlimpl_mod
+contains
   subroutine psi_sort_dl(dep_list,l_dep_list,np,info)
     !
     !     interface between former sort_dep_list subroutine
     !     and new srtlist
     !
-  use psi_mod, psb_protect_name => psi_sort_dl
     use psb_const_mod
     use psb_error_mod
     implicit none
@@ -89,5 +90,4 @@ subroutine psi_sort_dl(dep_list,l_dep_list,np,info)
 
   end subroutine psi_sort_dl
       
-
-      
+end submodule psi_sort_dlimpl_mod