From 141437e7164d8e3f781efaa546dca6fe6a3fe0d9 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 22 Mar 2018 11:54:40 +0000 Subject: [PATCH] LPK for psi_desc_index() --- base/internals/psi_desc_index.F90 | 3 ++- base/modules/psi_i_mod.F90 | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/base/internals/psi_desc_index.F90 b/base/internals/psi_desc_index.F90 index d7e165c2..0f163f2b 100644 --- a/base/internals/psi_desc_index.F90 +++ b/base/internals/psi_desc_index.F90 @@ -116,7 +116,8 @@ subroutine psi_i_desc_index(desc,index_in,dep_list,& ! ...array parameters..... type(psb_desc_type) :: desc - integer(psb_ipk_) :: index_in(:),dep_list(:) + integer(psb_lpk_) :: index_in(:) + integer(psb_ipk_) :: dep_list(:) integer(psb_ipk_),allocatable :: desc_index(:) integer(psb_ipk_) :: length_dl,nsnd,nrcv,info logical :: isglob_in diff --git a/base/modules/psi_i_mod.F90 b/base/modules/psi_i_mod.F90 index 09d7a1ec..8225afb1 100644 --- a/base/modules/psi_i_mod.F90 +++ b/base/modules/psi_i_mod.F90 @@ -83,7 +83,8 @@ module psi_i_mod & length_dl,nsnd,nrcv,desc_index,isglob_in,info) import type(psb_desc_type) :: desc - integer(psb_ipk_) :: index_in(:),dep_list(:) + integer(psb_lpk_) :: index_in(:) + integer(psb_ipk_) :: dep_list(:) integer(psb_ipk_),allocatable :: desc_index(:) integer(psb_ipk_) :: length_dl,nsnd,nrcv logical :: isglob_in