Mercurial > octave-nkf
view libcruft/blas-xtra/xddot.f @ 15283:a95432e7309c stable release-3-6-3
Version 3.6.3 released.
* configure.ac (AC_INIT): Version is now 3.6.3.
(OCTAVE_RELEASE_DATE): Now 2012-09-04.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Tue, 04 Sep 2012 13:17:13 -0400 |
parents | 679c2f987943 |
children |
line wrap: on
line source
subroutine xddot (n, dx, incx, dy, incy, retval) double precision ddot, dx(*), dy(*), retval integer n, incx, incy retval = ddot (n, dx, incx, dy, incy) return end