From 16a9daa67c4b4203e60339d2161fec4103896423 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 6 Dec 2006 14:07:29 +0000
Subject: [PATCH] *** empty log message ***

---
 Changelog                    | 2 ++
 src/modules/psb_prec_mod.f90 | 4 ++--
 src/serial/psb_dcsprt.f90    | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/Changelog b/Changelog
index f949f499..2540acaf 100644
--- a/Changelog
+++ b/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.
 
diff --git a/src/modules/psb_prec_mod.f90 b/src/modules/psb_prec_mod.f90
index f40a5f7e..593e1163 100644
--- a/src/modules/psb_prec_mod.f90
+++ b/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
diff --git a/src/serial/psb_dcsprt.f90 b/src/serial/psb_dcsprt.f90
index 10dc1598..7fa74c38 100644
--- a/src/serial/psb_dcsprt.f90
+++ b/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