Align with new implementation of extract_dep_list.

base/modules/psi_i_mod.F90

@@ -118,11 +118,11 @@ module psi_i_mod
          & length_dl,dl_lda,mode,info)
       import
       implicit none 
-      logical,  intent(in)           :: is_bld, is_upd
+      logical,  intent(in)    :: is_bld, is_upd
-      integer(psb_ipk_), intent(in)  :: ictxt,mode
+      integer(psb_ipk_), intent(in)  :: ictxt, mode
       integer(psb_ipk_), intent(out) :: dl_lda
       integer(psb_ipk_), intent(in)  :: desc_str(*)
-      integer(psb_ipk_), allocatable, intent(out) :: dep_list(:,:),length_dl(:)
+      integer(psb_ipk_), allocatable, intent(out) :: dep_list(:,:), length_dl(:)
       integer(psb_ipk_), intent(out) :: info
     end subroutine psi_i_extract_dep_list
   end interface
@@ -131,11 +131,11 @@ module psi_i_mod
     subroutine psi_i_fnd_owner(nv,idx,iprc,desc,info)
       import
       implicit none       
-      integer(psb_ipk_), intent(in)      :: nv
+      integer(psb_ipk_), intent(in) :: nv
-      integer(psb_ipk_), intent(in)      ::  idx(:)
+      integer(psb_ipk_), intent(in) ::  idx(:)
       integer(psb_ipk_), allocatable, intent(out) ::  iprc(:)
-      type(psb_desc_type), intent(inout) :: desc
+      type(psb_desc_type), intent(in) :: desc
-      integer(psb_ipk_), intent(out)     :: info
+      integer(psb_ipk_), intent(out) :: info
     end subroutine psi_i_fnd_owner
   end interface psi_fnd_owner