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

Reads in x,y,z points

Browse Source
This commit is contained in:
vhenson 1996-08-13 00:01:27 +00:00
parent 5c3c8a2db1
commit cc87377560
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
seq_linear_solvers/amg/amg/amg.f
View File

@ -21,6 +21,8 @@ C
dimension iv(10000) dimension iv(10000)
dimension xp(10000) dimension xp(10000)
dimension yp(10000) dimension yp(10000)
cveh zp added
dimension zp(10000)
dimension ifc(10000) dimension ifc(10000)
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)
@ -81,6 +83,9 @@ CVEH
read (8,*) (iu(j), j=1,nv) read (8,*) (iu(j), j=1,nv)
read (8,*) (ip(j), j=1,nv) read (8,*) (ip(j), j=1,nv)
read (8,*) (iv(j), j=1,np+1) read (8,*) (iv(j), j=1,np+1)
read (8,*) (xp(j), j=1,nv)
read (8,*) (yp(j), j=1,nv)
read (8,*) (zp(j), j=1,nv)
close (8) close (8)

5
seq_ls/amg/amg/amg.f
View File

@ -21,6 +21,8 @@ C
dimension iv(10000) dimension iv(10000)
dimension xp(10000) dimension xp(10000)
dimension yp(10000) dimension yp(10000)
cveh zp added
dimension zp(10000)
dimension ifc(10000) dimension ifc(10000)
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)
@ -81,6 +83,9 @@ CVEH
read (8,*) (iu(j), j=1,nv) read (8,*) (iu(j), j=1,nv)
read (8,*) (ip(j), j=1,nv) read (8,*) (ip(j), j=1,nv)
read (8,*) (iv(j), j=1,np+1) read (8,*) (iv(j), j=1,np+1)
read (8,*) (xp(j), j=1,nv)
read (8,*) (yp(j), j=1,nv)
read (8,*) (zp(j), j=1,nv)
close (8) close (8)