Align with new implementation of extract_dep_list.

base/modules/psi_i_mod.F90

@@ -119,10 +119,10 @@ module psi_i_mod
       import
       implicit none 
       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
@@ -134,7 +134,7 @@ module psi_i_mod
       integer(psb_ipk_), intent(in) :: nv
       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
     end subroutine psi_i_fnd_owner
   end interface psi_fnd_owner