Further fixes for building with LPK. Internals now compile.

base/internals/psi_bld_tmphalo.f90

@@ -56,7 +56,8 @@ subroutine psi_bld_tmphalo(desc,info)
   type(psb_desc_type), intent(inout) :: desc
   integer(psb_ipk_), intent(out) :: info
 
-  integer(psb_ipk_),allocatable :: helem(:),hproc(:)
+  integer(psb_lpk_),allocatable :: helem(:)
+  integer(psb_ipk_),allocatable :: hproc(:)
   integer(psb_ipk_),allocatable :: tmphl(:)
 
   integer(psb_ipk_) ::  i,j,np,me,lhalo,nhalo,&

base/internals/psi_crea_index.f90

@@ -63,7 +63,7 @@ subroutine psi_i_crea_index(desc_a,index_in,index_out,glob_idx,nxch,nsnd,nrcv,in
 
   type(psb_desc_type), intent(in)     :: desc_a
   integer(psb_ipk_), intent(out)                :: info,nxch,nsnd,nrcv
-  integer(psb_ipk_), intent(in)                 :: index_in(:)
+  integer(psb_lpk_), intent(in)                 :: index_in(:)
   integer(psb_ipk_), allocatable, intent(inout) :: index_out(:)
   logical                             :: glob_idx
 

base/internals/psi_extrct_dl.F90

@@ -136,7 +136,8 @@ subroutine psi_i_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
   integer(psb_ipk_) :: np,dl_lda,mode, info
 
   !     ....array parameters....
-  integer(psb_ipk_) ::  desc_str(*),dep_list(dl_lda,0:np),length_dl(0:np)
+  integer(psb_lpk_) :: desc_str(*)
+  integer(psb_ipk_) :: dep_list(dl_lda,0:np),length_dl(0:np)
   integer(psb_ipk_), allocatable :: itmp(:)
   !     .....local arrays....
   integer(psb_ipk_) :: int_err(5)

base/modules/Makefile

@@ -125,7 +125,7 @@ psb_realloc_mod.o \
 	auxil/psb_z_realloc_mod.o:   psb_error_mod.o
 $(UTIL_MODS): $(BASIC_MODS)
 
-penv/psi_penv_mod.o: penv/psi_comm_buffers_mod.o 
+penv/psi_penv_mod.o: penv/psi_comm_buffers_mod.o serial/psb_vect_mod.o  serial/psb_mat_mod.o 
 penv/psi_collective_mod.o penv/psi_p2p_mod.o: penv/psi_penv_mod.o	
 
 psb_realloc_mod.o: auxil/psb_m_realloc_mod.o \
@@ -326,7 +326,7 @@ psblas/psb_s_psblas_mod.o psblas/psb_c_psblas_mod.o psblas/psb_d_psblas_mod.o ps
 
 psb_base_mod.o: $(MODULES)
 
-psi_penv_mod.o: psi_penv_mod.F90 $(BASIC_MODS) 	serial/psb_vect_mod.o  serial/psb_mat_mod.o 
+penv/psi_penv_mod.o: penv/psi_penv_mod.F90 $(BASIC_MODS) serial/psb_vect_mod.o  serial/psb_mat_mod.o 
 	$(FC)   $(FINCLUDES) $(FDEFINES) $(FCOPT) $(EXTRA_OPT) -c $< -o $@
 
 psb_penv_mod.o: psb_penv_mod.F90 $(COMMINT) $(BASIC_MODS)

base/modules/psi_i_mod.F90

@@ -116,7 +116,8 @@ module psi_i_mod
       logical :: is_bld, is_upd
       integer(psb_ipk_) :: ictxt
       integer(psb_ipk_) :: dl_lda,mode
-      integer(psb_ipk_) :: desc_str(*),dep_list(dl_lda,0:np),length_dl(0:np)
+      integer(psb_lpk_) :: desc_str(*)
+      integer(psb_ipk_) :: dep_list(dl_lda,0:np),length_dl(0:np)
       integer(psb_mpk_) :: np
       integer(psb_ipk_) :: info
     end subroutine psi_i_extract_dep_list

base/modules/serial/psb_vect_mod.f90

@@ -21,12 +21,14 @@ contains
     !
 
     type(psb_i_base_vect_type)  :: ivetdef
+    type(psb_l_base_vect_type)  :: lvetdef
     type(psb_s_base_vect_type)  :: svetdef
     type(psb_d_base_vect_type)  :: dvetdef
     type(psb_c_base_vect_type)  :: cvetdef
     type(psb_z_base_vect_type)  :: zvetdef
 
     call psb_set_vect_default(ivetdef)
+    call psb_set_vect_default(lvetdef)
     call psb_set_vect_default(svetdef)
     call psb_set_vect_default(dvetdef)
     call psb_set_vect_default(cvetdef)