Update gemv.c
This commit is contained in:
parent
000acd4b15
commit
bd29308426
|
@ -113,7 +113,7 @@ void NAME(char *TRANS, blasint *M, blasint *N,
|
|||
if (i < 0) info = 1;
|
||||
|
||||
trans = i;
|
||||
fprintf(stderr,"interface for ?GEMV starting, order=%d trans=%d m=%ld n=%ld\n",order,trans,m,n);
|
||||
fprintf(stderr,"interface for ?GEMV starting, trans=%d m=%ld n=%ld\n",trans,m,n);
|
||||
fprintf(stderr,"SCAL_K is %x SSCAL_K %x DSCAL_K %x CSCAL_K %x ZSCAL_K %x\n",SCAL_K,SSCAL_K,DSCAL_K,CSCAL_K, ZSCAL_K);
|
||||
if (info != 0){
|
||||
BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
|
||||
|
|
Loading…
Reference in New Issue