*** empty log message ***

src/modules/Makefile

@@ -1,13 +1,14 @@
 include ../../Make.inc
 
 MODULES = psb_realloc_mod.o psb_string_mod.o psb_spmat_type.o \
-	psb_desc_type.o psb_spsb_mod.o\
+	psb_desc_type.o psb_spsb_mod.o \
 	psb_blacs_mod.o psb_serial_mod.o psb_tools_mod.o \
 	psb_prec_type.o psb_error_mod.o psb_prec_mod.o \
 	psb_methd_mod.o psb_const_mod.o \
-	psb_comm_mod.o psb_psblas_mod.o psi_mod.o
+	psb_comm_mod.o psb_psblas_mod.o psi_mod.o \
+	psb_sparse_mod.o
 
-OBJS = error.o parts.o
+OBJS = error.o
 
 INCDIRS = -I ../../lib
 LIBDIR = ../../lib
@@ -18,7 +19,7 @@ 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
+	cp *$(.mod) ./psb_const.fh ./parts.fh ../../lib
 
 
 clean:

src/modules/psb_methd_mod.f90

@@ -38,7 +38,7 @@ Module psb_methd_mod
      end subroutine psb_dbicg
   end interface
 
-  interface ppsb_bicgstab
+  interface psb_bicgstab
      subroutine psb_dcgstab(a,prec,b,x,eps,&
 	  & desc_a,info,itmax,iter,err,itrace,istop)
        use psb_serial_mod

src/modules/psb_sparse_mod.f90

@@ -1,13 +1,13 @@
 module psb_sparse_mod
-  use psb_typedesc
-  use psb_typeprec
+  use psb_descriptor_type
+  use psb_prec_type
   use psb_serial_mod
   use psb_tools_mod
   use psb_psblas_mod
   use psb_prec_mod
   use psb_methd_mod
   use psb_error_mod
-  use psb_string
+  use psb_string_mod
 end module psb_sparse_mod
 
 

src/modules/psb_tools_mod.f90

@@ -270,7 +270,8 @@ Module psb_tools_mod
   interface psb_dscall
      subroutine psb_dscall(m, n, parts, icontxt, desc_a, info)
        use psb_descriptor_type
-       Integer, intent(in)                 :: M,N,ICONTXT
+       include 'parts.fh'
+       Integer, intent(in)                 :: m,n,icontxt
        Type(psb_desc_type), intent(out)    :: desc_a
        integer, intent(out)                :: info
      end subroutine psb_dscall

src/prec/psb_dprecbld.f90

@@ -470,7 +470,7 @@ subroutine psb_mlprec_bld(a,desc_a,p,info)
   ! changed in the future. Need to package nlaggr & mlia in a 
   ! private data structure? 
 
-  call psb_gen_aggrmap(p%iprcparm(aggr_alg_),a,desc_a,p%nlaggr,p%mlia,info)
+  call psb_genaggrmap(p%iprcparm(aggr_alg_),a,desc_a,p%nlaggr,p%mlia,info)
   if(info /= 0) then
      info=4010
      ch_err='psb_gen_aggrmap'

src/tools/psb_dscall.f90

@@ -17,8 +17,8 @@ subroutine psb_dscall(m, n, parts, icontxt, desc_a, info)
   use psb_realloc_mod
   use psb_serial_mod
   use psb_const_mod
-  use psb_parts_mod
   implicit None
+  include 'parts.fh'
   !....Parameters...
   Integer, intent(in)                 :: M,N,ICONTXT
   Type(psb_desc_type), intent(out)    :: desc_a