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

Removed unused variables

Browse Source
This commit is contained in:
vhenson 1996-08-12 20:54:12 +00:00
parent 3fa4eaace7
commit e8d1ad3346
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
seq_linear_solvers/amg/amg/misc.f
View File

@ -316,7 +316,7 @@ c
dimension jb (*)
c
dimension ippt(10)
dimension iarr(20)
cveh dimension iarr(20)
dimension aa(10),jja(10),iiu(10)
c
character*1 icpt,ifpt,ippt,ispt
@ -2485,7 +2485,7 @@ c in reports, only oldname is used.
c
c---------------------------------------------------------------------
c
integer nhigh
cveh integer nhigh
character*(*) oldname,newname
character*10 name,alias

4
seq_ls/amg/amg/misc.f
View File

@ -316,7 +316,7 @@ c
dimension jb (*)
c
dimension ippt(10)
dimension iarr(20)
cveh dimension iarr(20)
dimension aa(10),jja(10),iiu(10)
c
character*1 icpt,ifpt,ippt,ispt
@ -2485,7 +2485,7 @@ c in reports, only oldname is used.
c
c---------------------------------------------------------------------
c
integer nhigh
cveh integer nhigh
character*(*) oldname,newname
character*10 name,alias