| 662 | } |
| 663 | |
| 664 | doublecomplex zdotu( int n, doublecomplex *x, int incx, doublecomplex *y, int incy) |
| 665 | { |
| 666 | doublecomplex ans; |
| 667 | |
| 668 | #if defined( _WIN32 ) || defined( _WIN64 ) |
| 669 | ans = zdotu_(&n, x, &incx, y, &incy); |
| 670 | #elif defined(__APPLE__) |
| 671 | cblas_zdotu_sub(n, x, incx, y, incy, &ans); |
| 672 | #else |
| 673 | ans = zdotu_(&n, x, &incx, y, &incy); |
| 674 | #endif |
| 675 | |
| 676 | return ans; |
| 677 | } |
| 678 | |
| 679 | complex cdotc( int n, complex *x, int incx, complex *y, int incy) |
| 680 | { |