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"
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"