From 92dae92582ac32023fcf1184a17e7b90720c1293 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sun, 15 Dec 2019 18:37:14 +0000 Subject: [PATCH] Align with new implementation of extract_dep_list. --- base/modules/psi_i_mod.F90 | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/base/modules/psi_i_mod.F90 b/base/modules/psi_i_mod.F90 index e8222753..ac2fcf06 100644 --- a/base/modules/psi_i_mod.F90 +++ b/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 - integer(psb_ipk_), intent(in) :: ictxt,mode + logical, intent(in) :: is_bld, is_upd + 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) :: idx(:) + 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 - integer(psb_ipk_), intent(out) :: info + type(psb_desc_type), intent(in) :: desc + integer(psb_ipk_), intent(out) :: info end subroutine psi_i_fnd_owner end interface psi_fnd_owner