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_FLOAT *a, CBLAS_FLOAT *b,
13                CBLAS_FLOAT *c, CBLAS_FLOAT *s)
14 #ifdef CREATE_CBLAS
15     {
16         cxxblas::rotg<CXXBLAS_FLOAT,
17                       CXXBLAS_FLOAT,
18                       CXXBLAS_FLOAT>(*a, *b, *c, *s);
19     }
20 #else
21     ;
22 #endif // CREATE_CBLAS
23 
24 #ifdef CREATE_BLAS
25     void
26     BLAS_NAME(CBLAS_FLOAT *a, CBLAS_FLOAT *b,
27               CBLAS_FLOAT *c, CBLAS_FLOAT *s)
28     {
29         // the blas interface calls the cblas interface
30         // so any blas-test will also test the cblas-interface
31         CBLAS_NAME(a, b, c, s);
32     }
33 #endif // CREATE_BLAS
34 
35 // extern "C"