# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1207195267 14400
# Node ID 5499ec4d87055a1b30a0605d294e0e3d8c66de7e
# Parent  f90494008de838634f36f21386d5648daede443f
fix typos in xzdotu and xzdotc wrappers

diff --git a/libcruft/blas-xtra/xzdotc.f b/libcruft/blas-xtra/xzdotc.f
--- a/libcruft/blas-xtra/xzdotc.f
+++ b/libcruft/blas-xtra/xzdotc.f
@@ -1,7 +1,7 @@
-      subroutine xzdotc(n,zx,incx,zy,incy,retval)
+      subroutine xzdotc (n, zx, incx, zy, incy, retval)
       double complex zdotc, zx(*), zy(*), retval
       integer n, incx, incy
       external zdotc
-      retval = zdotc (n, dx, incx, dy, incy)
+      retval = zdotc (n, zx, incx, zy, incy)
       return
       end
diff --git a/libcruft/blas-xtra/xzdotu.f b/libcruft/blas-xtra/xzdotu.f
--- a/libcruft/blas-xtra/xzdotu.f
+++ b/libcruft/blas-xtra/xzdotu.f
@@ -1,7 +1,7 @@
-      subroutine xzdotu(n,zx,incx,zy,incy,retval)
+      subroutine xzdotu (n, zx, incx, zy, incy, retval)
       double complex zdotu, zx(*), zy(*), retval
       integer n, incx, incy
       external zdotu
-      retval = zdotu (n, dx, incx, dy, incy)
+      retval = zdotu (n, zx, incx, zy, incy)
       return
       end