LPK for psi_desc_index()

8 years ago · 141437e716
parent 915ec70a08
commit 141437e716
2 changed files with 4 additions and 2 deletions
--- 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
--- 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