From e8d1ad3346709290fabc57a78a8f7c3f0e264ec5 Mon Sep 17 00:00:00 2001
From: vhenson <vhenson>
Date: Mon, 12 Aug 1996 20:54:12 +0000
Subject: [PATCH] Removed unused variables

---
 seq_linear_solvers/amg/amg/misc.f | 4 ++--
 seq_ls/amg/amg/misc.f             | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/seq_linear_solvers/amg/amg/misc.f b/seq_linear_solvers/amg/amg/misc.f
index 2d0f4a70a..9b437c5bf 100644
--- a/seq_linear_solvers/amg/amg/misc.f
+++ b/seq_linear_solvers/amg/amg/misc.f
@@ -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
 
diff --git a/seq_ls/amg/amg/misc.f b/seq_ls/amg/amg/misc.f
index 2d0f4a70a..9b437c5bf 100644
--- a/seq_ls/amg/amg/misc.f
+++ b/seq_ls/amg/amg/misc.f
@@ -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