Mercurial > hg > octave-nkf

annotate libcruft/lapack-xtra/xilaenv.f @ 7477:8b22207ef9ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ilaenv --> xilaenv
author John W. Eaton <jwe@octave.org>
date Tue, 12 Feb 2008 21:13:21 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7477
8b22207ef9ca ilaenv --> xilaenv
John W. Eaton <jwe@octave.org>
parents:
diff changeset
1 subroutine xilaenv (ispec, name, opts, n1, n2, n3, n4, retval)
8b22207ef9ca ilaenv --> xilaenv
John W. Eaton <jwe@octave.org>
parents:
diff changeset
2 character*(*) name, opts
8b22207ef9ca ilaenv --> xilaenv
John W. Eaton <jwe@octave.org>
parents:
diff changeset
3 integer ilaenv, ispec, n1, n2, n3, n4, retval
8b22207ef9ca ilaenv --> xilaenv
John W. Eaton <jwe@octave.org>
parents:
diff changeset
4 retval = ilaenv (ispec, name, opts, n1, n2, n3, n4)
8b22207ef9ca ilaenv --> xilaenv
John W. Eaton <jwe@octave.org>
parents:
diff changeset
5 return
8b22207ef9ca ilaenv --> xilaenv
John W. Eaton <jwe@octave.org>
parents:
diff changeset
6 end