Mercurial > octave-nkf

changeset 3129:4061d67231a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libcruft/lapack/xdlange.f	Tue Jan 20 05:11:16 1998 +0000
@@ -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
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libcruft/lapack/xzlange.f	Tue Jan 20 05:11:16 1998 +0000
@@ -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