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