blob: 3d84f5d8a986367ca40b3c687ac1497ac5bbfd9d [file] [log] [blame]
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