Mercurial > hg > octave-max
changeset 3129:4061d67231a8
[project @ 1998-01-20 05:11:15 by jwe]
author | jwe |
---|---|
date | Tue, 20 Jan 1998 05:11:16 +0000 |
parents | a33a84f3f478 |
children | 02766207b74c |
files | libcruft/lapack/xdlange.f libcruft/lapack/xzlange.f |
diffstat | 2 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/libcruft/lapack/xdlange.f @@ -0,0 +1,7 @@ + subroutine xdlange (norm, m, n, a, lda, work, retval) + character norm + integer lda, m, n + double precision a (lda, *), work (*), dlange, retval + retval = dlange (norm, m, n, a, lda, work) + return + end
new file mode 100644 --- /dev/null +++ b/libcruft/lapack/xzlange.f @@ -0,0 +1,8 @@ + subroutine xzlange (norm, m, n, a, lda, work, retval) + character norm + integer lda, m, n + double precision work (*), zlange, retval + complex*16 a (lda, *) + retval = zlange (norm, m, n, a, lda, work) + return + end