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

Rewrote driver to utilize limits in params.amg

Browse Source
This commit is contained in:
vhenson 1996-08-15 21:48:20 +00:00
parent b13895d2cf
commit a6af03a19f
2 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
seq_linear_solvers/amg/amg/amg.f
View File

@ -1,6 +1,6 @@
C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
C C
C File: amgdrv.f C File: amg.f
C TEST DRIVER FOR AMG Problems C TEST DRIVER FOR AMG Problems
C reads matrix in from file AMG.in.ysmp. Use link. C reads matrix in from file AMG.in.ysmp. Use link.
C reads right-hand side from AMG.in.rhs. Use link. C reads right-hand side from AMG.in.rhs. Use link.
@ -13,17 +13,18 @@ C
IMPLICIT REAL*8 (A-H,O-Z) IMPLICIT REAL*8 (A-H,O-Z)
integer TOLD,TNEW,TAMG integer TOLD,TNEW,TAMG
C C
include `params.amg'
COMMON /SCONN/ KSTRNG,ISTRNG,NSWEEP COMMON /SCONN/ KSTRNG,ISTRNG,NSWEEP
DIMENSION A(125000),JA(125000),IA(10000), DIMENSION A(ndima),JA(ndima),IA(ndimu),
* U(10000),F(10000) * U(ndimu),F(ndimu)
dimension iu(10000) dimension iu(ndimu)
dimension ip(10000) dimension ip(ndimu)
dimension iv(10000) dimension iv(ndimp)
dimension xp(10000) dimension xp(ndimp)
dimension yp(10000) dimension yp(ndimp)
cveh zp added cveh zp added
dimension zp(10000) dimension zp(ndimp)
dimension ifc(10000) dimension ifc(ndimu)
common /layerx/ hxl(20),nlx,jlxlo(20),jlxhi(20) common /layerx/ hxl(20),nlx,jlxlo(20),jlxhi(20)
common /layery/ hyl(20),nly,jlylo(20),jlyhi(20) common /layery/ hyl(20),nly,jlylo(20),jlyhi(20)
common /bound/ ibcn,ibcs,ibce,ibcw common /bound/ ibcn,ibcs,ibce,ibcw

21
seq_ls/amg/amg/amg.f
View File

@ -1,6 +1,6 @@
C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
C C
C File: amgdrv.f C File: amg.f
C TEST DRIVER FOR AMG Problems C TEST DRIVER FOR AMG Problems
C reads matrix in from file AMG.in.ysmp. Use link. C reads matrix in from file AMG.in.ysmp. Use link.
C reads right-hand side from AMG.in.rhs. Use link. C reads right-hand side from AMG.in.rhs. Use link.
@ -13,17 +13,18 @@ C
IMPLICIT REAL*8 (A-H,O-Z) IMPLICIT REAL*8 (A-H,O-Z)
integer TOLD,TNEW,TAMG integer TOLD,TNEW,TAMG
C C
include `params.amg'
COMMON /SCONN/ KSTRNG,ISTRNG,NSWEEP COMMON /SCONN/ KSTRNG,ISTRNG,NSWEEP
DIMENSION A(125000),JA(125000),IA(10000), DIMENSION A(ndima),JA(ndima),IA(ndimu),
* U(10000),F(10000) * U(ndimu),F(ndimu)
dimension iu(10000) dimension iu(ndimu)
dimension ip(10000) dimension ip(ndimu)
dimension iv(10000) dimension iv(ndimp)
dimension xp(10000) dimension xp(ndimp)
dimension yp(10000) dimension yp(ndimp)
cveh zp added cveh zp added
dimension zp(10000) dimension zp(ndimp)
dimension ifc(10000) dimension ifc(ndimu)
common /layerx/ hxl(20),nlx,jlxlo(20),jlxhi(20) common /layerx/ hxl(20),nlx,jlxlo(20),jlxhi(20)
common /layery/ hyl(20),nly,jlylo(20),jlyhi(20) common /layery/ hyl(20),nly,jlylo(20),jlyhi(20)
common /bound/ ibcn,ibcs,ibce,ibcw common /bound/ ibcn,ibcs,ibce,ibcw