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:
Field G. Van Zee
2013-07-18 18:04:34 -05:00
parent 4e80ad28c9
commit 0680916fdd
125 changed files with 4470 additions and 854 deletions

View File

@@ -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. */ \