Simon MaertensandClaude Fable 5
cf265acf5a
The error-exit testers only exercised the option arguments (Side, Uplo, Trans, Diag) with CblasColMajor, so the diagnostics in the row-major branches of the level-3 routines were never tested. Mirror every column-major option-argument test under CblasRowMajor, add the missing row-major N/K dimension tests for the syrk/herk/syr2k/her2k/ skewsyr2k families, turn the duplicated column-major blocks in the spr/hpr sections into the intended row-major tests, and make the mislabelled gemmtr ldb "row major" tests actually use CblasRowMajor. The new tests expose wrong INFO values in the row-major branches of cgemm (TransB) and the syrk/syr2k/herk/skewsyr2k families (Uplo), and silently accepted invalid Trans values in the row-major branches of the complex herk/her2k/syrk/syr2k routines; these are fixed in the following commits. Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
888 lines
38 KiB
C
888 lines
38 KiB
C
#include <stdio.h>
|
|
#include <string.h>
|
|
#include "cblas.h"
|
|
#include "cblas_test.h"
|
|
|
|
CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
|
|
CBLAS_INT link_xerbla=TRUE;
|
|
char *cblas_rout;
|
|
|
|
#ifdef F77_Char
|
|
void F77_xerbla(F77_Char F77_srname, void *vinfo
|
|
#else
|
|
void F77_xerbla(char *srname, void *vinfo
|
|
#endif
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
void chkxer(void) {
|
|
extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
|
|
extern CBLAS_INT link_xerbla;
|
|
extern char *cblas_rout;
|
|
if (cblas_lerr == 1 ) {
|
|
printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", (int) cblas_info, cblas_rout);
|
|
cblas_ok = 0 ;
|
|
}
|
|
cblas_lerr = 1 ;
|
|
}
|
|
|
|
void F77_s2chke(char *rout
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN rout_len
|
|
#endif
|
|
) {
|
|
char *sf = ( rout ) ;
|
|
float A[2] = {0.0,0.0},
|
|
X[2] = {0.0,0.0},
|
|
Y[2] = {0.0,0.0},
|
|
ALPHA=0.0, BETA=0.0;
|
|
extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok;
|
|
extern char *cblas_rout;
|
|
|
|
#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
|
|
#ifdef CBLAS_DLL_IMPORTS
|
|
// Since Windows does not support weak symbols, and the trick below doesn't
|
|
// work for shared libraries on Windows, we skip the xerbla tests here.
|
|
printf("***** WARNING: Skipping xerbla tests since weak symbols are not supported on Windows *****\n");
|
|
return;
|
|
#endif
|
|
|
|
if (link_xerbla) /* call these first to link */
|
|
{
|
|
API_SUFFIX(cblas_xerbla)(cblas_info,cblas_rout,"");
|
|
F77_xerbla(cblas_rout,&cblas_info, 1);
|
|
}
|
|
#endif
|
|
|
|
link_xerbla = 0;
|
|
cblas_ok = TRUE ;
|
|
cblas_lerr = PASSED ;
|
|
|
|
if (strncmp( sf,"cblas_sgemv",11)==0) {
|
|
cblas_rout = "cblas_sgemv";
|
|
cblas_info = 1;
|
|
API_SUFFIX(cblas_sgemv)(INVALID_LAYOUT, CblasNoTrans, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgemv)(CblasColMajor, INVALID_TRANSPOSE, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgemv)(CblasColMajor, CblasNoTrans, INVALID, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgemv)(CblasColMajor, CblasNoTrans, 0, INVALID,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 7; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgemv)(CblasColMajor, CblasNoTrans, 2, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 9; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgemv)(CblasColMajor, CblasNoTrans, 0, 0,
|
|
ALPHA, A, 1, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 12; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgemv)(CblasColMajor, CblasNoTrans, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
|
|
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgemv)(CblasRowMajor, INVALID_TRANSPOSE, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgemv)(CblasRowMajor, CblasNoTrans, INVALID, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgemv)(CblasRowMajor, CblasNoTrans, 0, INVALID,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 7; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgemv)(CblasRowMajor, CblasNoTrans, 0, 2,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 9; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgemv)(CblasRowMajor, CblasNoTrans, 0, 0,
|
|
ALPHA, A, 1, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 12; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgemv)(CblasRowMajor, CblasNoTrans, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_sgbmv",11)==0) {
|
|
cblas_rout = "cblas_sgbmv";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgbmv)(INVALID_LAYOUT, CblasNoTrans, 0, 0, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasColMajor, INVALID_TRANSPOSE, 0, 0, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 9; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 11; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
|
|
ALPHA, A, 1, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 14; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasRowMajor, INVALID_TRANSPOSE, 0, 0, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 9; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 11; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
|
|
ALPHA, A, 1, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 14; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_ssymv",11)==0) {
|
|
cblas_rout = "cblas_ssymv";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssymv)(INVALID_LAYOUT, CblasUpper, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssymv)(CblasColMajor, INVALID_UPLO, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssymv)(CblasColMajor, CblasUpper, INVALID,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssymv)(CblasColMajor, CblasUpper, 2,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssymv)(CblasColMajor, CblasUpper, 0,
|
|
ALPHA, A, 1, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 11; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssymv)(CblasColMajor, CblasUpper, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssymv)(CblasRowMajor, INVALID_UPLO, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssymv)(CblasRowMajor, CblasUpper, INVALID,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssymv)(CblasRowMajor, CblasUpper, 2,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssymv)(CblasRowMajor, CblasUpper, 0,
|
|
ALPHA, A, 1, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 11; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssymv)(CblasRowMajor, CblasUpper, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_sskewsymv",15)==0) {
|
|
cblas_rout = "cblas_sskewsymv";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsymv)(INVALID_LAYOUT, CblasUpper, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsymv)(CblasColMajor, INVALID_UPLO, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsymv)(CblasColMajor, CblasUpper, INVALID,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsymv)(CblasColMajor, CblasUpper, 2,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsymv)(CblasColMajor, CblasUpper, 0,
|
|
ALPHA, A, 1, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 11; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsymv)(CblasColMajor, CblasUpper, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sskewsymv)(CblasRowMajor, INVALID_UPLO, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sskewsymv)(CblasRowMajor, CblasUpper, INVALID,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sskewsymv)(CblasRowMajor, CblasUpper, 2,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sskewsymv)(CblasRowMajor, CblasUpper, 0,
|
|
ALPHA, A, 1, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 11; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sskewsymv)(CblasRowMajor, CblasUpper, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_ssbmv",11)==0) {
|
|
cblas_rout = "cblas_ssbmv";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssbmv)(INVALID_LAYOUT, CblasUpper, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasColMajor, INVALID_UPLO, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasColMajor, CblasUpper, INVALID, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasColMajor, CblasUpper, 0, INVALID,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 7; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasColMajor, CblasUpper, 0, 1,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 9; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasColMajor, CblasUpper, 0, 0,
|
|
ALPHA, A, 1, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 12; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasColMajor, CblasUpper, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasRowMajor, INVALID_UPLO, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasRowMajor, CblasUpper, INVALID, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasRowMajor, CblasUpper, 0, INVALID,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 7; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasRowMajor, CblasUpper, 0, 1,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 9; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasRowMajor, CblasUpper, 0, 0,
|
|
ALPHA, A, 1, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 12; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssbmv)(CblasRowMajor, CblasUpper, 0, 0,
|
|
ALPHA, A, 1, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_sspmv",11)==0) {
|
|
cblas_rout = "cblas_sspmv";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspmv)(INVALID_LAYOUT, CblasUpper, 0,
|
|
ALPHA, A, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspmv)(CblasColMajor, INVALID_UPLO, 0,
|
|
ALPHA, A, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspmv)(CblasColMajor, CblasUpper, INVALID,
|
|
ALPHA, A, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 7; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspmv)(CblasColMajor, CblasUpper, 0,
|
|
ALPHA, A, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspmv)(CblasColMajor, CblasUpper, 0,
|
|
ALPHA, A, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sspmv)(CblasRowMajor, INVALID_UPLO, 0,
|
|
ALPHA, A, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sspmv)(CblasRowMajor, CblasUpper, INVALID,
|
|
ALPHA, A, X, 1, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 7; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sspmv)(CblasRowMajor, CblasUpper, 0,
|
|
ALPHA, A, X, 0, BETA, Y, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sspmv)(CblasRowMajor, CblasUpper, 0,
|
|
ALPHA, A, X, 1, BETA, Y, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_strmv",11)==0) {
|
|
cblas_rout = "cblas_strmv";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strmv)(INVALID_LAYOUT, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strmv)(CblasColMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strmv)(CblasColMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 7; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 2, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 9; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, 1, X, 0 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strmv)(CblasRowMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strmv)(CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 7; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 2, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 9; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, 1, X, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_stbmv",11)==0) {
|
|
cblas_rout = "cblas_stbmv";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbmv)(INVALID_LAYOUT, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbmv)(CblasColMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbmv)(CblasColMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, 1, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, 0, A, 1, X, 0 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbmv)(CblasRowMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbmv)(CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, 1, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, 0, A, 1, X, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_stpmv",11)==0) {
|
|
cblas_rout = "cblas_stpmv";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpmv)(INVALID_LAYOUT, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpmv)(CblasColMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpmv)(CblasColMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpmv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, X, 0 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stpmv)(CblasRowMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stpmv)(CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stpmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stpmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stpmv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, X, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_strsv",11)==0) {
|
|
cblas_rout = "cblas_strsv";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strsv)(INVALID_LAYOUT, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strsv)(CblasColMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strsv)(CblasColMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 7; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 2, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 9; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_strsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, 1, X, 0 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strsv)(CblasRowMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strsv)(CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 7; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 2, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 9; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_strsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, 1, X, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_stbsv",11)==0) {
|
|
cblas_rout = "cblas_stbsv";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbsv)(INVALID_LAYOUT, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbsv)(CblasColMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbsv)(CblasColMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, 1, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stbsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, 0, A, 1, X, 0 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbsv)(CblasRowMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbsv)(CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, 1, A, 1, X, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stbsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, 0, A, 1, X, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_stpsv",11)==0) {
|
|
cblas_rout = "cblas_stpsv";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpsv)(INVALID_LAYOUT, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpsv)(CblasColMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpsv)(CblasColMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_stpsv)(CblasColMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, X, 0 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stpsv)(CblasRowMajor, INVALID_UPLO, CblasNoTrans,
|
|
CblasNonUnit, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stpsv)(CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
|
|
CblasNonUnit, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 4; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stpsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
INVALID_DIAG, 0, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 5; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stpsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, INVALID, A, X, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_stpsv)(CblasRowMajor, CblasUpper, CblasNoTrans,
|
|
CblasNonUnit, 0, A, X, 0 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_sger",10)==0) {
|
|
cblas_rout = "cblas_sger";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sger)(INVALID_LAYOUT, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sger)(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sger)(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sger)(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sger)(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sger)(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sger)(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sger)(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sger)(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sger)(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sger)(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_ssyr2",11)==0) {
|
|
cblas_rout = "cblas_ssyr2";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssyr2)(INVALID_LAYOUT, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssyr2)(CblasColMajor, INVALID_UPLO, 0, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssyr2)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssyr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssyr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssyr2)(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssyr2)(CblasRowMajor, INVALID_UPLO, 0, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssyr2)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssyr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssyr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssyr2)(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_sskewsyr2",15)==0) {
|
|
cblas_rout = "cblas_sskewsyr2";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsyr2)(INVALID_LAYOUT, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsyr2)(CblasColMajor, INVALID_UPLO, 0, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsyr2)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsyr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsyr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sskewsyr2)(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sskewsyr2)(CblasRowMajor, INVALID_UPLO, 0, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sskewsyr2)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sskewsyr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sskewsyr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
|
|
chkxer();
|
|
cblas_info = 10; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sskewsyr2)(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_sspr2",11)==0) {
|
|
cblas_rout = "cblas_sspr2";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspr2)(INVALID_LAYOUT, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspr2)(CblasColMajor, INVALID_UPLO, 0, ALPHA, X, 1, Y, 1, A );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspr2)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sspr2)(CblasRowMajor, INVALID_UPLO, 0, ALPHA, X, 1, Y, 1, A );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sspr2)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sspr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sspr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_ssyr",10)==0) {
|
|
cblas_rout = "cblas_ssyr";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssyr)(INVALID_LAYOUT, CblasUpper, 0, ALPHA, X, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssyr)(CblasColMajor, INVALID_UPLO, 0, ALPHA, X, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssyr)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssyr)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_ssyr)(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssyr)(CblasRowMajor, INVALID_UPLO, 0, ALPHA, X, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssyr)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssyr)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
|
|
chkxer();
|
|
cblas_info = 8; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_ssyr)(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
|
|
chkxer();
|
|
} else if (strncmp( sf,"cblas_sspr",10)==0) {
|
|
cblas_rout = "cblas_sspr";
|
|
cblas_info = 1; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspr)(INVALID_LAYOUT, CblasUpper, 0, ALPHA, X, 1, A );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspr)(CblasColMajor, INVALID_UPLO, 0, ALPHA, X, 1, A );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspr)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = FALSE;
|
|
API_SUFFIX(cblas_sspr)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
|
|
chkxer();
|
|
cblas_info = 2; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sspr)(CblasRowMajor, INVALID_UPLO, 0, ALPHA, X, 1, A );
|
|
chkxer();
|
|
cblas_info = 3; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sspr)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
|
|
chkxer();
|
|
cblas_info = 6; RowMajorStrg = TRUE;
|
|
API_SUFFIX(cblas_sspr)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A );
|
|
chkxer();
|
|
}
|
|
if (cblas_ok == TRUE)
|
|
printf(" %-16s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
|
|
else
|
|
printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
|
|
}
|