Update gemv.c

This commit is contained in:
Martin Kroeker 2021-04-18 12:16:14 +02:00 committed by GitHub
parent e2c60eb90e
commit 794ff8b912
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions

View File

@ -189,7 +189,7 @@ fprintf(stderr,"interface for CBLAS_?GEMV starting, order=%d trans=%d m=%ld n=%l
if (info >= 0) {
fprintf(stderr,"CBLAS_?GEMV trying to call XERBLA\n");
BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
//BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
fprintf(stderr,"after xerbla, 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);
return;
}