*** empty log message ***

Changelog

@@ -1,6 +1,8 @@
 Changelog. A lot less detailed than usual, at least for past
 history. 
 
+2006/12/06: Fixed raw aggregation.
+
 2006/12/05: Taken out extra interfaces; inserted use modules with ONLY
 	    clauses where appropriate.
 

src/modules/psb_prec_mod.f90

@@ -488,7 +488,7 @@ module psb_prec_mod
       use psb_spmat_type
       type(psb_dspmat_type), intent(in), target :: a
       type(psb_desc_type), intent(in)           :: desc_a
-      type(psb_dspmat_type), intent(out),target :: ac
+      type(psb_dspmat_type), intent(inout),target :: ac
       type(psb_desc_type), intent(inout)        :: desc_ac
       type(psb_dbaseprc_type), intent(inout), target :: p
       integer, intent(out)                      :: info
@@ -499,7 +499,7 @@ module psb_prec_mod
       use psb_spmat_type
       type(psb_zspmat_type), intent(in), target :: a
       type(psb_zbaseprc_type), intent(inout),target    :: p
-      type(psb_zspmat_type), intent(out),target :: ac
+      type(psb_zspmat_type), intent(inout),target :: ac
       type(psb_desc_type), intent(in)           :: desc_a
       type(psb_desc_type), intent(inout)        :: desc_ac
       integer, intent(out)                      :: info

src/serial/psb_dcsprt.f90

@@ -57,7 +57,7 @@ subroutine psb_dcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
   character(len=*), optional        :: head
   integer, intent(in), optional     :: ivr(:), ivc(:)
 
-  character(len=*), parameter       :: frmtr='(2(i6,1x),e16.8,2(i6,1x))'
+  character(len=*), parameter       :: frmtr='(2(i16,1x),e16.8,2(i16,1x))'
   integer  :: irs,ics,i,j
 
   if (present(eirs)) then