*** empty log message ***

src/modules/Makefile

@@ -10,13 +10,19 @@ MODULES = psb_realloc_mod.o psb_string_mod.o psb_spmat_type.o \
 OBJS = error.o parts.o
 
 INCDIRS = -I ../../lib
+LIBDIR = ../../lib
 
 psb_realloc_mod.o : psb_error_mod.o 
 psb_spmat_type.o : psb_realloc_mod.o psb_const_mod.o
 
 lib: $(MODULES) $(OBJS)
+	$(AR) $(LIBDIR)/$(LIBNAME) $(MODULES) $(OBJS)
+	$(RANLIB) $(LIBDIR)/$(LIBNAME)
 	cp *$(.mod) ./psb_const.fh ../../lib
 
 
 clean:
 	/bin/rm -f $(MODULES) $(OBJS) *$(.mod)
+
+veryclean: clean
+

src/modules/psb_blacs_mod.f90

@@ -1,4 +1,4 @@
-module f90blacs
+module psb_blacs_mod
   
   interface gebs2d
     module procedure igebs2ds, igebs2dv, igebs2dm,&
@@ -2732,4 +2732,4 @@ contains
   end subroutine zgamn2dm
   
 
-end module f90blacs
+end module psb_blacs_mod

src/modules/psb_comm_mod.f90

@@ -99,8 +99,8 @@ module psb_comm_mod
      subroutine  psb_dgatherv(globx, locx, desc_a, info, iroot,&
           & iiglobx, iilocx)
        use psb_descriptor_type
-       real(kind(1.d0)), intent(in)    :: locx(:,:)
-       real(kind(1.d0)), intent(out)   :: globx(:,:)
+       real(kind(1.d0)), intent(in)    :: locx(:)
+       real(kind(1.d0)), intent(out)   :: globx(:)
        type(psb_desc_type), intent(in) :: desc_a
        integer, intent(out)            :: info
        integer, intent(in), optional   :: iroot, iiglobx, iilocx

src/modules/psb_const.fh

@@ -30,7 +30,7 @@
       integer, parameter :: psb_n_dom_ovr_=1
       integer, parameter :: psb_nnz_=1
       integer, parameter :: psb_no_comm_=-1
-      integer, parameter :: ione=1, done=1.d0, izero=0, dzero=0.d0
+      integer, parameter :: ione=1, izero=0
       integer, parameter :: itwo=2, ithree=3,mone=-1, psb_root_=0
       integer, parameter :: psb_nztotreq_=1, psb_nzrowreq_=2
       integer, parameter :: psb_nzsizereq_=3
@@ -48,6 +48,7 @@
       integer, parameter :: act_ret=0, act_abort=1, no_err=0
 
       real(kind(1.d0)), parameter :: psb_colrow_=0.33, psb_percent_=0.7
+      real(kind(1.d0)), parameter :: dzero=0.d0, done=1.d0
 
       character, parameter :: psb_all_='A',  psb_topdef_=' '
       character(len=5) :: psb_fidef_='CSR'

src/modules/psb_const_mod.f90

@@ -1,3 +1,4 @@
+
 module psb_const_mod
 
   integer, parameter   :: psb_nohalo_=0,                 psb_halo_=4
@@ -24,7 +25,7 @@ module psb_const_mod
   integer, parameter   :: psb_ovrlp_elem_to_=2,          psb_ovrlp_elem_=0, psb_n_dom_ovr_=1
   integer, parameter   :: psb_nnz_=1
   integer, parameter   :: psb_no_comm_=-1
-  integer, parameter   :: ione=1, done=1.d0,             izero=0, dzero=0.d0,mone=-1
+  integer, parameter   :: ione=1,izero=0,mone=-1
   integer, parameter   :: itwo=2, ithree=3,              psb_root_=0
   integer, parameter   :: psb_nztotreq_=1,               psb_nzrowreq_=2, psb_nzsizereq_=3
   integer, parameter   :: psb_del_bnd_=6,                psb_srtd_=7 
@@ -40,6 +41,7 @@ module psb_const_mod
   integer, parameter   :: psb_dbleint_=2
 
   real(kind(1.d0)), parameter :: psb_colrow_=0.33, psb_percent_=0.7
+  real(kind(1.d0)), parameter :: dzero=0.d0, done=1.d0
 
   character, parameter :: psb_all_='A',                  psb_topdef_=' '
   character(len=5)     :: psb_fidef_='CSR'

src/modules/psb_prec_mod.f90

@@ -121,4 +121,16 @@ end interface
      end subroutine psb_dprecaply1
   end interface
 
+
+  interface psb_splu
+     subroutine psb_dsplu(a,l,u,d,info,blck)
+       use psb_spmat_type
+       integer, intent(out)                ::     info
+       type(psb_dspmat_type),intent(in)    :: a
+       type(psb_dspmat_type),intent(inout) :: l,u
+       type(psb_dspmat_type),intent(in), optional, target :: blck
+       real(kind(1.d0)), intent(inout)     ::  d(:)
+     end subroutine psb_dsplu
+  end interface
+  
 end module psb_prec_mod

src/modules/psb_prec_type.f90

@@ -12,7 +12,7 @@ module psb_prec_type
        & asm_=3, ras_=5, ash_=4, rash_=6, ras2lv_=7, ras2lvm_=8,&
        & lv2mras_=9, lv2smth_=10, lv2lsm_=11, sl2sm_=12, superlu_=13,&
        & new_loc_smth_=14, new_glb_smth_=15, max_prec_=15
-  ! Multilevel stuff. 
+  ! Multilevel stuff.
   integer, parameter :: no_ml_=0, add_ml_prec_=1, mult_ml_prec_=2
   integer, parameter :: new_ml_prec_=3, max_ml_=new_ml_prec_
   integer, parameter :: pre_smooth_=1, post_smooth_=2, smooth_both_=3,&

src/modules/psb_tools_mod.f90

@@ -8,7 +8,7 @@ Module psb_tools_mod
        implicit none
        integer, intent(in)                   :: m,n
        real(kind(1.d0)), pointer             :: x(:,:)
-       type(psb_desc_type), intent(inout)    :: desc_a
+       type(psb_desc_type), intent(in)       :: desc_a
        integer                               :: info
        integer, optional, intent(in)         :: js
      end subroutine psb_dalloc
@@ -274,10 +274,6 @@ Module psb_tools_mod
        Type(psb_desc_type), intent(out)    :: desc_a
        integer, intent(out)                :: info
      end subroutine psb_dscall
-  end interface
-  
-
-  interface psb_scalv
      subroutine psb_dscalv(m, v, icontxt, desc_a, info, flag)
        use psb_descriptor_type
        Integer, intent(in)               :: m,icontxt, v(:)