Mercurial > octave-nkf

view libcruft/blas-xtra/xsdot.f @ 12121:87237a866c71 release-3-2-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
this branch is no longer maintained and is closed for further development
author John W. Eaton <jwe@octave.org>
date Sat, 22 Jan 2011 01:00:54 -0500
parents 82be108cc558
children 9a5e2d13fa5a
line wrap: on
line source

      subroutine xsdot (n, dx, incx, dy, incy, retval)
      real ddot, dx(*), dy(*), retval
      integer n, incx, incy
      retval = sdot (n, dx, incx, dy, incy)
      return
      end