LPK for psi_desc_index()

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

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