| 692 | } |
| 693 | |
| 694 | doublecomplex zdotc( int n, doublecomplex *x, int incx, doublecomplex *y, int incy) |
| 695 | { |
| 696 | doublecomplex ans; |
| 697 | |
| 698 | #if defined( _WIN32 ) || defined( _WIN64 ) |
| 699 | ans = zdotc_(&n, x, &incx, y, &incy); |
| 700 | #elif defined(__APPLE__) |
| 701 | cblas_zdotc_sub(n, x, incx, y, incy, &ans); |
| 702 | #else |
| 703 | ans = zdotc_(&n, x, &incx, y, &incy); |
| 704 | #endif |
| 705 | |
| 706 | return ans; |
| 707 | } |
| 708 | |
| 709 | void scopy( int n, float *x, int incx, float *y, int incy) |
| 710 | { |