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

Update c_sblas2.c

This commit is contained in:
Martin Kroeker 2021-04-14 15:24:34 +02:00 committed by GitHub
parent 87ed292451
commit 38e3e790e9
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
ctest/c_sblas2.c
View File

@ -8,7 +8,7 @@
#include "common.h"
#include "cblas_test.h"
void F77_sgemv(int *order, char *transp, blasint *m, blasint *n, float *alpha,
void F77_sgemv(blasint *order, char *transp, blasint *m, blasint *n, float *alpha,
float *a, blasint *lda, float *x, blasint *incx, float *beta,
float *y, blasint *incy ) {
@ -35,7 +35,7 @@ void F77_sgemv(int *order, char *transp, blasint *m, blasint *n, float *alpha,
*m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
}
void F77_sger(int *order, blasint *m, blasint *n, float *alpha, float *x, blasint *incx,
void F77_sger(blasint *order, blasint *m, blasint *n, float *alpha, float *x, blasint *incx,
float *y, blasint *incy, float *a, blasint *lda ) {
float *A;
@ -60,7 +60,7 @@ void F77_sger(int *order, blasint *m, blasint *n, float *alpha, float *x, blasin
cblas_sger( CblasColMajor, *m, *n, *alpha, x, *incx, y, *incy, a, *lda );
}
void F77_strmv(int *order, char *uplow, char *transp, char *diagn,
void F77_strmv(blasint *order, char *uplow, char *transp, char *diagn,
blasint *n, float *a, blasint *lda, float *x, blasint *incx) {
float *A;
blasint i,j,LDA;
@ -88,7 +88,7 @@ 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(blasint *order, char *uplow, char *transp, char *diagn,
blasint *n, float *a, blasint *lda, float *x, blasint *incx ) {
float *A;
blasint i,j,LDA;
@ -112,7 +112,7 @@ void F77_strsv(int *order, char *uplow, char *transp, char *diagn,
else
cblas_strsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx );
}
void F77_ssymv(int *order, char *uplow, blasint *n, float *alpha, float *a,
void F77_ssymv(blasint *order, char *uplow, blasint *n, float *alpha, float *a,
blasint *lda, float *x, blasint *incx, float *beta, float *y,
blasint *incy) {
float *A;
@ -136,7 +136,7 @@ void F77_ssymv(int *order, char *uplow, blasint *n, float *alpha, float *a,
*beta, y, *incy );
}
void F77_ssyr(int *order, char *uplow, blasint *n, float *alpha, float *x,
void F77_ssyr(blasint *order, char *uplow, blasint *n, float *alpha, float *x,
blasint *incx, float *a, blasint *lda) {
float *A;
blasint i,j,LDA;
@ -160,7 +160,7 @@ void F77_ssyr(int *order, char *uplow, blasint *n, float *alpha, float *x,
cblas_ssyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda);
}
void F77_ssyr2(int *order, char *uplow, blasint *n, float *alpha, float *x,
void F77_ssyr2(blasint *order, char *uplow, blasint *n, float *alpha, float *x,
blasint *incx, float *y, blasint *incy, float *a, blasint *lda) {
float *A;
blasint i,j,LDA;
@ -184,7 +184,7 @@ void F77_ssyr2(int *order, char *uplow, blasint *n, float *alpha, float *x,
cblas_ssyr2(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda);
}
void F77_sgbmv(int *order, char *transp, blasint *m, blasint *n, blasint *kl, blasint *ku,
void F77_sgbmv(blasint *order, char *transp, blasint *m, blasint *n, blasint *kl, blasint *ku,
float *alpha, float *a, blasint *lda, float *x, blasint *incx,
float *beta, float *y, blasint *incy ) {
@ -222,7 +222,7 @@ void F77_sgbmv(int *order, char *transp, blasint *m, blasint *n, blasint *kl, bl
a, *lda, x, *incx, *beta, y, *incy );
}
void F77_stbmv(int *order, char *uplow, char *transp, char *diagn,
void F77_stbmv(blasint *order, char *uplow, char *transp, char *diagn,
blasint *n, blasint *k, float *a, blasint *lda, float *x, blasint *incx) {
float *A;
blasint irow, jcol, i, j, LDA;
@ -268,7 +268,7 @@ void F77_stbmv(int *order, char *uplow, char *transp, char *diagn,
cblas_stbmv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);
}
void F77_stbsv(int *order, char *uplow, char *transp, char *diagn,
void F77_stbsv(blasint *order, char *uplow, char *transp, char *diagn,
blasint *n, blasint *k, float *a, blasint *lda, float *x, blasint *incx) {
float *A;
blasint irow, jcol, i, j, LDA;
@ -314,7 +314,7 @@ void F77_stbsv(int *order, char *uplow, char *transp, char *diagn,
cblas_stbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx);
}
void F77_ssbmv(int *order, char *uplow, blasint *n, blasint *k, float *alpha,
void F77_ssbmv(blasint *order, char *uplow, blasint *n, blasint *k, float *alpha,
float *a, blasint *lda, float *x, blasint *incx, float *beta,
float *y, blasint *incy) {
float *A;
@ -359,7 +359,7 @@ void F77_ssbmv(int *order, char *uplow, blasint *n, blasint *k, float *alpha,
*beta, y, *incy );
}
void F77_sspmv(int *order, char *uplow, blasint *n, float *alpha, float *ap,
void F77_sspmv(blasint *order, char *uplow, blasint *n, float *alpha, float *ap,
float *x, blasint *incx, float *beta, float *y, blasint *incy) {
float *A,*AP;
blasint i,j,k,LDA;
@ -396,7 +396,7 @@ void F77_sspmv(int *order, char *uplow, blasint *n, float *alpha, float *ap,
*incy );
}
void F77_stpmv(int *order, char *uplow, char *transp, char *diagn,
void F77_stpmv(blasint *order, char *uplow, char *transp, char *diagn,
blasint *n, float *ap, float *x, blasint *incx) {
float *A, *AP;
blasint i, j, k, LDA;
@ -435,7 +435,7 @@ void F77_stpmv(int *order, char *uplow, char *transp, char *diagn,
cblas_stpmv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
}
void F77_stpsv(int *order, char *uplow, char *transp, char *diagn,
void F77_stpsv(blasint *order, char *uplow, char *transp, char *diagn,
blasint *n, float *ap, float *x, blasint *incx) {
float *A, *AP;
blasint i, j, k, LDA;
@ -475,7 +475,7 @@ void F77_stpsv(int *order, char *uplow, char *transp, char *diagn,
cblas_stpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
}
void F77_sspr(int *order, char *uplow, blasint *n, float *alpha, float *x,
void F77_sspr(blasint *order, char *uplow, blasint *n, float *alpha, float *x,
blasint *incx, float *ap ){
float *A, *AP;
blasint i,j,k,LDA;
@ -526,7 +526,7 @@ void F77_sspr(int *order, char *uplow, blasint *n, float *alpha, float *x,
cblas_sspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap );
}
void F77_sspr2(int *order, char *uplow, blasint *n, float *alpha, float *x,
void F77_sspr2(blasint *order, char *uplow, blasint *n, float *alpha, float *x,
blasint *incx, float *y, blasint *incy, float *ap ){
float *A, *AP;
blasint i,j,k,LDA;