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-15 08:49:26 +02:00 committed by GitHub
parent c21b4033d5
commit db7a17b9e1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ctest/c_sblas2.c
View File

@ -5,6 +5,7 @@
* Modified by T. H. Do, 1/23/98, SGI/CRAY Research. * Modified by T. H. Do, 1/23/98, SGI/CRAY Research.
*/ */
#include <stdlib.h> #include <stdlib.h>
#include <stdio.h>
#include "common.h" #include "common.h"
#include "cblas_test.h" #include "cblas_test.h"
@ -23,16 +24,23 @@ void F77_sgemv(blasint *order, char *transp, blasint *m, blasint *n, float *alph
for( i=0; i<*m; i++ ) for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
A[ LDA*i+j ]=a[ (*lda)*j+i ]; A[ LDA*i+j ]=a[ (*lda)*j+i ];
fprintf(stderr,"calling cblas_sgemv ROW from c_cblas2.c\n");
cblas_sgemv( CblasRowMajor, trans, cblas_sgemv( CblasRowMajor, trans,
*m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
fprintf(stderr,"calling cblas_sgemv ROW from c_cblas2.c done\n");
free(A); free(A);
} }
else if (*order == TEST_COL_MJR) else if (*order == TEST_COL_MJR) {
fprintf(stderr,"calling cblas_sgemv COL from c_cblas2.c\n");
cblas_sgemv( CblasColMajor, trans, cblas_sgemv( CblasColMajor, trans,
*m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy ); *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
else fprintf(stderr,"calling cblas_sgemv COL from c_cblas2.c done\n");
} else {
fprintf(stderr,"calling cblas_sgemv UNDEF from c_cblas2.c\n");
cblas_sgemv( UNDEFINED, trans, cblas_sgemv( UNDEFINED, trans,
*m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy ); *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
fprintf(stderr,"calling cblas_sgemv UNDEF from c_cblas2.c done\n");
}
} }
void F77_sger(blasint *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,