Home
Browse Files
 1 #include <cxxblas/cxxblas.cxx>
 2 
 3 extern "C" {
 4 
 5 #ifndef COMPLEX_FLOAT1
 6     typedef CBLAS_FLOAT                 CXXBLAS_FLOAT;
 7 #else
 8     typedef std::complex<CBLAS_FLOAT>   CXXBLAS_FLOAT;
 9 #endif
10 
11     void
12     CBLAS_NAME(CBLAS_INT n,
13                const CBLAS_FLOAT *_x, CBLAS_INT incX,
14                CBLAS_FLOAT *_y, CBLAS_INT incY)
15 #ifdef CREATE_CBLAS
16     {
17         const CXXBLAS_FLOAT *x = reinterpret_cast<const CXXBLAS_FLOAT *>(_x);
18         CXXBLAS_FLOAT *y = reinterpret_cast<CXXBLAS_FLOAT *>(_y);
19 
20         cxxblas::copy<CBLAS_INT,
21                       CXXBLAS_FLOAT,
22                       CXXBLAS_FLOAT>(n, x, incX, y, incY);
23     }
24 #else
25     ;
26 #endif // CREATE_CBLAS
27 
28 #ifdef CREATE_BLAS
29     void
30     BLAS_NAME(CBLAS_INT *_n,
31               const CBLAS_FLOAT *x, CBLAS_INT *_incX,
32               CBLAS_FLOAT *y, CBLAS_INT *_incY)
33     {
34 
35         CBLAS_INT n    = *_n;
36         CBLAS_INT incX = *_incX;
37         CBLAS_INT incY = *_incY;
38 
39         // the blas interface calls the cblas interface
40         // so any blas-test will also test the cblas-interface
41         CBLAS_NAME(n, x, incX, y, incY);
42     }
43 #endif // CREATE_BLAS
44 
45 } // extern "C"
Home