Update c_sblas2.c
This commit is contained in:
parent
4ec55143f5
commit
82eda82d3d
|
@ -30,7 +30,7 @@ void F77_sgemv(blasint *order, char *transp, blasint *m, blasint *n, float *alph
|
||||||
free(A);
|
free(A);
|
||||||
}
|
}
|
||||||
else if (*order == TEST_COL_MJR) {
|
else if (*order == TEST_COL_MJR) {
|
||||||
fprintf(stderr,"calling cblas_sgemv COL %s %d %ld %ld from c_cblas2.c\n, transp,trans,*m,*n");
|
fprintf(stderr,"calling cblas_sgemv COL %s %d %ld %ld from c_cblas2.c\n", transp,trans,*m,*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 );
|
||||||
fprintf(stderr,"calling cblas_sgemv COL from c_cblas2.c done\n");
|
fprintf(stderr,"calling cblas_sgemv COL from c_cblas2.c done\n");
|
||||||
|
|
Loading…
Reference in New Issue