floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update gemv.c

This commit is contained in:
Martin Kroeker 2021-04-17 12:57:42 +02:00 committed by GitHub
parent 4b3a8bb35c
commit 000acd4b15
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
interface/gemv.c
View File

@ -113,7 +113,8 @@ void NAME(char *TRANS, blasint *M, blasint *N,
if (i < 0) info = 1; if (i < 0) info = 1;
trans = i; trans = i;
fprintf(stderr,"interface for ?GEMV starting, order=%d trans=%d m=%ld n=%ld\n",order,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){ if (info != 0){
BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)); BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
return; return;
@ -183,6 +184,8 @@ void CNAME(enum CBLAS_ORDER order,
if (trans < 0) info = 1; if (trans < 0) info = 1;
} }
fprintf(stderr,"interface for CBLAS_?GEMV starting, order=%d trans=%d m=%ld n=%ld\n",order,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) { if (info >= 0) {
fprintf(stderr,"CBLAS_?GEMV trying to call XERBLA\n"); fprintf(stderr,"CBLAS_?GEMV trying to call XERBLA\n");
@ -190,8 +193,7 @@ void CNAME(enum CBLAS_ORDER order,
return; return;
} }
fprintf(stderr,"interface for CBLAS_?GEMV starting, order=%d trans=%d m=%ld n=%ld\n",order,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);
#endif #endif
if ((m==0) || (n==0)) return; if ((m==0) || (n==0)) return;