mirror of
https://github.com/amd/blis.git
synced 2026-05-11 01:30:00 +00:00
Added BLAS error checking to compatibility layer.
Details: - Added frame/compat/check directory, which now houses companion _check() routines for each of the BLAS wrappers in frame/compat. These _check() routines are called from the compatibility wrappers and mimic the error-checking present in the netlib BLAS. - Edited bla_xerbla.c so that xerbla() translates the operation string to uppercase before printing. - Redefined util routines in frame/compat/f2c/util in terms of level0 macros. - Added prototypes for util routines, f2c routines, lsame(), and xerbla(). - Commented out prototypes in test/test_*.c since Fortran integers are now int64_t by default (and the prototypes that were present in the files used int). - Removed redundant #include "bli_f2c.h" in bli_?lamch.c and bli_lsame.c, since blis.h was already being included. - Other minor changes to code in frame/compat/f2c.
This commit is contained in:
@@ -58,6 +58,16 @@ void PASTEF77(ch,blasname)( \
|
||||
inc_t incx0; \
|
||||
inc_t rs_a, cs_a; \
|
||||
ftype one; \
|
||||
\
|
||||
/* Perform BLAS parameter checking. */ \
|
||||
PASTEBLACHK(blasname)( MKSTR(ch), \
|
||||
MKSTR(blasname), \
|
||||
uploa, \
|
||||
transa, \
|
||||
diaga, \
|
||||
m, \
|
||||
lda, \
|
||||
incx ); \
|
||||
\
|
||||
/* Initialize a local scalar since we don't assume that the global
|
||||
scalar constants have been initialized yet. */ \
|
||||
|
||||
Reference in New Issue
Block a user