From 19fd2153889633b1d5a17be46e809f03a11b7148 Mon Sep 17 00:00:00 2001 From: Kuan Bartel Date: Sun, 22 Mar 2015 22:26:25 +0900 Subject: [PATCH] C style casts of complex values for gcc. --- src/NativeProviders/OpenBLAS/blas.c | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/NativeProviders/OpenBLAS/blas.c b/src/NativeProviders/OpenBLAS/blas.c index cc41f49e..a961425c 100644 --- a/src/NativeProviders/OpenBLAS/blas.c +++ b/src/NativeProviders/OpenBLAS/blas.c @@ -13,11 +13,11 @@ DLLEXPORT void d_axpy(const blasint n, const double alpha, const double x[], dou } DLLEXPORT void c_axpy(const blasint n, const openblas_complex_float alpha, const openblas_complex_float x[], openblas_complex_float y[]){ - cblas_caxpy(n, &(alpha.real), &(x->real), 1, &(y->real), 1); + cblas_caxpy(n, (float*)&alpha, (float*)x, 1, (float*)y, 1); } DLLEXPORT void z_axpy(const blasint n, const openblas_complex_double alpha, const openblas_complex_double x[], openblas_complex_double y[]){ - cblas_zaxpy(n, &(alpha.real), &(x->real), 1, &(y->real), 1); + cblas_zaxpy(n, (double*)&alpha, (double*)x, 1, (double*)y, 1); } DLLEXPORT void s_scale(const blasint n, const float alpha, float x[]){ @@ -29,11 +29,11 @@ DLLEXPORT void d_scale(const blasint n, const double alpha, double x[]){ } DLLEXPORT void c_scale(const blasint n, const openblas_complex_float alpha, openblas_complex_float x[]){ - cblas_cscal(n, &(alpha.real), &(x->real), 1); + cblas_cscal(n, (float*)&alpha, (float*)x, 1); } DLLEXPORT void z_scale(const blasint n, const openblas_complex_double alpha, openblas_complex_double x[]){ - cblas_zscal(n, &(alpha.real), &(x->real), 1); + cblas_zscal(n, (double*)&alpha, (double*)x, 1); } DLLEXPORT float s_dot_product(const blasint n, const float x[], const float y[]){ @@ -46,13 +46,13 @@ DLLEXPORT double d_dot_product(const blasint n, const double x[], const double y DLLEXPORT openblas_complex_float c_dot_product(const blasint n, const openblas_complex_float x[], const openblas_complex_float y[]){ openblas_complex_float ret; - cblas_cdotu_sub(n, &(x->real), 1, &(y->real), 1, &ret); + cblas_cdotu_sub(n, (float*)x, 1, (float*)y, 1, &ret); return ret; } DLLEXPORT openblas_complex_double z_dot_product(const blasint n, const openblas_complex_double x[], const openblas_complex_double y[]){ openblas_complex_double ret; - cblas_zdotu_sub(n, &(x->real), 1, &(y->real), 1, &ret); + cblas_zdotu_sub(n, (double*)x, 1, (double*)y, 1, &ret); return ret; } @@ -74,14 +74,14 @@ DLLEXPORT void c_matrix_multiply(CBLAS_TRANSPOSE transA, CBLAS_TRANSPOSE transB, blasint lda = transA == CblasNoTrans ? m : k; blasint ldb = transB == CblasNoTrans ? k : n; - cblas_cgemm(CblasColMajor, transA, transB, m, n, k, &(alpha.real), &(x->real), lda, &(y->real), ldb, &(beta.real), &(c->real), m); + cblas_cgemm(CblasColMajor, transA, transB, m, n, k, (float*)&alpha, (float*)x, lda, (float*)y, ldb, (float*)&beta, (float*)c, m); } DLLEXPORT void z_matrix_multiply(CBLAS_TRANSPOSE transA, CBLAS_TRANSPOSE transB, const blasint m, const blasint n, const blasint k, const openblas_complex_double alpha, const openblas_complex_double x[], const openblas_complex_double y[], const openblas_complex_double beta, openblas_complex_double c[]){ blasint lda = transA == CblasNoTrans ? m : k; blasint ldb = transB == CblasNoTrans ? k : n; - cblas_zgemm(CblasColMajor, transA, transB, m, n, k, &(alpha.real), &(x->real), lda, &(y->real), ldb, &(beta.real), &(c->real), m); + cblas_zgemm(CblasColMajor, transA, transB, m, n, k, (double*)&alpha, (double*)x, lda, (double*)y, ldb, (double*)&beta, (double*)c, m); } #if GCC