amd/blis
1
0
Fork 0
mirror of https://github.com/amd/blis.git synced 2026-05-11 17:50:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' of github.com:flame/blis

Browse Source
This commit is contained in:
Field G. Van Zee
2016-04-22 12:01:31 -05:00
parent 4136553f0d e2784b4c92
commit aa0bceec27
311 changed files with 2466 additions and 3569 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
frame/compat/bla_amax.c
View File

@@ -43,8 +43,8 @@
\
f77_int PASTEF772(i,chx,blasname) \
( \
f77_int* n, \
ftype_x* x, f77_int* incx \
const f77_int* n, \
const ftype_x* x, const f77_int* incx \
) \
{ \
dim_t n0; \
@@ -68,7 +68,7 @@ f77_int PASTEF772(i,chx,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( n0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, (ftype_x*)x, *incx, x0, incx0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(chx,blisname) \

4
frame/compat/bla_amax.h
View File

@@ -41,8 +41,8 @@
\
f77_int PASTEF772(i,chx,blasname) \
( \
f77_int* n, \
ftype_x* x, f77_int* incx \
const f77_int* n, \
const ftype_x* x, const f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

6
frame/compat/bla_asum.c
View File

@@ -43,8 +43,8 @@
\
ftype_r PASTEF772(chr,chx,blasname) \
( \
f77_int* n, \
ftype_x* x, f77_int* incx \
const f77_int* n, \
const ftype_x* x, const f77_int* incx \
) \
{ \
dim_t n0; \
@@ -61,7 +61,7 @@ ftype_r PASTEF772(chr,chx,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( n0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, (ftype_x*)x, *incx, x0, incx0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(chx,blisname) \

4
frame/compat/bla_asum.h
View File

@@ -41,8 +41,8 @@
\
ftype_r PASTEF772(chr,chx,blasname) \
( \
f77_int* n, \
ftype_x* x, f77_int* incx \
const f77_int* n, \
const ftype_x* x, const f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

14
frame/compat/bla_axpy.c
View File

@@ -43,10 +43,10 @@
\
void PASTEF77(ch,blasname) \
( \
f77_int* n, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
const f77_int* n, \
const ftype* alpha, \
const ftype* x, const f77_int* incx, \
ftype* y, const f77_int* incy \
) \
{ \
dim_t n0; \
@@ -64,15 +64,15 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( n0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, y, *incy, y0, incy0 ); \
bli_convert_blas_incv( n0, (ftype*)x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
( \
BLIS_NO_CONJUGATE, \
n0, \
alpha, \
(ftype*)alpha, \
x0, incx0, \
y0, incy0, \
NULL \

8
frame/compat/bla_axpy.h
View File

@@ -41,10 +41,10 @@
\
void PASTEF77(ch,blasname) \
( \
f77_int* n, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
const f77_int* n, \
const ftype* alpha, \
const ftype* x, const f77_int* incx, \
ftype* y, const f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

10
frame/compat/bla_copy.c
View File

@@ -43,9 +43,9 @@
\
void PASTEF77(ch,blasname) \
( \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
const f77_int* n, \
const ftype* x, const f77_int* incx, \
ftype* y, const f77_int* incy \
) \
{ \
dim_t n0; \
@@ -63,8 +63,8 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( n0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, y, *incy, y0, incy0 ); \
bli_convert_blas_incv( n0, (ftype*)x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \

6
frame/compat/bla_copy.h
View File

@@ -41,9 +41,9 @@
\
void PASTEF77(ch,blasname) \
( \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
const f77_int* n, \
const ftype* x, const f77_int* incx, \
ftype* y, const f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

26
frame/compat/bla_dot.c
View File

@@ -43,9 +43,9 @@
\
ftype PASTEF772(chxy,blasname,chc) \
( \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
const f77_int* n, \
const ftype* x, const f77_int* incx, \
const ftype* y, const f77_int* incy \
) \
{ \
dim_t n0; \
@@ -64,8 +64,8 @@ ftype PASTEF772(chxy,blasname,chc) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( n0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, y, *incy, y0, incy0 ); \
bli_convert_blas_incv( n0, (ftype*)x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(chxy,blisname) \
@@ -95,9 +95,9 @@ INSERT_GENTFUNCDOT_BLAS( dot, dotv )
// with result returned in single precision.
float PASTEF77(sd,sdot)
(
f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy
const f77_int* n,
const float* x, const f77_int* incx,
const float* y, const f77_int* incy
)
{
return ( float )PASTEF77(d,sdot)( n,
@@ -109,9 +109,9 @@ float PASTEF77(sd,sdot)
// with result returned in double precision.
double PASTEF77(d,sdot)
(
f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy
const f77_int* n,
const float* x, const f77_int* incx,
const float* y, const f77_int* incy
)
{
dim_t n0;
@@ -129,8 +129,8 @@ double PASTEF77(d,sdot)
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */
bli_convert_blas_incv( n0, x, *incx, x0, incx0 );
bli_convert_blas_incv( n0, y, *incy, y0, incy0 );
bli_convert_blas_incv( n0, (float*)x, *incx, x0, incx0 );
bli_convert_blas_incv( n0, (float*)y, *incy, y0, incy0 );
rho = 0.0;

18
frame/compat/bla_dot.h
View File

@@ -41,9 +41,9 @@
\
ftype PASTEF772(chxy,blasname,chc) \
( \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
const f77_int* n, \
const ftype* x, const f77_int* incx, \
const ftype* y, const f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS
@@ -54,15 +54,15 @@ INSERT_GENTPROTDOT_BLAS( dot )
float PASTEF77(sd,sdot)
(
f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy
const f77_int* n,
const float* x, const f77_int* incx,
const float* y, const f77_int* incy
);
double PASTEF77(d,sdot)
(
f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy
const f77_int* n,
const float* x, const f77_int* incx,
const float* y, const f77_int* incy
);
#endif

30
frame/compat/bla_gemm.c
View File

@@ -43,16 +43,16 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* transa, \
f77_char* transb, \
f77_int* m, \
f77_int* n, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
const f77_char* transa, \
const f77_char* transb, \
const f77_int* m, \
const f77_int* n, \
const f77_int* k, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* b, const f77_int* ldb, \
const ftype* beta, \
ftype* c, const f77_int* ldc \
) \
{ \
trans_t blis_transa; \
@@ -106,11 +106,11 @@ void PASTEF77(ch,blasname) \
m0, \
n0, \
k0, \
alpha, \
a, rs_a, cs_a, \
b, rs_b, cs_b, \
beta, \
c, rs_c, cs_c, \
(ftype*)alpha, \
(ftype*)a, rs_a, cs_a, \
(ftype*)b, rs_b, cs_b, \
(ftype*)beta, \
(ftype*)c, rs_c, cs_c, \
NULL \
); \
\

20
frame/compat/bla_gemm.h
View File

@@ -41,16 +41,16 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* transa, \
f77_char* transb, \
f77_int* m, \
f77_int* n, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
const f77_char* transa, \
const f77_char* transb, \
const f77_int* m, \
const f77_int* n, \
const f77_int* k, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* b, const f77_int* ldb, \
const ftype* beta, \
ftype* c, const f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

26
frame/compat/bla_gemv.c
View File

@@ -43,14 +43,14 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* transa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
const f77_char* transa, \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* x, const f77_int* incx, \
const ftype* beta, \
ftype* y, const f77_int* incy \
) \
{ \
trans_t blis_transa; \
@@ -110,8 +110,8 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( n_x, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m_y, y, *incy, y0, incy0 ); \
bli_convert_blas_incv( n_x, (ftype*)x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m_y, (ftype*)y, *incy, y0, incy0 ); \
\
/* Set the row and column strides of A. */ \
rs_a = 1; \
@@ -124,10 +124,10 @@ void PASTEF77(ch,blasname) \
BLIS_NO_CONJUGATE, \
m0, \
n0, \
alpha, \
a, rs_a, cs_a, \
(ftype*)alpha, \
(ftype*)a, rs_a, cs_a, \
x0, incx0, \
beta, \
(ftype*)beta, \
y0, incy0, \
NULL \
); \

16
frame/compat/bla_gemv.h
View File

@@ -41,14 +41,14 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* transa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
const f77_char* transa, \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* x, const f77_int* incx, \
const ftype* beta, \
ftype* y, const f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

20
frame/compat/bla_ger.c
View File

@@ -43,12 +43,12 @@
\
void PASTEF772(chxy,blasname,chc) \
( \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* x, const f77_int* incx, \
const ftype* y, const f77_int* incy, \
ftype* a, const f77_int* lda \
) \
{ \
dim_t m0, n0; \
@@ -80,8 +80,8 @@ void PASTEF772(chxy,blasname,chc) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( m0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, y, *incy, y0, incy0 ); \
bli_convert_blas_incv( m0, (ftype*)x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Set the row and column strides of A. */ \
rs_a = 1; \
@@ -94,10 +94,10 @@ void PASTEF772(chxy,blasname,chc) \
blis_conjy, \
m0, \
n0, \
alpha, \
(ftype*)alpha, \
x0, incx0, \
y0, incy0, \
a, rs_a, cs_a, \
(ftype*)a, rs_a, cs_a, \
NULL \
); \
\

12
frame/compat/bla_ger.h
View File

@@ -41,12 +41,12 @@
\
void PASTEF772(chxy,blasname,chc) \
( \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* x, const f77_int* incx, \
const ftype* y, const f77_int* incy, \
ftype* a, const f77_int* lda \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

28
frame/compat/bla_hemm.c
View File

@@ -43,15 +43,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* side, \
f77_char* uploa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
const f77_char* side, \
const f77_char* uploa, \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* b, const f77_int* ldb, \
const ftype* beta, \
ftype* c, const f77_int* ldc \
) \
{ \
side_t blis_side; \
@@ -104,11 +104,11 @@ void PASTEF77(ch,blasname) \
BLIS_NO_TRANSPOSE, \
m0, \
n0, \
alpha, \
a, rs_a, cs_a, \
b, rs_b, cs_b, \
beta, \
c, rs_c, cs_c, \
(ftype*)alpha, \
(ftype*)a, rs_a, cs_a, \
(ftype*)b, rs_b, cs_b, \
(ftype*)beta, \
(ftype*)c, rs_c, cs_c, \
NULL \
); \
\

18
frame/compat/bla_hemm.h
View File

@@ -41,15 +41,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* side, \
f77_char* uploa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
const f77_char* side, \
const f77_char* uploa, \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* b, const f77_int* ldb, \
const ftype* beta, \
ftype* c, const f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

24
frame/compat/bla_hemv.c
View File

@@ -43,13 +43,13 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
const f77_char* uploa, \
const f77_int* m, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* x, const f77_int* incx, \
const ftype* beta, \
ftype* y, const f77_int* incy \
) \
{ \
uplo_t blis_uploa; \
@@ -84,8 +84,8 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( m0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, y, *incy, y0, incy0 ); \
bli_convert_blas_incv( m0, (ftype*)x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Set the row and column strides of A. */ \
rs_a = 1; \
@@ -98,10 +98,10 @@ void PASTEF77(ch,blasname) \
BLIS_NO_CONJUGATE, \
BLIS_NO_CONJUGATE, \
m0, \
alpha, \
a, rs_a, cs_a, \
(ftype*)alpha, \
(ftype*)a, rs_a, cs_a, \
x0, incx0, \
beta, \
(ftype*)beta, \
y0, incy0, \
NULL \
); \

14
frame/compat/bla_hemv.h
View File

@@ -41,13 +41,13 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
const f77_char* uploa, \
const f77_int* m, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* x, const f77_int* incx, \
const ftype* beta, \
ftype* y, const f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

16
frame/compat/bla_her.c
View File

@@ -43,11 +43,11 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype_r* alpha, \
ftype* x, f77_int* incx, \
ftype* a, f77_int* lda \
const f77_char* uploa, \
const f77_int* m, \
const ftype_r* alpha, \
const ftype* x, const f77_int* incx, \
ftype* a, const f77_int* lda \
) \
{ \
uplo_t blis_uploa; \
@@ -79,7 +79,7 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( m0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, (ftype*)x, *incx, x0, incx0 ); \
\
/* Set the row and column strides of A. */ \
rs_a = 1; \
@@ -91,9 +91,9 @@ void PASTEF77(ch,blasname) \
blis_uploa, \
BLIS_NO_CONJUGATE, \
m0, \
alpha, \
(ftype_r*)alpha, \
x0, incx0, \
a, rs_a, cs_a, \
(ftype*)a, rs_a, cs_a, \
NULL \
); \
\

10
frame/compat/bla_her.h
View File

@@ -41,11 +41,11 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype_r* alpha, \
ftype* x, f77_int* incx, \
ftype* a, f77_int* lda \
const f77_char* uploa, \
const f77_int* m, \
const ftype_r* alpha, \
const ftype* x, const f77_int* incx, \
ftype* a, const f77_int* lda \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

20
frame/compat/bla_her2.c
View File

@@ -43,12 +43,12 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
const f77_char* uploa, \
const f77_int* m, \
const ftype* alpha, \
const ftype* x, const f77_int* incx, \
const ftype* y, const f77_int* incy, \
ftype* a, const f77_int* lda \
) \
{ \
uplo_t blis_uploa; \
@@ -83,8 +83,8 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( m0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, y, *incy, y0, incy0 ); \
bli_convert_blas_incv( m0, (ftype*)x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Set the row and column strides of A. */ \
rs_a = 1; \
@@ -97,10 +97,10 @@ void PASTEF77(ch,blasname) \
BLIS_NO_CONJUGATE, \
BLIS_NO_CONJUGATE, \
m0, \
alpha, \
(ftype*)alpha, \
x0, incx0, \
y0, incy0, \
a, rs_a, cs_a, \
(ftype*)a, rs_a, cs_a, \
NULL \
); \
\

12
frame/compat/bla_her2.h
View File

@@ -41,12 +41,12 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
const f77_char* uploa, \
const f77_int* m, \
const ftype* alpha, \
const ftype* x, const f77_int* incx, \
const ftype* y, const f77_int* incy, \
ftype* a, const f77_int* lda \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

28
frame/compat/bla_her2k.c
View File

@@ -43,15 +43,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype_r* beta, \
ftype* c, f77_int* ldc \
const f77_char* uploc, \
const f77_char* transa, \
const f77_int* m, \
const f77_int* k, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* b, const f77_int* ldb, \
const ftype_r* beta, \
ftype* c, const f77_int* ldc \
) \
{ \
uplo_t blis_uploc; \
@@ -120,11 +120,11 @@ void PASTEF77(ch,blasname) \
blis_transa, \
m0, \
k0, \
alpha, \
a, rs_a, cs_a, \
b, rs_b, cs_b, \
beta, \
c, rs_c, cs_c, \
(ftype*)alpha, \
(ftype*)a, rs_a, cs_a, \
(ftype*)b, rs_b, cs_b, \
(ftype_r*)beta, \
(ftype*)c, rs_c, cs_c, \
NULL \
); \
\

18
frame/compat/bla_her2k.h
View File

@@ -41,15 +41,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype_r* beta, \
ftype* c, f77_int* ldc \
const f77_char* uploc, \
const f77_char* transa, \
const f77_int* m, \
const f77_int* k, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* b, const f77_int* ldb, \
const ftype_r* beta, \
ftype* c, const f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

24
frame/compat/bla_herk.c
View File

@@ -43,14 +43,14 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype_r* alpha, \
ftype* a, f77_int* lda, \
ftype_r* beta, \
ftype* c, f77_int* ldc \
const f77_char* uploc, \
const f77_char* transa, \
const f77_int* m, \
const f77_int* k, \
const ftype_r* alpha, \
const ftype* a, const f77_int* lda, \
const ftype_r* beta, \
ftype* c, const f77_int* ldc \
) \
{ \
uplo_t blis_uploc; \
@@ -114,10 +114,10 @@ void PASTEF77(ch,blasname) \
blis_transa, \
m0, \
k0, \
alpha, \
a, rs_a, cs_a, \
beta, \
c, rs_c, cs_c, \
(ftype_r*)alpha, \
(ftype*)a, rs_a, cs_a, \
(ftype_r*)beta, \
(ftype*)c, rs_c, cs_c, \
NULL \
); \
\

16
frame/compat/bla_herk.h
View File

@@ -41,14 +41,14 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype_r* alpha, \
ftype* a, f77_int* lda, \
ftype_r* beta, \
ftype* c, f77_int* ldc \
const f77_char* uploc, \
const f77_char* transa, \
const f77_int* m, \
const f77_int* k, \
const ftype_r* alpha, \
const ftype* a, const f77_int* lda, \
const ftype_r* beta, \
ftype* c, const f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

6
frame/compat/bla_nrm2.c
View File

@@ -43,8 +43,8 @@
\
ftype_r PASTEF772(chr,chx,blasname) \
( \
f77_int* n, \
ftype_x* x, f77_int* incx \
const f77_int* n, \
const ftype_x* x, const f77_int* incx \
) \
{ \
dim_t n0; \
@@ -61,7 +61,7 @@ ftype_r PASTEF772(chr,chx,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( n0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, (ftype_x*)x, *incx, x0, incx0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(chx,blisname) \

4
frame/compat/bla_nrm2.h
View File

@@ -41,8 +41,8 @@
\
ftype_r PASTEF772(chr,chx,blasname) \
( \
f77_int* n, \
ftype_x* x, f77_int* incx \
const f77_int* n, \
const ftype_x* x, const f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

10
frame/compat/bla_scal.c
View File

@@ -43,9 +43,9 @@
\
void PASTEF772(chx,cha,blasname) \
( \
f77_int* n, \
ftype_a* alpha, \
ftype_x* x, f77_int* incx \
const f77_int* n, \
const ftype_a* alpha, \
ftype_x* x, const f77_int* incx \
) \
{ \
dim_t n0; \
@@ -62,13 +62,13 @@ void PASTEF772(chx,cha,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( n0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, (ftype_x*)x, *incx, x0, incx0 ); \
\
/* NOTE: We do not natively implement BLAS's csscal/zdscal in BLIS.
that is, we just always sub-optimally implement those cases
by casting alpha to ctype_x (potentially the complex domain) and
using the homogeneous datatype instance according to that type. */ \
PASTEMAC2(cha,chx,cast)( alpha, alpha_cast ); \
PASTEMAC2(cha,chx,cast)( (ftype_a*)alpha, alpha_cast ); \
\
/* Call BLIS interface. */ \
PASTEMAC(chx,blisname) \

6
frame/compat/bla_scal.h
View File

@@ -41,9 +41,9 @@
\
void PASTEF772(chx,cha,blasname) \
( \
f77_int* n, \
ftype_a* alpha, \
ftype_x* x, f77_int* incx \
const f77_int* n, \
const ftype_a* alpha, \
ftype_x* x, const f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

10
frame/compat/bla_swap.c
View File

@@ -43,9 +43,9 @@
\
void PASTEF77(ch,blasname) \
( \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
const f77_int* n, \
ftype* x, const f77_int* incx, \
ftype* y, const f77_int* incy \
) \
{ \
dim_t n0; \
@@ -63,8 +63,8 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( n0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, y, *incy, y0, incy0 ); \
bli_convert_blas_incv( n0, (ftype*)x, *incx, x0, incx0 ); \
bli_convert_blas_incv( n0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \

6
frame/compat/bla_swap.h
View File

@@ -41,9 +41,9 @@
\
void PASTEF77(ch,blasname) \
( \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
const f77_int* n, \
ftype* x, const f77_int* incx, \
ftype* y, const f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

28
frame/compat/bla_symm.c
View File

@@ -43,15 +43,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* side, \
f77_char* uploa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
const f77_char* side, \
const f77_char* uploa, \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* b, const f77_int* ldb, \
const ftype* beta, \
ftype* c, const f77_int* ldc \
) \
{ \
side_t blis_side; \
@@ -104,11 +104,11 @@ void PASTEF77(ch,blasname) \
BLIS_NO_TRANSPOSE, \
m0, \
n0, \
alpha, \
a, rs_a, cs_a, \
b, rs_b, cs_b, \
beta, \
c, rs_c, cs_c, \
(ftype*)alpha, \
(ftype*)a, rs_a, cs_a, \
(ftype*)b, rs_b, cs_b, \
(ftype*)beta, \
(ftype*)c, rs_c, cs_c, \
NULL \
); \
\

18
frame/compat/bla_symm.h
View File

@@ -41,15 +41,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* side, \
f77_char* uploa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
const f77_char* side, \
const f77_char* uploa, \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* b, const f77_int* ldb, \
const ftype* beta, \
ftype* c, const f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

24
frame/compat/bla_symv.c
View File

@@ -43,13 +43,13 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
const f77_char* uploa, \
const f77_int* m, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* x, const f77_int* incx, \
const ftype* beta, \
ftype* y, const f77_int* incy \
) \
{ \
uplo_t blis_uploa; \
@@ -84,8 +84,8 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( m0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, y, *incy, y0, incy0 ); \
bli_convert_blas_incv( m0, (ftype*)x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Set the row and column strides of A. */ \
rs_a = 1; \
@@ -98,10 +98,10 @@ void PASTEF77(ch,blasname) \
BLIS_NO_CONJUGATE, \
BLIS_NO_CONJUGATE, \
m0, \
alpha, \
a, rs_a, cs_a, \
(ftype*)alpha, \
(ftype*)a, rs_a, cs_a, \
x0, incx0, \
beta, \
(ftype*)beta, \
y0, incy0, \
NULL \
); \

14
frame/compat/bla_symv.h
View File

@@ -41,13 +41,13 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
const f77_char* uploa, \
const f77_int* m, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* x, const f77_int* incx, \
const ftype* beta, \
ftype* y, const f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

16
frame/compat/bla_syr.c
View File

@@ -43,11 +43,11 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* a, f77_int* lda \
const f77_char* uploa, \
const f77_int* m, \
const ftype* alpha, \
const ftype* x, const f77_int* incx, \
ftype* a, const f77_int* lda \
) \
{ \
uplo_t blis_uploa; \
@@ -79,7 +79,7 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( m0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, (ftype*)x, *incx, x0, incx0 ); \
\
/* Set the row and column strides of A. */ \
rs_a = 1; \
@@ -91,9 +91,9 @@ void PASTEF77(ch,blasname) \
blis_uploa, \
BLIS_NO_CONJUGATE, \
m0, \
alpha, \
(ftype*)alpha, \
x0, incx0, \
a, rs_a, cs_a, \
(ftype*)a, rs_a, cs_a, \
NULL \
); \
\

10
frame/compat/bla_syr.h
View File

@@ -41,11 +41,11 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* a, f77_int* lda \
const f77_char* uploa, \
const f77_int* m, \
const ftype* alpha, \
const ftype* x, const f77_int* incx, \
ftype* a, const f77_int* lda \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

20
frame/compat/bla_syr2.c
View File

@@ -43,12 +43,12 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
const f77_char* uploa, \
const f77_int* m, \
const ftype* alpha, \
const ftype* x, const f77_int* incx, \
const ftype* y, const f77_int* incy, \
ftype* a, const f77_int* lda \
) \
{ \
uplo_t blis_uploa; \
@@ -84,8 +84,8 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( m0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, y, *incy, y0, incy0 ); \
bli_convert_blas_incv( m0, (ftype*)x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Set the row and column strides of A. */ \
rs_a = 1; \
@@ -98,10 +98,10 @@ void PASTEF77(ch,blasname) \
BLIS_NO_CONJUGATE, \
BLIS_NO_CONJUGATE, \
m0, \
alpha, \
(ftype*)alpha, \
x0, incx0, \
y0, incy0, \
a, rs_a, cs_a, \
(ftype*)a, rs_a, cs_a, \
NULL \
); \
\

12
frame/compat/bla_syr2.h
View File

@@ -41,12 +41,12 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
const f77_char* uploa, \
const f77_int* m, \
const ftype* alpha, \
const ftype* x, const f77_int* incx, \
const ftype* y, const f77_int* incy, \
ftype* a, const f77_int* lda \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

28
frame/compat/bla_syr2k.c
View File

@@ -43,15 +43,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
const f77_char* uploc, \
const f77_char* transa, \
const f77_int* m, \
const f77_int* k, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* b, const f77_int* ldb, \
const ftype* beta, \
ftype* c, const f77_int* ldc \
) \
{ \
uplo_t blis_uploc; \
@@ -112,11 +112,11 @@ void PASTEF77(ch,blasname) \
blis_transa, \
m0, \
k0, \
alpha, \
a, rs_a, cs_a, \
b, rs_b, cs_b, \
beta, \
c, rs_c, cs_c, \
(ftype*)alpha, \
(ftype*)a, rs_a, cs_a, \
(ftype*)b, rs_b, cs_b, \
(ftype*)beta, \
(ftype*)c, rs_c, cs_c, \
NULL \
); \
\

18
frame/compat/bla_syr2k.h
View File

@@ -41,15 +41,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
const f77_char* uploc, \
const f77_char* transa, \
const f77_int* m, \
const f77_int* k, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* b, const f77_int* ldb, \
const ftype* beta, \
ftype* c, const f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

24
frame/compat/bla_syrk.c
View File

@@ -43,14 +43,14 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* beta, \
ftype* c, f77_int* ldc \
const f77_char* uploc, \
const f77_char* transa, \
const f77_int* m, \
const f77_int* k, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* beta, \
ftype* c, const f77_int* ldc \
) \
{ \
uplo_t blis_uploc; \
@@ -106,10 +106,10 @@ void PASTEF77(ch,blasname) \
blis_transa, \
m0, \
k0, \
alpha, \
a, rs_a, cs_a, \
beta, \
c, rs_c, cs_c, \
(ftype*)alpha, \
(ftype*)a, rs_a, cs_a, \
(ftype*)beta, \
(ftype*)c, rs_c, cs_c, \
NULL \
); \
\

16
frame/compat/bla_syrk.h
View File

@@ -41,14 +41,14 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* beta, \
ftype* c, f77_int* ldc \
const f77_char* uploc, \
const f77_char* transa, \
const f77_int* m, \
const f77_int* k, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
const ftype* beta, \
ftype* c, const f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

24
frame/compat/bla_trmm.c
View File

@@ -43,15 +43,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* side, \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb \
const f77_char* side, \
const f77_char* uploa, \
const f77_char* transa, \
const f77_char* diaga, \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
ftype* b, const f77_int* ldb \
) \
{ \
side_t blis_side; \
@@ -106,9 +106,9 @@ void PASTEF77(ch,blasname) \
blis_diaga, \
m0, \
n0, \
alpha, \
a, rs_a, cs_a, \
b, rs_b, cs_b, \
(ftype*)alpha, \
(ftype*)a, rs_a, cs_a, \
(ftype*)b, rs_b, cs_b, \
NULL \
); \
\

18
frame/compat/bla_trmm.h
View File

@@ -41,15 +41,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* side, \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb \
const f77_char* side, \
const f77_char* uploa, \
const f77_char* transa, \
const f77_char* diaga, \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
ftype* b, const f77_int* ldb \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

16
frame/compat/bla_trmv.c
View File

@@ -43,12 +43,12 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
const f77_char* uploa, \
const f77_char* transa, \
const f77_char* diaga, \
const f77_int* m, \
const ftype* a, const f77_int* lda, \
ftype* x, const f77_int* incx \
) \
{ \
uplo_t blis_uploa; \
@@ -87,7 +87,7 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( m0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, (ftype*)x, *incx, x0, incx0 ); \
\
/* Set the row and column strides of A. */ \
rs_a = 1; \
@@ -104,7 +104,7 @@ void PASTEF77(ch,blasname) \
blis_diaga, \
m0, \
one_p, \
a, rs_a, cs_a, \
(ftype*)a, rs_a, cs_a, \
x0, incx0, \
NULL \
); \

12
frame/compat/bla_trmv.h
View File

@@ -41,12 +41,12 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
const f77_char* uploa, \
const f77_char* transa, \
const f77_char* diaga, \
const f77_int* m, \
const ftype* a, const f77_int* lda, \
ftype* x, const f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

24
frame/compat/bla_trsm.c
View File

@@ -43,15 +43,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* side, \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb \
const f77_char* side, \
const f77_char* uploa, \
const f77_char* transa, \
const f77_char* diaga, \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
ftype* b, const f77_int* ldb \
) \
{ \
side_t blis_side; \
@@ -106,9 +106,9 @@ void PASTEF77(ch,blasname) \
blis_diaga, \
m0, \
n0, \
alpha, \
a, rs_a, cs_a, \
b, rs_b, cs_b, \
(ftype*)alpha, \
(ftype*)a, rs_a, cs_a, \
(ftype*)b, rs_b, cs_b, \
NULL \
); \
\

18
frame/compat/bla_trsm.h
View File

@@ -41,15 +41,15 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* side, \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb \
const f77_char* side, \
const f77_char* uploa, \
const f77_char* transa, \
const f77_char* diaga, \
const f77_int* m, \
const f77_int* n, \
const ftype* alpha, \
const ftype* a, const f77_int* lda, \
ftype* b, const f77_int* ldb \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

16
frame/compat/bla_trsv.c
View File

@@ -43,12 +43,12 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
const f77_char* uploa, \
const f77_char* transa, \
const f77_char* diaga, \
const f77_int* m, \
const ftype* a, const f77_int* lda, \
ftype* x, const f77_int* incx \
) \
{ \
uplo_t blis_uploa; \
@@ -87,7 +87,7 @@ void PASTEF77(ch,blasname) \
\
/* If the input increments are negative, adjust the pointers so we can
use positive increments instead. */ \
bli_convert_blas_incv( m0, x, *incx, x0, incx0 ); \
bli_convert_blas_incv( m0, (ftype*)x, *incx, x0, incx0 ); \
\
/* Set the row and column strides of A. */ \
rs_a = 1; \
@@ -104,7 +104,7 @@ void PASTEF77(ch,blasname) \
blis_diaga, \
m0, \
one_p, \
a, rs_a, cs_a, \
(ftype*)a, rs_a, cs_a, \
x0, incx0, \
NULL \
); \

12
frame/compat/bla_trsv.h
View File

@@ -41,12 +41,12 @@
\
void PASTEF77(ch,blasname) \
( \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
const f77_char* uploa, \
const f77_char* transa, \
const f77_char* diaga, \
const f77_int* m, \
const ftype* a, const f77_int* lda, \
ftype* x, const f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

14
frame/compat/bli_blas.h
View File

@@ -32,6 +32,15 @@
*/
#ifdef BLIS_ENABLE_CBLAS
// If the BLAS compatibility layer was not explicitly enabled, we must
// enable it here.
#ifndef BLIS_ENABLE_BLAS2BLIS
#define BLIS_ENABLE_BLAS2BLIS
#endif
#endif // BLIS_ENABLE_CBLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
@@ -85,6 +94,11 @@
#include "bla_scal.h"
#include "bla_swap.h"
#include "f77_amax_sub.h"
#include "f77_asum_sub.h"
#include "f77_dot_sub.h"
#include "f77_nrm2_sub.h"
// -- Level-2 BLAS prototypes --

18
frame/compat/cblas/bli_cblas.h
View File

@@ -35,22 +35,14 @@
#ifndef BLIS_CBLAS_H
#define BLIS_CBLAS_H
#ifdef BLIS_ENABLE_CBLAS
// If the BLAS compatibility layer was not explicitly enabled, we must
// enable it here.
#ifndef BLIS_ENABLE_BLAS2BLIS
#define BLIS_ENABLE_BLAS2BLIS
#endif
// Force trailing underscores. BLIS does not support any other type of
// Fortran name-mangling.
#define ADD_
// Define the Fortran integer to be the same kind assumed by BLIS's
// BLAS compatibility layer.
#define F77_INT f77_int
// Undefine these macros so that no internal conversion is done by CBLAS.
// The function signatures have been modified to use the proper integer types
// directly.
#undef F77_INT
#undef F77_CHAR
// Include the main CBLAS header so that including this header file
// (probably via blis.h) allows applications to access CBLAS

4
frame/compat/cblas/f77_sub/f77_amax_sub.c
View File

@@ -43,8 +43,8 @@
#define GENTFUNC( ftype_x, chx, blasname, blisname ) \
\
void PASTEF773(i,chx,blasname,sub)( \
f77_int* n, \
ftype_x* x, f77_int* incx, \
const f77_int* n, \
const ftype_x* x, const f77_int* incx, \
f77_int* rval \
) \
{ \

4
frame/compat/cblas/f77_sub/f77_amax_sub.h
View File

@@ -40,8 +40,8 @@
#define GENTPROT( ftype_x, chx, blasname ) \
\
void PASTEF773(i,chx,blasname,sub)( \
f77_int* n, \
ftype_x* x, f77_int* incx, \
const f77_int* n, \
const ftype_x* x, const f77_int* incx, \
f77_int* rval \
);

4
frame/compat/cblas/f77_sub/f77_asum_sub.c
View File

@@ -43,8 +43,8 @@
#define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \
\
void PASTEF773(chr,chx,blasname,sub)( \
f77_int* n, \
ftype_x* x, f77_int* incx, \
const f77_int* n, \
const ftype_x* x, const f77_int* incx, \
ftype_r* rval \
) \
{ \

4
frame/compat/cblas/f77_sub/f77_asum_sub.h
View File

@@ -40,8 +40,8 @@
#define GENTPROTR2( ftype_x, ftype_r, chx, chr, blasname ) \
\
void PASTEF773(chr,chx,blasname,sub)( \
f77_int* n, \
ftype_x* x, f77_int* incx, \
const f77_int* n, \
const ftype_x* x, const f77_int* incx, \
ftype_r* rval \
);

25
frame/compat/cblas/f77_sub/f77_dot_sub.c
View File

@@ -43,9 +43,9 @@
#define GENTFUNCDOT( ftype, chxy, chc, blis_conjx, blasname, blisname ) \
\
void PASTEF773(chxy,blasname,chc,sub)( \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
const f77_int* n, \
const ftype* x, const f77_int* incx, \
const ftype* y, const f77_int* incy, \
ftype* rval \
) \
{ \
@@ -62,22 +62,23 @@ INSERT_GENTFUNCDOT_BLAS( dot, NULL )
// Input vectors stored in single precision, computed in double precision,
// with result returned in single precision.
void PASTEF772(sds,dot,sub)( f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy,
void PASTEF772(sds,dot,sub)( const f77_int* n,
const float* sb,
const float* x, const f77_int* incx,
const float* y, const f77_int* incy,
float* rval
)
{
*rval = PASTEF77(sds,dot)( n,
x, incx,
y, incy );
*rval = *sb + PASTEF77(sds,dot)( n,
x, incx,
y, incy );
}
// Input vectors stored in single precision, computed in double precision,
// with result returned in double precision.
void PASTEF772(ds,dot,sub)( f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy,
void PASTEF772(ds,dot,sub)( const f77_int* n,
const float* x, const f77_int* incx,
const float* y, const f77_int* incy,
double* rval
)
{

19
frame/compat/cblas/f77_sub/f77_dot_sub.h
View File

@@ -40,9 +40,9 @@
#define GENTPROTDOT( ftype, chxy, chc, blasname ) \
\
void PASTEF773(chxy,blasname,chc,sub)( \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
const f77_int* n, \
const ftype* x, const f77_int* incx, \
const ftype* y, const f77_int* incy, \
ftype* rval \
);
@@ -52,15 +52,16 @@ INSERT_GENTPROTDOT_BLAS( dot )
// -- "Black sheep" dot product function prototypes --
void PASTEF772(sds,dot,sub)( f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy,
void PASTEF772(sds,dot,sub)( const f77_int* n,
const float* sb,
const float* x, const f77_int* incx,
const float* y, const f77_int* incy,
float* rval
);
void PASTEF772(ds,dot,sub)( f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy,
void PASTEF772(ds,dot,sub)( const f77_int* n,
const float* x, const f77_int* incx,
const float* y, const f77_int* incy,
double* rval
);
#endif

4
frame/compat/cblas/f77_sub/f77_nrm2_sub.c
View File

@@ -43,8 +43,8 @@
#define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \
\
void PASTEF773(chr,chx,blasname,sub)( \
f77_int* n, \
ftype_x* x, f77_int* incx, \
const f77_int* n, \
const ftype_x* x, const f77_int* incx, \
ftype_r* rval \
) \
{ \

4
frame/compat/cblas/f77_sub/f77_nrm2_sub.h
View File

@@ -40,8 +40,8 @@
#define GENTPROTR2( ftype_x, ftype_r, chx, chr, blasname ) \
\
void PASTEF773(chr,chx,blasname,sub)( \
f77_int* n, \
ftype_x* x, f77_int* incx, \
const f77_int* n, \
const ftype_x* x, const f77_int* incx, \
ftype_r* rval \
);

912
frame/compat/cblas/src/cblas.h
View File

File diff suppressed because it is too large Load Diff

12
frame/compat/cblas/src/cblas_caxpy.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_caxpy.c
@@ -14,8 +10,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_caxpy( const int N, const void *alpha, const void *X,
const int incX, void *Y, const int incY)
void cblas_caxpy( f77_int N, const void *alpha, const void *X,
f77_int incX, void *Y, f77_int incY)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
@@ -24,6 +20,6 @@ void cblas_caxpy( const int N, const void *alpha, const void *X,
#define F77_incX incX
#define F77_incY incY
#endif
F77_caxpy( &F77_N, alpha, X, &F77_incX, Y, &F77_incY);
F77_caxpy( &F77_N, (scomplex*)alpha, (scomplex*)X, &F77_incX, (scomplex*)Y, &F77_incY);
}
#endif

12
frame/compat/cblas/src/cblas_ccopy.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_ccopy.c
@@ -14,8 +10,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_ccopy( const int N, const void *X,
const int incX, void *Y, const int incY)
void cblas_ccopy( f77_int N, const void *X,
f77_int incX, void *Y, f77_int incY)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
@@ -24,6 +20,6 @@ void cblas_ccopy( const int N, const void *X,
#define F77_incX incX
#define F77_incY incY
#endif
F77_ccopy( &F77_N, X, &F77_incX, Y, &F77_incY);
F77_ccopy( &F77_N, (scomplex*)X, &F77_incX, (scomplex*)Y, &F77_incY);
}
#endif

12
frame/compat/cblas/src/cblas_cdotc_sub.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_cdotc_sub.c
@@ -15,8 +11,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cdotc_sub( const int N, const void *X, const int incX,
const void *Y, const int incY,void *dotc)
void cblas_cdotc_sub( f77_int N, const void *X, f77_int incX,
const void *Y, f77_int incY,void *dotc)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
@@ -25,6 +21,6 @@ void cblas_cdotc_sub( const int N, const void *X, const int incX,
#define F77_incX incX
#define F77_incY incY
#endif
F77_cdotc_sub( &F77_N, X, &F77_incX, Y, &F77_incY, dotc);
F77_cdotc_sub( &F77_N, (scomplex*)X, &F77_incX, (scomplex*)Y, &F77_incY, (scomplex*)dotc);
}
#endif

12
frame/compat/cblas/src/cblas_cdotu_sub.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_cdotu_sub.f
@@ -15,8 +11,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cdotu_sub( const int N, const void *X,
const int incX, const void *Y, const int incY,void *dotu)
void cblas_cdotu_sub( f77_int N, const void *X,
f77_int incX, const void *Y, f77_int incY,void *dotu)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
@@ -25,6 +21,6 @@ void cblas_cdotu_sub( const int N, const void *X,
#define F77_incX incX
#define F77_incY incY
#endif
F77_cdotu_sub( &F77_N, X, &F77_incX, Y, &F77_incY, dotu);
F77_cdotu_sub( &F77_N, (scomplex*)X, &F77_incX, (scomplex*)Y, &F77_incY, (scomplex*)dotu);
}
#endif

34
frame/compat/cblas/src/cblas_cgbmv.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_cgbmv.c
@@ -15,12 +11,12 @@
#include <stdlib.h>
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cgbmv(const enum CBLAS_ORDER order,
const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
const int KL, const int KU,
const void *alpha, const void *A, const int lda,
const void *X, const int incX, const void *beta,
void *Y, const int incY)
void cblas_cgbmv(enum CBLAS_ORDER order,
enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N,
f77_int KL, f77_int KU,
const void *alpha, const void *A, f77_int lda,
const void *X, f77_int incX, const void *beta,
void *Y, f77_int incY)
{
char TA;
#ifdef F77_CHAR
@@ -37,7 +33,7 @@ void cblas_cgbmv(const enum CBLAS_ORDER order,
#define F77_lda lda
#define F77_KL KL
#define F77_KU KU
#define F77_incX incx
#define F77_incX incX
#define F77_incY incY
#endif
int n=0, i=0;
@@ -65,8 +61,8 @@ void cblas_cgbmv(const enum CBLAS_ORDER order,
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
F77_cgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha,
A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY);
F77_cgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, (scomplex*)alpha,
(scomplex*)A, &F77_lda, (scomplex*)X, &F77_incX, (scomplex*)beta, (scomplex*)Y, &F77_incY);
}
else if (order == CblasRowMajor)
{
@@ -109,7 +105,7 @@ void cblas_cgbmv(const enum CBLAS_ORDER order,
#ifdef F77_INT
F77_incX = 1;
#else
incx = 1;
incX = 1;
#endif
if( incY > 0 )
@@ -146,11 +142,11 @@ void cblas_cgbmv(const enum CBLAS_ORDER order,
F77_TA = C2F_CHAR(&TA);
#endif
if (TransA == CblasConjTrans)
F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, ALPHA,
A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, (scomplex*)ALPHA,
(scomplex*)A ,&F77_lda, (scomplex*)x,&F77_incX, (scomplex*)BETA, (scomplex*)Y, &F77_incY);
else
F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha,
A ,&F77_lda, x,&F77_incX, beta, Y, &F77_incY);
F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, (scomplex*)alpha,
(scomplex*)A ,&F77_lda, (scomplex*)x,&F77_incX, (scomplex*)beta, (scomplex*)Y, &F77_incY);
if (TransA == CblasConjTrans)
{
if (x != X) free(x);

24
frame/compat/cblas/src/cblas_cgemm.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
*
@@ -15,11 +11,11 @@
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA,
const enum CBLAS_TRANSPOSE TransB, const int M, const int N,
const int K, const void *alpha, const void *A,
const int lda, const void *B, const int ldb,
const void *beta, void *C, const int ldc)
void cblas_cgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA,
enum CBLAS_TRANSPOSE TransB, f77_int M, f77_int N,
f77_int K, const void *alpha, const void *A,
f77_int lda, const void *B, f77_int ldb,
const void *beta, void *C, f77_int ldc)
{
char TA, TB;
#ifdef F77_CHAR
@@ -75,8 +71,8 @@ void cblas_cgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA
F77_TB = C2F_CHAR(&TB);
#endif
F77_cgemm(F77_TA, F77_TB, &F77_M, &F77_N, &F77_K, alpha, A,
&F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
F77_cgemm(F77_TA, F77_TB, &F77_M, &F77_N, &F77_K, (scomplex*)alpha, (scomplex*)A,
&F77_lda, (scomplex*)B, &F77_ldb, (scomplex*)beta, (scomplex*)C, &F77_ldc);
} else if (Order == CblasRowMajor)
{
RowMajorStrg = 1;
@@ -105,8 +101,8 @@ void cblas_cgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRANSPOSE TransA
F77_TB = C2F_CHAR(&TB);
#endif
F77_cgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, alpha, B,
&F77_ldb, A, &F77_lda, beta, C, &F77_ldc);
F77_cgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, (scomplex*)alpha, (scomplex*)B,
&F77_ldb, (scomplex*)A, &F77_lda, (scomplex*)beta, (scomplex*)C, &F77_ldc);
}
else cblas_xerbla(1, "cblas_cgemm", "Illegal Order setting, %d\n", Order);
CBLAS_CallFromC = 0;

30
frame/compat/cblas/src/cblas_cgemv.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_cgemv.c
@@ -15,11 +11,11 @@
#include <stdlib.h>
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cgemv(const enum CBLAS_ORDER order,
const enum CBLAS_TRANSPOSE TransA, const int M, const int N,
const void *alpha, const void *A, const int lda,
const void *X, const int incX, const void *beta,
void *Y, const int incY)
void cblas_cgemv(enum CBLAS_ORDER order,
enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N,
const void *alpha, const void *A, f77_int lda,
const void *X, f77_int incX, const void *beta,
void *Y, f77_int incY)
{
char TA;
#ifdef F77_CHAR
@@ -33,7 +29,7 @@ void cblas_cgemv(const enum CBLAS_ORDER order,
#define F77_M M
#define F77_N N
#define F77_lda lda
#define F77_incX incx
#define F77_incX incX
#define F77_incY incY
#endif
@@ -64,8 +60,8 @@ void cblas_cgemv(const enum CBLAS_ORDER order,
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
F77_cgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
beta, Y, &F77_incY);
F77_cgemv(F77_TA, &F77_M, &F77_N, (scomplex*)alpha, (scomplex*)A, &F77_lda, (scomplex*)X, &F77_incX,
(scomplex*)beta, (scomplex*)Y, &F77_incY);
}
else if (order == CblasRowMajor)
{
@@ -141,11 +137,11 @@ void cblas_cgemv(const enum CBLAS_ORDER order,
F77_TA = C2F_CHAR(&TA);
#endif
if (TransA == CblasConjTrans)
F77_cgemv(F77_TA, &F77_N, &F77_M, ALPHA, A, &F77_lda, stx,
&F77_incX, BETA, Y, &F77_incY);
F77_cgemv(F77_TA, &F77_N, &F77_M, (scomplex*)ALPHA, (scomplex*)A, &F77_lda, (scomplex*)stx,
&F77_incX, (scomplex*)BETA, (scomplex*)Y, &F77_incY);
else
F77_cgemv(F77_TA, &F77_N, &F77_M, alpha, A, &F77_lda, x,
&F77_incX, beta, Y, &F77_incY);
F77_cgemv(F77_TA, &F77_N, &F77_M, (scomplex*)alpha, (scomplex*)A, &F77_lda, (scomplex*)x,
&F77_incX, (scomplex*)beta, (scomplex*)Y, &F77_incY);
if (TransA == CblasConjTrans)
{

20
frame/compat/cblas/src/cblas_cgerc.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_cgerc.c
@@ -15,9 +11,9 @@
#include <stdlib.h>
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cgerc(const enum CBLAS_ORDER order, const int M, const int N,
const void *alpha, const void *X, const int incX,
const void *Y, const int incY, void *A, const int lda)
void cblas_cgerc(enum CBLAS_ORDER order, f77_int M, f77_int N,
const void *alpha, const void *X, f77_int incX,
const void *Y, f77_int incY, void *A, f77_int lda)
{
#ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
@@ -25,7 +21,7 @@ void cblas_cgerc(const enum CBLAS_ORDER order, const int M, const int N,
#define F77_M M
#define F77_N N
#define F77_incX incX
#define F77_incY incy
#define F77_incY incY
#define F77_lda lda
#endif
@@ -39,7 +35,7 @@ void cblas_cgerc(const enum CBLAS_ORDER order, const int M, const int N,
CBLAS_CallFromC = 1;
if (order == CblasColMajor)
{
F77_cgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
F77_cgerc( &F77_M, &F77_N, (scomplex*)alpha, (scomplex*)X, &F77_incX, (scomplex*)Y, &F77_incY, (scomplex*)A,
&F77_lda);
} else if (order == CblasRowMajor)
{
@@ -73,12 +69,12 @@ void cblas_cgerc(const enum CBLAS_ORDER order, const int M, const int N,
#ifdef F77_INT
F77_incY = 1;
#else
incy = 1;
incY = 1;
#endif
}
else y = (float *) Y;
F77_cgeru( &F77_N, &F77_M, alpha, y, &F77_incY, X, &F77_incX, A,
F77_cgeru( &F77_N, &F77_M, (scomplex*)alpha, (scomplex*)y, &F77_incY, (scomplex*)X, &F77_incX, (scomplex*)A,
&F77_lda);
if(Y!=y)
free(y);

16
frame/compat/cblas/src/cblas_cgeru.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_cgeru.c
@@ -13,9 +9,9 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cgeru(const enum CBLAS_ORDER order, const int M, const int N,
const void *alpha, const void *X, const int incX,
const void *Y, const int incY, void *A, const int lda)
void cblas_cgeru(enum CBLAS_ORDER order, f77_int M, f77_int N,
const void *alpha, const void *X, f77_int incX,
const void *Y, f77_int incY, void *A, f77_int lda)
{
#ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
@@ -35,13 +31,13 @@ void cblas_cgeru(const enum CBLAS_ORDER order, const int M, const int N,
if (order == CblasColMajor)
{
F77_cgeru( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
F77_cgeru( &F77_M, &F77_N, (scomplex*)alpha, (scomplex*)X, &F77_incX, (scomplex*)Y, &F77_incY, (scomplex*)A,
&F77_lda);
}
else if (order == CblasRowMajor)
{
RowMajorStrg = 1;
F77_cgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A,
F77_cgeru( &F77_N, &F77_M, (scomplex*)alpha, (scomplex*)Y, &F77_incY, (scomplex*)X, &F77_incX, (scomplex*)A,
&F77_lda);
}
else cblas_xerbla(1, "cblas_cgeru","Illegal Order setting, %d\n", order);

28
frame/compat/cblas/src/cblas_chbmv.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_chbmv.c
@@ -15,11 +11,11 @@
#include "cblas_f77.h"
#include <stdio.h>
#include <stdlib.h>
void cblas_chbmv(const enum CBLAS_ORDER order,
const enum CBLAS_UPLO Uplo,const int N,const int K,
const void *alpha, const void *A, const int lda,
const void *X, const int incX, const void *beta,
void *Y, const int incY)
void cblas_chbmv(enum CBLAS_ORDER order,
enum CBLAS_UPLO Uplo,f77_int N,f77_int K,
const void *alpha, const void *A, f77_int lda,
const void *X, f77_int incX, const void *beta,
void *Y, f77_int incY)
{
char UL;
#ifdef F77_CHAR
@@ -33,7 +29,7 @@ void cblas_chbmv(const enum CBLAS_ORDER order,
#define F77_N N
#define F77_K K
#define F77_lda lda
#define F77_incX incx
#define F77_incX incX
#define F77_incY incY
#endif
int n, i=0;
@@ -60,8 +56,8 @@ void cblas_chbmv(const enum CBLAS_ORDER order,
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
F77_chbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X,
&F77_incX, beta, Y, &F77_incY);
F77_chbmv(F77_UL, &F77_N, &F77_K, (scomplex*)alpha, (scomplex*)A, &F77_lda, (scomplex*)X,
&F77_incX, (scomplex*)beta, (scomplex*)Y, &F77_incY);
}
else if (order == CblasRowMajor)
{
@@ -102,7 +98,7 @@ void cblas_chbmv(const enum CBLAS_ORDER order,
#ifdef F77_INT
F77_incX = 1;
#else
incx = 1;
incX = 1;
#endif
if(incY > 0)
@@ -134,8 +130,8 @@ void cblas_chbmv(const enum CBLAS_ORDER order,
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
F77_chbmv(F77_UL, &F77_N, &F77_K, ALPHA,
A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
F77_chbmv(F77_UL, &F77_N, &F77_K, (scomplex*)ALPHA,
(scomplex*)A ,&F77_lda, (scomplex*)x,&F77_incX, (scomplex*)BETA, (scomplex*)Y, &F77_incY);
}
else
{

24
frame/compat/cblas/src/cblas_chemm.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
*
@@ -15,11 +11,11 @@
#include "cblas.h"
#include "cblas_f77.h"
void cblas_chemm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const int M, const int N,
const void *alpha, const void *A, const int lda,
const void *B, const int ldb, const void *beta,
void *C, const int ldc)
void cblas_chemm(enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
enum CBLAS_UPLO Uplo, f77_int M, f77_int N,
const void *alpha, const void *A, f77_int lda,
const void *B, f77_int ldb, const void *beta,
void *C, f77_int ldc)
{
char SD, UL;
#ifdef F77_CHAR
@@ -72,8 +68,8 @@ void cblas_chemm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
F77_SD = C2F_CHAR(&SD);
#endif
F77_chemm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda,
B, &F77_ldb, beta, C, &F77_ldc);
F77_chemm(F77_SD, F77_UL, &F77_M, &F77_N, (scomplex*)alpha, (scomplex*)A, &F77_lda,
(scomplex*)B, &F77_ldb, (scomplex*)beta, (scomplex*)C, &F77_ldc);
} else if (Order == CblasRowMajor)
{
RowMajorStrg = 1;
@@ -102,8 +98,8 @@ void cblas_chemm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
F77_SD = C2F_CHAR(&SD);
#endif
F77_chemm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A,
&F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
F77_chemm(F77_SD, F77_UL, &F77_N, &F77_M, (scomplex*)alpha, (scomplex*)A,
&F77_lda, (scomplex*)B, &F77_ldb, (scomplex*)beta, (scomplex*)C, &F77_ldc);
}
else cblas_xerbla(1, "cblas_chemm", "Illegal Order setting, %d\n", Order);
CBLAS_CallFromC = 0;

28
frame/compat/cblas/src/cblas_chemv.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_chemv.c
@@ -15,11 +11,11 @@
#include <stdlib.h>
#include "cblas.h"
#include "cblas_f77.h"
void cblas_chemv(const enum CBLAS_ORDER order,
const enum CBLAS_UPLO Uplo, const int N,
const void *alpha, const void *A, const int lda,
const void *X, const int incX, const void *beta,
void *Y, const int incY)
void cblas_chemv(enum CBLAS_ORDER order,
enum CBLAS_UPLO Uplo, f77_int N,
const void *alpha, const void *A, f77_int lda,
const void *X, f77_int incX, const void *beta,
void *Y, f77_int incY)
{
char UL;
#ifdef F77_CHAR
@@ -32,7 +28,7 @@ void cblas_chemv(const enum CBLAS_ORDER order,
#else
#define F77_N N
#define F77_lda lda
#define F77_incX incx
#define F77_incX incX
#define F77_incY incY
#endif
int n=0, i=0;
@@ -60,8 +56,8 @@ void cblas_chemv(const enum CBLAS_ORDER order,
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
F77_chemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
beta, Y, &F77_incY);
F77_chemv(F77_UL, &F77_N, (scomplex*)alpha, (scomplex*)A, &F77_lda, (scomplex*)X, &F77_incX,
(scomplex*)beta, (scomplex*)Y, &F77_incY);
}
else if (order == CblasRowMajor)
{
@@ -102,7 +98,7 @@ void cblas_chemv(const enum CBLAS_ORDER order,
#ifdef F77_INT
F77_incX = 1;
#else
incx = 1;
incX = 1;
#endif
if(incY > 0)
@@ -135,8 +131,8 @@ void cblas_chemv(const enum CBLAS_ORDER order,
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
F77_chemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX,
BETA, Y, &F77_incY);
F77_chemv(F77_UL, &F77_N, (scomplex*)ALPHA, (scomplex*)A, &F77_lda, (scomplex*)x, &F77_incX,
(scomplex*)BETA, (scomplex*)Y, &F77_incY);
}
else
{

20
frame/compat/cblas/src/cblas_cher.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_cher.c
@@ -15,9 +11,9 @@
#include <stdlib.h>
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const float alpha, const void *X, const int incX
,void *A, const int lda)
void cblas_cher(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
f77_int N, float alpha, const void *X, f77_int incX
,void *A, f77_int lda)
{
char UL;
#ifdef F77_CHAR
@@ -31,7 +27,7 @@ void cblas_cher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#else
#define F77_N N
#define F77_lda lda
#define F77_incX incx
#define F77_incX incX
#endif
int n, i, tincx;
float *x=(float *)X, *xx=(float *)X, *tx, *st;
@@ -56,7 +52,7 @@ void cblas_cher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_UL = C2F_CHAR(&UL);
#endif
F77_cher(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
F77_cher(F77_UL, &F77_N, &alpha, (scomplex*)X, &F77_incX, (scomplex*)A, &F77_lda);
} else if (order == CblasRowMajor)
{
@@ -101,11 +97,11 @@ void cblas_cher(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#ifdef F77_INT
F77_incX = 1;
#else
incx = 1;
incX = 1;
#endif
}
else x = (float *) X;
F77_cher(F77_UL, &F77_N, &alpha, x, &F77_incX, A, &F77_lda);
F77_cher(F77_UL, &F77_N, &alpha, (scomplex*)x, &F77_incX, (scomplex*)A, &F77_lda);
} else
{
cblas_xerbla(1, "cblas_cher","Illegal Order setting, %d\n", order);

28
frame/compat/cblas/src/cblas_cher2.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_cher2.c
@@ -15,9 +11,9 @@
#include <stdlib.h>
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const void *alpha, const void *X, const int incX,
const void *Y, const int incY, void *A, const int lda)
void cblas_cher2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
f77_int N, const void *alpha, const void *X, f77_int incX,
const void *Y, f77_int incY, void *A, f77_int lda)
{
char UL;
#ifdef F77_CHAR
@@ -31,8 +27,8 @@ void cblas_cher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#else
#define F77_N N
#define F77_lda lda
#define F77_incX incx
#define F77_incY incy
#define F77_incX incX
#define F77_incY incY
#endif
int n, i, j, tincx, tincy;
float *x=(float *)X, *xx=(float *)X, *y=(float *)Y,
@@ -58,8 +54,8 @@ void cblas_cher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_UL = C2F_CHAR(&UL);
#endif
F77_cher2(F77_UL, &F77_N, alpha, X, &F77_incX,
Y, &F77_incY, A, &F77_lda);
F77_cher2(F77_UL, &F77_N, (scomplex*)alpha, (scomplex*)X, &F77_incX,
(scomplex*)Y, &F77_incY, (scomplex*)A, &F77_lda);
} else if (order == CblasRowMajor)
{
@@ -130,16 +126,16 @@ void cblas_cher2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_incX = 1;
F77_incY = 1;
#else
incx = 1;
incy = 1;
incX = 1;
incY = 1;
#endif
} else
{
x = (float *) X;
y = (float *) Y;
}
F77_cher2(F77_UL, &F77_N, alpha, y, &F77_incY, x,
&F77_incX, A, &F77_lda);
F77_cher2(F77_UL, &F77_N, (scomplex*)alpha, (scomplex*)y, &F77_incY, (scomplex*)x,
&F77_incX, (scomplex*)A, &F77_lda);
} else
{
cblas_xerbla(1, "cblas_cher2","Illegal Order setting, %d\n", order);

20
frame/compat/cblas/src/cblas_cher2k.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
*
@@ -15,11 +11,11 @@
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cher2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
const void *alpha, const void *A, const int lda,
const void *B, const int ldb, const float beta,
void *C, const int ldc)
void cblas_cher2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo,
enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K,
const void *alpha, const void *A, f77_int lda,
const void *B, f77_int ldb, float beta,
void *C, f77_int ldc)
{
char UL, TR;
#ifdef F77_CHAR
@@ -77,7 +73,7 @@ void cblas_cher2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
F77_TR = C2F_CHAR(&TR);
#endif
F77_cher2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
F77_cher2k(F77_UL, F77_TR, &F77_N, &F77_K, (scomplex*)alpha, (scomplex*)A, &F77_lda, (scomplex*)B, &F77_ldb, &beta, (scomplex*)C, &F77_ldc);
} else if (Order == CblasRowMajor)
{
RowMajorStrg = 1;
@@ -108,7 +104,7 @@ void cblas_cher2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
ALPHA[0]= *alp;
ALPHA[1]= -alp[1];
F77_cher2k(F77_UL,F77_TR, &F77_N, &F77_K, ALPHA, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
F77_cher2k(F77_UL,F77_TR, &F77_N, &F77_K, (scomplex*)ALPHA, (scomplex*)A, &F77_lda, (scomplex*)B, &F77_ldb, &beta, (scomplex*)C, &F77_ldc);
}
else cblas_xerbla(1, "cblas_cher2k", "Illegal Order setting, %d\n", Order);
CBLAS_CallFromC = 0;

22
frame/compat/cblas/src/cblas_cherk.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
*
@@ -15,10 +11,10 @@
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
const float alpha, const void *A, const int lda,
const float beta, void *C, const int ldc)
void cblas_cherk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo,
enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K,
float alpha, const void *A, f77_int lda,
float beta, void *C, f77_int ldc)
{
char UL, TR;
#ifdef F77_CHAR
@@ -71,8 +67,8 @@ void cblas_cherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
F77_TR = C2F_CHAR(&TR);
#endif
F77_cherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
&beta, C, &F77_ldc);
F77_cherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, (scomplex*)A, &F77_lda,
&beta, (scomplex*)C, &F77_ldc);
} else if (Order == CblasRowMajor)
{
RowMajorStrg = 1;
@@ -101,8 +97,8 @@ void cblas_cherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
F77_SD = C2F_CHAR(&SD);
#endif
F77_cherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
&beta, C, &F77_ldc);
F77_cherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, (scomplex*)A, &F77_lda,
&beta, (scomplex*)C, &F77_ldc);
}
else cblas_xerbla(1, "cblas_cherk", "Illegal Order setting, %d\n", Order);
CBLAS_CallFromC = 0;

26
frame/compat/cblas/src/cblas_chpmv.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_chpmv.c
@@ -15,11 +11,11 @@
#include <stdlib.h>
#include "cblas.h"
#include "cblas_f77.h"
void cblas_chpmv(const enum CBLAS_ORDER order,
const enum CBLAS_UPLO Uplo,const int N,
void cblas_chpmv(enum CBLAS_ORDER order,
enum CBLAS_UPLO Uplo,f77_int N,
const void *alpha, const void *AP,
const void *X, const int incX, const void *beta,
void *Y, const int incY)
const void *X, f77_int incX, const void *beta,
void *Y, f77_int incY)
{
char UL;
#ifdef F77_CHAR
@@ -31,7 +27,7 @@ void cblas_chpmv(const enum CBLAS_ORDER order,
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
#else
#define F77_N N
#define F77_incX incx
#define F77_incX incX
#define F77_incY incY
#endif
int n, i=0;
@@ -58,8 +54,8 @@ void cblas_chpmv(const enum CBLAS_ORDER order,
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
F77_chpmv(F77_UL, &F77_N, alpha, AP, X,
&F77_incX, beta, Y, &F77_incY);
F77_chpmv(F77_UL, &F77_N, (scomplex*)alpha, (scomplex*)AP, (scomplex*)X,
&F77_incX, (scomplex*)beta, (scomplex*)Y, &F77_incY);
}
else if (order == CblasRowMajor)
{
@@ -100,7 +96,7 @@ void cblas_chpmv(const enum CBLAS_ORDER order,
#ifdef F77_INT
F77_incX = 1;
#else
incx = 1;
incX = 1;
#endif
if(incY > 0)
@@ -134,8 +130,8 @@ void cblas_chpmv(const enum CBLAS_ORDER order,
F77_UL = C2F_CHAR(&UL);
#endif
F77_chpmv(F77_UL, &F77_N, ALPHA,
AP, x, &F77_incX, BETA, Y, &F77_incY);
F77_chpmv(F77_UL, &F77_N, (scomplex*)ALPHA,
(scomplex*)AP, (scomplex*)x, &F77_incX, (scomplex*)BETA, (scomplex*)Y, &F77_incY);
}
else
{

20
frame/compat/cblas/src/cblas_chpr.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_chpr.c
@@ -15,9 +11,9 @@
#include <stdlib.h>
#include "cblas.h"
#include "cblas_f77.h"
void cblas_chpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N, const float alpha, const void *X,
const int incX, void *A)
void cblas_chpr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
f77_int N, float alpha, const void *X,
f77_int incX, void *A)
{
char UL;
#ifdef F77_CHAR
@@ -30,7 +26,7 @@ void cblas_chpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_INT F77_N=N, F77_incX=incX;
#else
#define F77_N N
#define F77_incX incx
#define F77_incX incX
#endif
int n, i, tincx;
float *x=(float *)X, *xx=(float *)X, *tx, *st;
@@ -55,7 +51,7 @@ void cblas_chpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_UL = C2F_CHAR(&UL);
#endif
F77_chpr(F77_UL, &F77_N, &alpha, X, &F77_incX, A);
F77_chpr(F77_UL, &F77_N, &alpha, (scomplex*)X, &F77_incX, (scomplex*)A);
} else if (order == CblasRowMajor)
{
@@ -99,12 +95,12 @@ void cblas_chpr(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
#ifdef F77_INT
F77_incX = 1;
#else
incx = 1;
incX = 1;
#endif
}
else x = (float *) X;
F77_chpr(F77_UL, &F77_N, &alpha, x, &F77_incX, A);
F77_chpr(F77_UL, &F77_N, &alpha, (scomplex*)x, &F77_incX, (scomplex*)A);
} else
{

24
frame/compat/cblas/src/cblas_chpr2.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_chpr2.c
@@ -15,9 +11,9 @@
#include <stdlib.h>
#include "cblas.h"
#include "cblas_f77.h"
void cblas_chpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const int N,const void *alpha, const void *X,
const int incX,const void *Y, const int incY, void *Ap)
void cblas_chpr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
f77_int N,const void *alpha, const void *X,
f77_int incX,const void *Y, f77_int incY, void *Ap)
{
char UL;
@@ -31,8 +27,8 @@ void cblas_chpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
#else
#define F77_N N
#define F77_incX incx
#define F77_incY incy
#define F77_incX incX
#define F77_incY incY
#endif
int n, i, j, tincx, tincy;
float *x=(float *)X, *xx=(float *)X, *y=(float *)Y,
@@ -58,7 +54,7 @@ void cblas_chpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_UL = C2F_CHAR(&UL);
#endif
F77_chpr2(F77_UL, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, Ap);
F77_chpr2(F77_UL, &F77_N, (scomplex*)alpha, (scomplex*)X, &F77_incX, (scomplex*)Y, &F77_incY, (scomplex*)Ap);
} else if (order == CblasRowMajor)
{
@@ -128,8 +124,8 @@ void cblas_chpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_incX = 1;
F77_incY = 1;
#else
incx = 1;
incy = 1;
incX = 1;
incY = 1;
#endif
} else
@@ -137,7 +133,7 @@ void cblas_chpr2(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
x = (float *) X;
y = (void *) Y;
}
F77_chpr2(F77_UL, &F77_N, alpha, y, &F77_incY, x, &F77_incX, Ap);
F77_chpr2(F77_UL, &F77_N, (scomplex*)alpha, (scomplex*)y, &F77_incY, (scomplex*)x, &F77_incX, (scomplex*)Ap);
} else
{
cblas_xerbla(1, "cblas_chpr2","Illegal Order setting, %d\n", order);

12
frame/compat/cblas/src/cblas_cscal.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_cscal.c
@@ -14,8 +10,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cscal( const int N, const void *alpha, void *X,
const int incX)
void cblas_cscal( f77_int N, const void *alpha, void *X,
f77_int incX)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
@@ -23,6 +19,6 @@ void cblas_cscal( const int N, const void *alpha, void *X,
#define F77_N N
#define F77_incX incX
#endif
F77_cscal( &F77_N, alpha, X, &F77_incX);
F77_cscal( &F77_N, (scomplex*)alpha, (scomplex*)X, &F77_incX);
}
#endif

12
frame/compat/cblas/src/cblas_csscal.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_csscal.c
@@ -14,8 +10,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_csscal( const int N, const float alpha, void *X,
const int incX)
void cblas_csscal( f77_int N, float alpha, void *X,
f77_int incX)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
@@ -23,6 +19,6 @@ void cblas_csscal( const int N, const float alpha, void *X,
#define F77_N N
#define F77_incX incX
#endif
F77_csscal( &F77_N, &alpha, X, &F77_incX);
F77_csscal( &F77_N, &alpha, (scomplex*)X, &F77_incX);
}
#endif

12
frame/compat/cblas/src/cblas_cswap.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_cswap.c
@@ -14,8 +10,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_cswap( const int N, void *X, const int incX, void *Y,
const int incY)
void cblas_cswap( f77_int N, void *X, f77_int incX, void *Y,
f77_int incY)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
@@ -24,6 +20,6 @@ void cblas_cswap( const int N, void *X, const int incX, void *Y,
#define F77_incX incX
#define F77_incY incY
#endif
F77_cswap( &F77_N, X, &F77_incX, Y, &F77_incY);
F77_cswap( &F77_N, (scomplex*)X, &F77_incX, (scomplex*)Y, &F77_incY);
}
#endif

24
frame/compat/cblas/src/cblas_csymm.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
*
@@ -15,11 +11,11 @@
#include "cblas.h"
#include "cblas_f77.h"
void cblas_csymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const int M, const int N,
const void *alpha, const void *A, const int lda,
const void *B, const int ldb, const void *beta,
void *C, const int ldc)
void cblas_csymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side,
enum CBLAS_UPLO Uplo, f77_int M, f77_int N,
const void *alpha, const void *A, f77_int lda,
const void *B, f77_int ldb, const void *beta,
void *C, f77_int ldc)
{
char SD, UL;
#ifdef F77_CHAR
@@ -72,8 +68,8 @@ void cblas_csymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
F77_SD = C2F_CHAR(&SD);
#endif
F77_csymm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda,
B, &F77_ldb, beta, C, &F77_ldc);
F77_csymm(F77_SD, F77_UL, &F77_M, &F77_N, (scomplex*)alpha, (scomplex*)A, &F77_lda,
(scomplex*)B, &F77_ldb, (scomplex*)beta, (scomplex*)C, &F77_ldc);
} else if (Order == CblasRowMajor)
{
RowMajorStrg = 1;
@@ -102,8 +98,8 @@ void cblas_csymm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
F77_SD = C2F_CHAR(&SD);
#endif
F77_csymm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda,
B, &F77_ldb, beta, C, &F77_ldc);
F77_csymm(F77_SD, F77_UL, &F77_N, &F77_M, (scomplex*)alpha, (scomplex*)A, &F77_lda,
(scomplex*)B, &F77_ldb, (scomplex*)beta, (scomplex*)C, &F77_ldc);
}
else cblas_xerbla(1, "cblas_csymm", "Illegal Order setting, %d\n", Order);
CBLAS_CallFromC = 0;

22
frame/compat/cblas/src/cblas_csyr2k.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
*
@@ -15,11 +11,11 @@
#include "cblas.h"
#include "cblas_f77.h"
void cblas_csyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
const void *alpha, const void *A, const int lda,
const void *B, const int ldb, const void *beta,
void *C, const int ldc)
void cblas_csyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo,
enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K,
const void *alpha, const void *A, f77_int lda,
const void *B, f77_int ldb, const void *beta,
void *C, f77_int ldc)
{
char UL, TR;
#ifdef F77_CHAR
@@ -75,8 +71,8 @@ void cblas_csyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
F77_TR = C2F_CHAR(&TR);
#endif
F77_csyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda,
B, &F77_ldb, beta, C, &F77_ldc);
F77_csyr2k(F77_UL, F77_TR, &F77_N, &F77_K, (scomplex*)alpha, (scomplex*)A, &F77_lda,
(scomplex*)B, &F77_ldb, (scomplex*)beta, (scomplex*)C, &F77_ldc);
} else if (Order == CblasRowMajor)
{
RowMajorStrg = 1;
@@ -105,7 +101,7 @@ void cblas_csyr2k(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
F77_TR = C2F_CHAR(&TR);
#endif
F77_csyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
F77_csyr2k(F77_UL, F77_TR, &F77_N, &F77_K, (scomplex*)alpha, (scomplex*)A, &F77_lda, (scomplex*)B, &F77_ldb, (scomplex*)beta, (scomplex*)C, &F77_ldc);
}
else cblas_xerbla(1, "cblas_csyr2k", "Illegal Order setting, %d\n", Order);
CBLAS_CallFromC = 0;

22
frame/compat/cblas/src/cblas_csyrk.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
*
@@ -15,10 +11,10 @@
#include "cblas.h"
#include "cblas_f77.h"
void cblas_csyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE Trans, const int N, const int K,
const void *alpha, const void *A, const int lda,
const void *beta, void *C, const int ldc)
void cblas_csyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo,
enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K,
const void *alpha, const void *A, f77_int lda,
const void *beta, void *C, f77_int ldc)
{
char UL, TR;
#ifdef F77_CHAR
@@ -73,8 +69,8 @@ void cblas_csyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
F77_TR = C2F_CHAR(&TR);
#endif
F77_csyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda,
beta, C, &F77_ldc);
F77_csyrk(F77_UL, F77_TR, &F77_N, &F77_K, (scomplex*)alpha, (scomplex*)A, &F77_lda,
(scomplex*)beta, (scomplex*)C, &F77_ldc);
} else if (Order == CblasRowMajor)
{
RowMajorStrg = 1;
@@ -103,8 +99,8 @@ void cblas_csyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO Uplo,
F77_TR = C2F_CHAR(&TR);
#endif
F77_csyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda,
beta, C, &F77_ldc);
F77_csyrk(F77_UL, F77_TR, &F77_N, &F77_K, (scomplex*)alpha, (scomplex*)A, &F77_lda,
(scomplex*)beta, (scomplex*)C, &F77_ldc);
}
else cblas_xerbla(1, "cblas_csyrk", "Illegal Order setting, %d\n", Order);
CBLAS_CallFromC = 0;

18
frame/compat/cblas/src/cblas_ctbmv.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_ctbmv.c
@@ -13,10 +9,10 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_ctbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const int K, const void *A, const int lda,
void *X, const int incX)
void cblas_ctbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag,
f77_int N, f77_int K, const void *A, f77_int lda,
void *X, f77_int incX)
{
char TA;
char UL;
@@ -78,7 +74,7 @@ void cblas_ctbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_TA = C2F_CHAR(&TA);
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
F77_ctbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, (scomplex*)A, &F77_lda, (scomplex*)X,
&F77_incX);
}
else if (order == CblasRowMajor)
@@ -141,7 +137,7 @@ void cblas_ctbmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
F77_ctbmv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, (scomplex*)A, &F77_lda, (scomplex*)X,
&F77_incX);
if (TransA == CblasConjTrans)

18
frame/compat/cblas/src/cblas_ctbsv.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_ctbsv.c
@@ -13,10 +9,10 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_ctbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const int K, const void *A, const int lda,
void *X, const int incX)
void cblas_ctbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag,
f77_int N, f77_int K, const void *A, f77_int lda,
void *X, f77_int incX)
{
char TA;
char UL;
@@ -78,7 +74,7 @@ void cblas_ctbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_TA = C2F_CHAR(&TA);
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
F77_ctbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, (scomplex*)A, &F77_lda, (scomplex*)X,
&F77_incX);
}
else if (order == CblasRowMajor)
@@ -145,7 +141,7 @@ void cblas_ctbsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, A, &F77_lda, X,
F77_ctbsv( F77_UL, F77_TA, F77_DI, &F77_N, &F77_K, (scomplex*)A, &F77_lda, (scomplex*)X,
&F77_incX);
if (TransA == CblasConjTrans)

16
frame/compat/cblas/src/cblas_ctpmv.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_ctpmv.c
@@ -13,9 +9,9 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_ctpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const void *Ap, void *X, const int incX)
void cblas_ctpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag,
f77_int N, const void *Ap, void *X, f77_int incX)
{
char TA;
char UL;
@@ -75,7 +71,7 @@ void cblas_ctpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_TA = C2F_CHAR(&TA);
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X, &F77_incX);
F77_ctpmv( F77_UL, F77_TA, F77_DI, &F77_N, (scomplex*)Ap, (scomplex*)X, &F77_incX);
}
else if (order == CblasRowMajor)
{
@@ -137,7 +133,7 @@ void cblas_ctpmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
F77_ctpmv( F77_UL, F77_TA, F77_DI, &F77_N, (scomplex*)Ap, (scomplex*)X,&F77_incX);
if (TransA == CblasConjTrans)
{
if (N > 0)

16
frame/compat/cblas/src/cblas_ctpsv.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_ctpsv.c
@@ -13,9 +9,9 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_ctpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const void *Ap, void *X, const int incX)
void cblas_ctpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag,
f77_int N, const void *Ap, void *X, f77_int incX)
{
char TA;
char UL;
@@ -75,7 +71,7 @@ void cblas_ctpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_TA = C2F_CHAR(&TA);
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X, &F77_incX);
F77_ctpsv( F77_UL, F77_TA, F77_DI, &F77_N, (scomplex*)Ap, (scomplex*)X, &F77_incX);
}
else if (order == CblasRowMajor)
{
@@ -141,7 +137,7 @@ void cblas_ctpsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctpsv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
F77_ctpsv( F77_UL, F77_TA, F77_DI, &F77_N, (scomplex*)Ap, (scomplex*)X,&F77_incX);
if (TransA == CblasConjTrans)
{

20
frame/compat/cblas/src/cblas_ctrmm.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
*
@@ -15,11 +11,11 @@
#include "cblas.h"
#include "cblas_f77.h"
void cblas_ctrmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
const enum CBLAS_DIAG Diag, const int M, const int N,
const void *alpha, const void *A, const int lda,
void *B, const int ldb)
void cblas_ctrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side,
enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
enum CBLAS_DIAG Diag, f77_int M, f77_int N,
const void *alpha, const void *A, f77_int lda,
void *B, f77_int ldb)
{
char UL, TA, SD, DI;
#ifdef F77_CHAR
@@ -89,7 +85,7 @@ void cblas_ctrmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, alpha, A, &F77_lda, B, &F77_ldb);
F77_ctrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, (scomplex*)alpha, (scomplex*)A, &F77_lda, (scomplex*)B, &F77_ldb);
} else if (Order == CblasRowMajor)
{
RowMajorStrg = 1;
@@ -141,7 +137,7 @@ void cblas_ctrmm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb);
F77_ctrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, (scomplex*)alpha, (scomplex*)A, &F77_lda, (scomplex*)B, &F77_ldb);
}
else cblas_xerbla(1, "cblas_ctrmm", "Illegal Order setting, %d\n", Order);
CBLAS_CallFromC = 0;

18
frame/compat/cblas/src/cblas_ctrmv.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_ctrmv.c
@@ -13,10 +9,10 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_ctrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const void *A, const int lda,
void *X, const int incX)
void cblas_ctrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag,
f77_int N, const void *A, f77_int lda,
void *X, f77_int incX)
{
char TA;
@@ -78,7 +74,7 @@ void cblas_ctrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_TA = C2F_CHAR(&TA);
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctrmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
F77_ctrmv( F77_UL, F77_TA, F77_DI, &F77_N, (scomplex*)A, &F77_lda, (scomplex*)X,
&F77_incX);
}
else if (order == CblasRowMajor)
@@ -139,7 +135,7 @@ void cblas_ctrmv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_TA = C2F_CHAR(&TA);
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctrmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
F77_ctrmv( F77_UL, F77_TA, F77_DI, &F77_N, (scomplex*)A, &F77_lda, (scomplex*)X,
&F77_incX);
if (TransA == CblasConjTrans)
{

20
frame/compat/cblas/src/cblas_ctrsm.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
*
@@ -15,11 +11,11 @@
#include "cblas.h"
#include "cblas_f77.h"
void cblas_ctrsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
const enum CBLAS_DIAG Diag, const int M, const int N,
const void *alpha, const void *A, const int lda,
void *B, const int ldb)
void cblas_ctrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side,
enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA,
enum CBLAS_DIAG Diag, f77_int M, f77_int N,
const void *alpha, const void *A, f77_int lda,
void *B, f77_int ldb)
{
char UL, TA, SD, DI;
#ifdef F77_CHAR
@@ -151,8 +147,8 @@ void cblas_ctrsm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
#endif
F77_ctrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A,
&F77_lda, B, &F77_ldb);
F77_ctrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, (scomplex*)alpha, (scomplex*)A,
&F77_lda, (scomplex*)B, &F77_ldb);
}
else cblas_xerbla(1, "cblas_ctrsm", "Illegal Order setting, %d\n", Order);
CBLAS_CallFromC = 0;

18
frame/compat/cblas/src/cblas_ctrsv.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_ctrsv.c
@@ -13,10 +9,10 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_ctrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
const enum CBLAS_TRANSPOSE TransA, const enum CBLAS_DIAG Diag,
const int N, const void *A, const int lda, void *X,
const int incX)
void cblas_ctrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag,
f77_int N, const void *A, f77_int lda, void *X,
f77_int incX)
{
char TA;
char UL;
@@ -77,7 +73,7 @@ void cblas_ctrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_TA = C2F_CHAR(&TA);
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctrsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
F77_ctrsv( F77_UL, F77_TA, F77_DI, &F77_N, (scomplex*)A, &F77_lda, (scomplex*)X,
&F77_incX);
}
else if (order == CblasRowMajor)
@@ -140,7 +136,7 @@ void cblas_ctrsv(const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
F77_TA = C2F_CHAR(&TA);
F77_DI = C2F_CHAR(&DI);
#endif
F77_ctrsv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
F77_ctrsv( F77_UL, F77_TA, F77_DI, &F77_N, (scomplex*)A, &F77_lda, (scomplex*)X,
&F77_incX);
if (TransA == CblasConjTrans)
{

8
frame/compat/cblas/src/cblas_dasum.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_dasum.c
@@ -15,7 +11,7 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
double cblas_dasum( const int N, const double *X, const int incX)
double cblas_dasum( f77_int N, const double *X, f77_int incX)
{
double asum;
#ifdef F77_INT

10
frame/compat/cblas/src/cblas_daxpy.c
View File

@@ -1,8 +1,4 @@
#include "bli_config.h"
#include "bli_config_macro_defs.h"
#include "bli_system.h"
#include "bli_type_defs.h"
#include "bli_cblas.h"
#include "blis.h"
#ifdef BLIS_ENABLE_CBLAS
/*
* cblas_daxpy.c
@@ -14,8 +10,8 @@
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_daxpy( const int N, const double alpha, const double *X,
const int incX, double *Y, const int incY)
void cblas_daxpy( f77_int N, double alpha, const double *X,
f77_int incX, double *Y, f77_int incY)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;

Some files were not shown because too many files have changed in this diff Show More