# HG changeset patch
# User jwe
# Date 885273076 0
# Node ID 4061d67231a80dd0690e8fe42ad66a79df814836
# Parent  a33a84f3f478908fc369b819167ab6296c6505e6
[project @ 1998-01-20 05:11:15 by jwe]

diff --git a/libcruft/lapack/xdlange.f b/libcruft/lapack/xdlange.f
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
diff --git a/libcruft/lapack/xzlange.f b/libcruft/lapack/xzlange.f
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