Mercurial > octave-nkf

changeset 7686:5499ec4d8705

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix typos in xzdotu and xzdotc wrappers
author John W. Eaton <jwe@octave.org>
date Thu, 03 Apr 2008 00:01:07 -0400
parents f90494008de8
children 795be0215bf7
files libcruft/blas-xtra/xzdotc.f libcruft/blas-xtra/xzdotu.f
diffstat 2 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/libcruft/blas-xtra/xzdotc.f	Wed Apr 02 23:24:33 2008 -0400
+++ b/libcruft/blas-xtra/xzdotc.f	Thu Apr 03 00:01:07 2008 -0400
@@ -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
--- a/libcruft/blas-xtra/xzdotu.f	Wed Apr 02 23:24:33 2008 -0400
+++ b/libcruft/blas-xtra/xzdotu.f	Thu Apr 03 00:01:07 2008 -0400
@@ -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