--- ARK/ARKfort.f~	Wed May  4 00:14:51 2005
+++ ARK/ARKfort.f	Wed Jan 17 18:01:35 2007
@@ -998,7 +998,7 @@
 	character*(10) startext
 	integer nway, nchar
 	logical hase
-	integer i, epos, fnn, len, ic
+	integer i, epos, fnn, len, ic, add
 
 	integer ie, ibigE, ispace