Mercurial > octave

view libcruft/blas-xtra/xzdotc.f @ 7683:8136cb19fb7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implement BLAS-F77 call compatibility check
author Jaroslav Hajek <highegg@gmail.com>
date Wed, 02 Apr 2008 14:30:49 -0400
parents 461d6bfba85a
children 5499ec4d8705
line wrap: on
line source

      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)
      return
      end