floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use blasint

This commit is contained in:
Martin Kroeker 2021-04-11 23:04:44 +02:00 committed by GitHub
parent 67d129f3f0
commit 7013fa3d12
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 46 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

92
ctest/c_sblas2.c
View File

@ -8,12 +8,12 @@
#include "common.h" #include "common.h"
#include "cblas_test.h" #include "cblas_test.h"
void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha, void F77_sgemv(int *order, char *transp, blasint *m, blasint *n, float *alpha,
float *a, int *lda, float *x, int *incx, float *beta, float *a, blasint *lda, float *x, blasint *incx, float *beta,
float *y, int *incy ) { float *y, blasint *incy ) {
float *A; float *A;
int i,j,LDA; blasint i,j,LDA;
enum CBLAS_TRANSPOSE trans; enum CBLAS_TRANSPOSE trans;
get_transpose_type(transp, &trans); get_transpose_type(transp, &trans);
@ -35,11 +35,11 @@ void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha,
*m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy ); *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
} }
void F77_sger(int *order, int *m, int *n, float *alpha, float *x, int *incx, void F77_sger(int *order, blasint *m, blasint *n, float *alpha, float *x, blasint *incx,
float *y, int *incy, float *a, int *lda ) { float *y, blasint *incy, float *a, blasint *lda ) {
float *A; float *A;
int i,j,LDA; blasint i,j,LDA;
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *n+1; LDA = *n+1;
@ -61,9 +61,9 @@ void F77_sger(int *order, int *m, int *n, float *alpha, float *x, int *incx,
} }
void F77_strmv(int *order, char *uplow, char *transp, char *diagn, void F77_strmv(int *order, char *uplow, char *transp, char *diagn,
int *n, float *a, int *lda, float *x, int *incx) { blasint *n, float *a, blasint *lda, float *x, blasint *incx) {
float *A; float *A;
int i,j,LDA; blasint i,j,LDA;
enum CBLAS_TRANSPOSE trans; enum CBLAS_TRANSPOSE trans;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
@ -89,9 +89,9 @@ void F77_strmv(int *order, char *uplow, char *transp, char *diagn,
} }
void F77_strsv(int *order, char *uplow, char *transp, char *diagn, void F77_strsv(int *order, char *uplow, char *transp, char *diagn,
int *n, float *a, int *lda, float *x, int *incx ) { blasint *n, float *a, blasint *lda, float *x, blasint *incx ) {
float *A; float *A;
int i,j,LDA; blasint i,j,LDA;
enum CBLAS_TRANSPOSE trans; enum CBLAS_TRANSPOSE trans;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
@ -112,11 +112,11 @@ void F77_strsv(int *order, char *uplow, char *transp, char *diagn,
else else
cblas_strsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); cblas_strsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx );
} }
void F77_ssymv(int *order, char *uplow, int *n, float *alpha, float *a, void F77_ssymv(int *order, char *uplow, blasint *n, float *alpha, float *a,
int *lda, float *x, int *incx, float *beta, float *y, blasint *lda, float *x, blasint *incx, float *beta, float *y,
int *incy) { blasint *incy) {
float *A; float *A;
int i,j,LDA; blasint i,j,LDA;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
@ -136,10 +136,10 @@ void F77_ssymv(int *order, char *uplow, int *n, float *alpha, float *a,
*beta, y, *incy ); *beta, y, *incy );
} }
void F77_ssyr(int *order, char *uplow, int *n, float *alpha, float *x, void F77_ssyr(int *order, char *uplow, blasint *n, float *alpha, float *x,
int *incx, float *a, int *lda) { blasint *incx, float *a, blasint *lda) {
float *A; float *A;
int i,j,LDA; blasint i,j,LDA;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
@ -160,10 +160,10 @@ void F77_ssyr(int *order, char *uplow, int *n, float *alpha, float *x,
cblas_ssyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda); cblas_ssyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda);
} }
void F77_ssyr2(int *order, char *uplow, int *n, float *alpha, float *x, void F77_ssyr2(int *order, char *uplow, blasint *n, float *alpha, float *x,
int *incx, float *y, int *incy, float *a, int *lda) { blasint *incx, float *y, blasint *incy, float *a, blasint *lda) {
float *A; float *A;
int i,j,LDA; blasint i,j,LDA;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
@ -184,12 +184,12 @@ void F77_ssyr2(int *order, char *uplow, int *n, float *alpha, float *x,
cblas_ssyr2(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda); cblas_ssyr2(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda);
} }
void F77_sgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, void F77_sgbmv(int *order, char *transp, blasint *m, blasint *n, blasint *kl, blasint *ku,
float *alpha, float *a, int *lda, float *x, int *incx, float *alpha, float *a, blasint *lda, float *x, blasint *incx,
float *beta, float *y, int *incy ) { float *beta, float *y, blasint *incy ) {
float *A; float *A;
int i,irow,j,jcol,LDA; blasint i,irow,j,jcol,LDA;
enum CBLAS_TRANSPOSE trans; enum CBLAS_TRANSPOSE trans;
get_transpose_type(transp, &trans); get_transpose_type(transp, &trans);
@ -223,9 +223,9 @@ void F77_sgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku,
} }
void F77_stbmv(int *order, char *uplow, char *transp, char *diagn, void F77_stbmv(int *order, char *uplow, char *transp, char *diagn,
int *n, int *k, float *a, int *lda, float *x, int *incx) { blasint *n, blasint *k, float *a, blasint *lda, float *x, blasint *incx) {
float *A; float *A;
int irow, jcol, i, j, LDA; blasint irow, jcol, i, j, LDA;
enum CBLAS_TRANSPOSE trans; enum CBLAS_TRANSPOSE trans;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
@ -269,9 +269,9 @@ void F77_stbmv(int *order, char *uplow, char *transp, char *diagn,
} }
void F77_stbsv(int *order, char *uplow, char *transp, char *diagn, void F77_stbsv(int *order, char *uplow, char *transp, char *diagn,
int *n, int *k, float *a, int *lda, float *x, int *incx) { blasint *n, blasint *k, float *a, blasint *lda, float *x, blasint *incx) {
float *A; float *A;
int irow, jcol, i, j, LDA; blasint irow, jcol, i, j, LDA;
enum CBLAS_TRANSPOSE trans; enum CBLAS_TRANSPOSE trans;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
@ -314,11 +314,11 @@ void F77_stbsv(int *order, char *uplow, char *transp, char *diagn,
cblas_stbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); cblas_stbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);
} }
void F77_ssbmv(int *order, char *uplow, int *n, int *k, float *alpha, void F77_ssbmv(int *order, char *uplow, blasint *n, blasint *k, float *alpha,
float *a, int *lda, float *x, int *incx, float *beta, float *a, blasint *lda, float *x, blasint *incx, float *beta,
float *y, int *incy) { float *y, blasint *incy) {
float *A; float *A;
int i,j,irow,jcol,LDA; blasint i,j,irow,jcol,LDA;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
@ -359,10 +359,10 @@ void F77_ssbmv(int *order, char *uplow, int *n, int *k, float *alpha,
*beta, y, *incy ); *beta, y, *incy );
} }
void F77_sspmv(int *order, char *uplow, int *n, float *alpha, float *ap, void F77_sspmv(int *order, char *uplow, blasint *n, float *alpha, float *ap,
float *x, int *incx, float *beta, float *y, int *incy) { float *x, blasint *incx, float *beta, float *y, blasint *incy) {
float *A,*AP; float *A,*AP;
int i,j,k,LDA; blasint i,j,k,LDA;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
@ -397,9 +397,9 @@ void F77_sspmv(int *order, char *uplow, int *n, float *alpha, float *ap,
} }
void F77_stpmv(int *order, char *uplow, char *transp, char *diagn, void F77_stpmv(int *order, char *uplow, char *transp, char *diagn,
int *n, float *ap, float *x, int *incx) { blasint *n, float *ap, float *x, blasint *incx) {
float *A, *AP; float *A, *AP;
int i, j, k, LDA; blasint i, j, k, LDA;
enum CBLAS_TRANSPOSE trans; enum CBLAS_TRANSPOSE trans;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
@ -436,9 +436,9 @@ void F77_stpmv(int *order, char *uplow, char *transp, char *diagn,
} }
void F77_stpsv(int *order, char *uplow, char *transp, char *diagn, void F77_stpsv(int *order, char *uplow, char *transp, char *diagn,
int *n, float *ap, float *x, int *incx) { blasint *n, float *ap, float *x, blasint *incx) {
float *A, *AP; float *A, *AP;
int i, j, k, LDA; blasint i, j, k, LDA;
enum CBLAS_TRANSPOSE trans; enum CBLAS_TRANSPOSE trans;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
@ -475,10 +475,10 @@ void F77_stpsv(int *order, char *uplow, char *transp, char *diagn,
cblas_stpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); cblas_stpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
} }
void F77_sspr(int *order, char *uplow, int *n, float *alpha, float *x, void F77_sspr(int *order, char *uplow, blasint *n, float *alpha, float *x,
int *incx, float *ap ){ blasint *incx, float *ap ){
float *A, *AP; float *A, *AP;
int i,j,k,LDA; blasint i,j,k,LDA;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
@ -526,10 +526,10 @@ void F77_sspr(int *order, char *uplow, int *n, float *alpha, float *x,
cblas_sspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap ); cblas_sspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap );
} }
void F77_sspr2(int *order, char *uplow, int *n, float *alpha, float *x, void F77_sspr2(int *order, char *uplow, blasint *n, float *alpha, float *x,
int *incx, float *y, int *incy, float *ap ){ blasint *incx, float *y, blasint *incy, float *ap ){
float *A, *AP; float *A, *AP;
int i,j,k,LDA; blasint i,j,k,LDA;
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);