Mercurial > jwe > octave
changeset 6507:679c2f987943
[project @ 2007-04-06 20:00:38 by jwe]
author | jwe |
---|---|
date | Fri, 06 Apr 2007 20:00:38 +0000 |
parents | e48c2a2528f6 |
children | 184ab67c3bc1 |
files | libcruft/blas-xtra/xddot.f libcruft/blas-xtra/xzdotu.f |
diffstat | 2 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/libcruft/blas-xtra/xddot.f Fri Apr 06 17:28:54 2007 +0000 +++ b/libcruft/blas-xtra/xddot.f Fri Apr 06 20:00:38 2007 +0000 @@ -1,6 +1,6 @@ subroutine xddot (n, dx, incx, dy, incy, retval) double precision ddot, dx(*), dy(*), retval - integer incx, incy + integer n, incx, incy retval = ddot (n, dx, incx, dy, incy) return end
--- a/libcruft/blas-xtra/xzdotu.f Fri Apr 06 17:28:54 2007 +0000 +++ b/libcruft/blas-xtra/xzdotu.f Fri Apr 06 20:00:38 2007 +0000 @@ -1,6 +1,6 @@ subroutine xzdotu (n, zx, incx, zy, incy, retval) double complex zdotu, zx(*), zy(*), retval - integer incx, incy + integer n, incx, incy retval = zdotu (n, zx, incx, zy, incy) return end