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