CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixes bug for systems

Browse Source
This commit is contained in:
vhenson 1997-03-11 16:48:18 +00:00
parent 0118ca3ed4
commit db947afb50
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
seq_linear_solvers/amg/amg/resint.f
View File

@ -151,7 +151,7 @@ c=====================================================================
dimension ja (*)
dimension iu (*)
dimension imin(*),imax(*)
c dimension imin(*),imax(*)
dimension resv(*)
@ -166,8 +166,8 @@ cveh new residual routine, using matvec
cveh here vtmp = Au-f
r2=0.e0
ilo=imin(1)
ihi=imax(1)
ilo=imin
ihi=imax
nv = ihi-ilo+1
call vcopy(f,vtmp,nv)
@ -184,7 +184,6 @@ cveh here vtmp = Au-f
31 continue
res = sqrt(r2)
return
end

7
seq_ls/amg/amg/resint.f
View File

@ -151,7 +151,7 @@ c=====================================================================
dimension ja (*)
dimension iu (*)
dimension imin(*),imax(*)
c dimension imin(*),imax(*)
dimension resv(*)
@ -166,8 +166,8 @@ cveh new residual routine, using matvec
cveh here vtmp = Au-f
r2=0.e0
ilo=imin(1)
ihi=imax(1)
ilo=imin
ihi=imax
nv = ihi-ilo+1
call vcopy(f,vtmp,nv)
@ -184,7 +184,6 @@ cveh here vtmp = Au-f
31 continue
res = sqrt(r2)
return
end