Update gemv.c
This commit is contained in:
parent
794ff8b912
commit
c3f6971ed3
|
@ -189,7 +189,7 @@ fprintf(stderr,"interface for CBLAS_?GEMV starting, order=%d trans=%d m=%ld n=%l
|
||||||
|
|
||||||
if (info >= 0) {
|
if (info >= 0) {
|
||||||
fprintf(stderr,"CBLAS_?GEMV trying to call XERBLA\n");
|
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);
|
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;
|
return;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue