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

Modifies system to have cycling under amg_cycle.c

Browse Source
This commit is contained in:
vhenson 1997-03-05 22:54:09 +00:00
parent 5305246464
commit fce79449bc
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
seq_linear_solvers/amg/amg/dirslv.f
View File

@ -1,5 +1,5 @@
c
subroutine dirslv(ierr,k,imin,imax,u,f,a,ia,ja)
subroutine dirslv(ierr,imin,imax,u,f,a,ia,ja)
c
c---------------------------------------------------------------------
c
@ -20,7 +20,7 @@ c---------------------------------------------------------------------
c
implicit real*8 (a-h,o-z)
c
dimension imin(*),imax(*)
c dimension imin(*),imax(*)
dimension u (*)
dimension f (*)
dimension ia (*)
@ -33,8 +33,8 @@ c
c
c---------------------------------------------------------------------
c
ilo=imin(k)
ihi=imax(k)
ilo=imin
ihi=imax
npts=ihi-ilo+1
ishft=1-ilo
if(npts.eq.0) return

8
seq_ls/amg/amg/dirslv.f
View File

@ -1,5 +1,5 @@
c
subroutine dirslv(ierr,k,imin,imax,u,f,a,ia,ja)
subroutine dirslv(ierr,imin,imax,u,f,a,ia,ja)
c
c---------------------------------------------------------------------
c
@ -20,7 +20,7 @@ c---------------------------------------------------------------------
c
implicit real*8 (a-h,o-z)
c
dimension imin(*),imax(*)
c dimension imin(*),imax(*)
dimension u (*)
dimension f (*)
dimension ia (*)
@ -33,8 +33,8 @@ c
c
c---------------------------------------------------------------------
c
ilo=imin(k)
ihi=imax(k)
ilo=imin
ihi=imax
npts=ihi-ilo+1
ishft=1-ilo
if(npts.eq.0) return