Browse Source

Update c_sblas2.c

pull/3166/head
Martin Kroeker GitHub 5 years ago
parent
commit
4ec55143f5
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 2 deletions
  1. +1
    -2
      ctest/c_sblas2.c

+ 1
- 2
ctest/c_sblas2.c View File

@@ -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…
Cancel
Save