diff --git a/test/Fileread/hbio.f90 b/test/Fileread/hbio.f90
index 19ac1425..974a2aa9 100644
--- a/test/Fileread/hbio.f90
+++ b/test/Fileread/hbio.f90
@@ -54,8 +54,7 @@ contains
     character indfmt*16,ptrfmt*16,rhsfmt*20,valfmt*20
     integer        :: indcrd,  ptrcrd, totcrd,&
          & valcrd, rhscrd, nrow, ncol, nnzero, neltvl, nrhs, nrhsix
-    integer                     :: ircode, i,iel,ptr,nzr,infile,&
-         & j, root, nprow, npcol, myprow, mypcol, info
+    integer                     :: ircode, i,iel,ptr,nzr,infile, j, info
     character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)'
     character(len=*), parameter :: fmt11='(a1,13x,2i14)'
     character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)'
@@ -314,8 +313,7 @@ contains
     character indfmt*16,ptrfmt*16,rhsfmt*20,valfmt*20
     integer        :: indcrd,  ptrcrd, totcrd,&
          & valcrd, rhscrd, nrow, ncol, nnzero, neltvl, nrhs, nrhsix
-    integer                     :: ircode, i,iel,ptr,nzr,infile,&
-         & j, root, nprow, npcol, myprow, mypcol, info
+    integer                     :: ircode, i,iel,ptr,nzr,infile,j, info
     character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)'
     character(len=*), parameter :: fmt11='(a1,13x,2i14)'
     character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)'
diff --git a/test/Fileread/mmio.f90 b/test/Fileread/mmio.f90
index 4e3caf79..da034346 100644
--- a/test/Fileread/mmio.f90
+++ b/test/Fileread/mmio.f90
@@ -50,8 +50,7 @@ contains
     character      :: mmheader*15, fmt*15, object*10, type*10, sym*15
     character(1024)      :: line
     integer        :: nrow, ncol, nnzero, neltvl, nrhs, nrhsix
-    integer        :: ircode, i,iel,nzr,infile,&
-         & j, liwork, root, nprow, npcol, myprow, mypcol
+    integer        :: ircode, i,iel,nzr,infile, j
     logical, parameter :: debug=.false.
 
     iret = 0
@@ -206,8 +205,7 @@ contains
     character      :: mmheader*15, fmt*15, object*10, type*10, sym*15
     character(1024)      :: line
     integer        :: nrow, ncol, nnzero, neltvl, nrhs, nrhsix
-    integer        :: ircode, i,iel,nzr,infile,&
-         & j, liwork, root, nprow, npcol, myprow, mypcol
+    integer        :: ircode, i,iel,nzr,infile,j
     real(kind(1.d0))   :: are, aim
     logical, parameter :: debug=.false.