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,7 +98,9 @@
 !     is rebuilt during the CDASB process (in the psi_ldsc_pre_halo subroutine). 
 !
 !
-subroutine psi_desc_index(desc,index_in,dep_list,&
+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
     use psb_realloc_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'
@@ -341,4 +342,5 @@ subroutine psi_desc_index(desc,index_in,dep_list,&
 
     return
 
-end subroutine psi_desc_index
+  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
 ! 
-subroutine psi_dl_check(dep_list,dl_lda,np,length_dl)
+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
@@ -92,4 +93,5 @@ subroutine psi_dl_check(dep_list,dl_lda,np,length_dl)
       enddo outer
     enddo
 
-end subroutine psi_dl_check
+  end subroutine psi_dl_check
+end submodule psi_dl_check_impl_mod

base/internals/psi_extrct_dl.F90

@@ -29,7 +29,9 @@
 !!$  POSSIBILITY OF SUCH DAMAGE.
 !!$ 
 !!$  
-subroutine psi_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
+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)
 
     !    internal routine
@@ -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
@@ -292,4 +293,5 @@ subroutine psi_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
 
     return
 
-end subroutine psi_extract_dep_list
+  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.
 !!$ 
 !!$  
-subroutine psi_sort_dl(dep_list,l_dep_list,np,info)
+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
@@ -87,7 +88,6 @@ subroutine psi_sort_dl(dep_list,l_dep_list,np,info)
 
     return
 
-end subroutine psi_sort_dl
-
-
+  end subroutine psi_sort_dl
       
+end submodule psi_sort_dlimpl_mod