void cblas_zaxpy( const CBLAS_INT_TYPE N, const void *alpha, const void *X, const CBLAS_INT_TYPE incX, void *Y, const CBLAS_INT_TYPE incY) { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; #else #define F77_N N #define F77_incX incX #define F77_incY incY #endif F77_zaxpy( &F77_N, alpha, X, &F77_incX, Y, &F77_incY); }
void bl1_zaxpy( int n, dcomplex* alpha, dcomplex* x, int incx, dcomplex* y, int incy ) { #ifdef BLIS1_ENABLE_CBLAS_INTERFACES cblas_zaxpy( n, alpha, x, incx, y, incy ); #else F77_zaxpy( &n, alpha, x, &incx, y, &incy ); #endif }