The R Project SVN R

      double complex function zdotc(n, zx, incx, zy, incy)
      double complex zx(*), zy(*), z
      integer n, incx, incy

      call rcblas_zdotc_sub(n, zx, incx, zy, incy, z)

      zdotc = z
      return
      end

      double complex function zdotu(n, zx, incx, zy, incy)
      double complex zx(*), zy(*), z
      integer n, incx, incy

      call rcblas_zdotu_sub(n, zx, incx, zy, incy, z)

      zdotu = z
      return
      end

      complex function cdotc(n, cx, incx, cy, incy)
      complex cx(*), cy(*), c
      integer n, incx, incy

      call rcblas_cdotc_sub(n, cx, incx, cy, incy, c)

      cdotc = c
      return
      end

      complex function cdotu(n, cx, incx, cy, incy)
      complex cx(*), cy(*), c
      integer n, incx, incy

      call rcblas_cdotu_sub(n, cx, incx, cy, incy, c)

      cdotu = c
      return
      end