*** empty log message ***

19 years ago · 44df8d6b19
parent e75e29c052
commit 44df8d6b19
1 changed files with 1 additions and 1 deletions
--- 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