Mercurial > octave-nkf

diff libcruft/ranlib/phrtsd.f @ 6567:e82cb026b893

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-24 20:40:23 by jwe]
author jwe
date Tue, 24 Apr 2007 20:40:24 +0000
parents 7e9a548e8ddf
children
line wrap: on
line diff
--- a/libcruft/ranlib/phrtsd.f	Fri Feb 01 23:01:35 2008 -0500
+++ b/libcruft/ranlib/phrtsd.f	Tue Apr 24 20:40:24 2007 +0000
@@ -49,7 +49,7 @@
       CHARACTER phrase* (*)
 C     ..
 C     .. Local Scalars ..
-      INTEGER i,ichr,j,lphr
+      INTEGER i,ichr,j,lphr,idxval
 C     ..
 C     .. Local Arrays ..
       INTEGER shift(0:4),values(5)
@@ -75,7 +75,8 @@
       lphr = lennob(phrase)
       IF (lphr.LT.1) RETURN
       DO 30,i = 1,lphr
-          ichr = mod(index(table,phrase(i:i)),sixty4)
+          idxval = index(table,phrase(i:i))
+          ichr = mod(idxval,sixty4)
           IF (ichr.EQ.0) ichr = 63
           DO 10,j = 1,5
               values(j) = ichr - j