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

another small fix

Browse Source
This commit is contained in:
vhenson 1996-08-15 23:30:23 +00:00
parent 0519188ce1
commit da6a6bdd43
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
seq_linear_solvers/amg/amg/amg.f
View File

@ -84,9 +84,9 @@ CVEH
read (8,*) (iu(j), j=1,nv)
read (8,*) (ip(j), j=1,nv)
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)
read (8,*) (xp(j), j=1,np)
read (8,*) (yp(j), j=1,np)
read (8,*) (zp(j), j=1,np)
close (8)

6
seq_ls/amg/amg/amg.f
View File

@ -84,9 +84,9 @@ CVEH
read (8,*) (iu(j), j=1,nv)
read (8,*) (ip(j), j=1,nv)
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)
read (8,*) (xp(j), j=1,np)
read (8,*) (yp(j), j=1,np)
read (8,*) (zp(j), j=1,np)
close (8)