fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 02:49:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2006-07-13 14:18:53 +00:00
parent e75e29c052
commit 44df8d6b19
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/prec/psb_dbldaggrmat.f90
+1 -1
View File
@@ -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