Mercurial > hg > octave-shane
changeset 7686:5499ec4d8705
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 +++ 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
--- 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