Align with new implementation of extract_dep_list.

5 years ago · 92dae92582
parent e97cab7ddc
commit 92dae92582
1 changed files with 7 additions and 7 deletions
--- a/base/modules/psi_i_mod.F90
+++ b/base/modules/psi_i_mod.F90
@ -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