Update c_sblas2.c
This commit is contained in:
parent
db7a17b9e1
commit
4ec55143f5
|
@ -5,7 +5,6 @@
|
|||
* Modified by T. H. Do, 1/23/98, SGI/CRAY Research.
|
||||
*/
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
#include "common.h"
|
||||
#include "cblas_test.h"
|
||||
|
||||
|
@ -31,7 +30,7 @@ void F77_sgemv(blasint *order, char *transp, blasint *m, blasint *n, float *alph
|
|||
free(A);
|
||||
}
|
||||
else if (*order == TEST_COL_MJR) {
|
||||
fprintf(stderr,"calling cblas_sgemv COL from c_cblas2.c\n");
|
||||
fprintf(stderr,"calling cblas_sgemv COL %s %d %ld %ld from c_cblas2.c\n, transp,trans,*m,*n");
|
||||
cblas_sgemv( CblasColMajor, trans,
|
||||
*m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy );
|
||||
fprintf(stderr,"calling cblas_sgemv COL from c_cblas2.c done\n");
|
||||
|
|
Loading…
Reference in New Issue