From 44df8d6b190da69438ab6dbee18d67541dd2bf39 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 13 Jul 2006 14:18:53 +0000
Subject: [PATCH] *** empty log message ***

---
 src/prec/psb_dbldaggrmat.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/prec/psb_dbldaggrmat.f90 b/src/prec/psb_dbldaggrmat.f90
index 62459bb1..902f316d 100644
--- a/src/prec/psb_dbldaggrmat.f90
+++ b/src/prec/psb_dbldaggrmat.f90
@@ -114,7 +114,7 @@ contains
     integer, pointer :: nzbr(:), idisp(:)
     integer :: ictxt, nrow, nglob, ncol, ntaggr, nzbg, ip, ndx,&
          & naggr, np, myprow, mypcol, nprows, npcols,nzt,irs,jl,nzl,nlr,&
-         & icomm,naggrm1, mtype, i, j, err_act
+         & icomm,naggrm1, mtype, i, j, k, err_act
     name='raw_aggregate'
     if(psb_get_errstatus().ne.0) return 
     info=0