phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

CBLAS: test error exits under row-major layout

Browse Source 
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>
This commit is contained in:
Simon Maertens
2026-07-28 15:46:28 +02:00
co-authored by Claude Fable 5
parent 7a7d7453ed
commit cf265acf5a
8 changed files with 1017 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
CBLAS/testing/c_c2chke.c
+6 -6
View File
@@ -825,14 +825,14 @@ void F77_c2chke(char *rout
cblas_info = 6; RowMajorStrg = FALSE;
API_SUFFIX(cblas_chpr)(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
API_SUFFIX(cblas_chpr)(CblasColMajor, INVALID_UPLO, 0, RALPHA, X, 1, A );
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_chpr)(CblasRowMajor, INVALID_UPLO, 0, RALPHA, X, 1, A );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
API_SUFFIX(cblas_chpr)(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_chpr)(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
API_SUFFIX(cblas_chpr)(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_chpr)(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A );
chkxer();
}
if (cblas_ok == TRUE)
CBLAS/testing/c_c3chke.c
+268 -4
View File
@@ -211,6 +211,33 @@ void F77_c3chke(char * rout
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, INVALID_UPLO, CblasNoTrans, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, INVALID_UPLO, CblasNoTrans, CblasTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE, CblasTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, INVALID_TRANSPOSE, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, INVALID_TRANSPOSE, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -263,15 +290,19 @@ void F77_c3chke(char * rout
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2,
ALPHA, A, 1, B, 1, BETA, C, 1 );
API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 2 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2,
API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0,
ALPHA, A, 2, B, 1, BETA, C, 2 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, 2,
ALPHA, A, 2, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 0, 2,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
@@ -423,6 +454,23 @@ void F77_c3chke(char * rout
API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemm)( CblasRowMajor, INVALID_TRANSPOSE, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemm)( CblasRowMajor, INVALID_TRANSPOSE, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, INVALID_TRANSPOSE, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, INVALID_TRANSPOSE, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -614,6 +662,15 @@ void F77_c3chke(char * rout
API_SUFFIX(cblas_chemm)( CblasColMajor, CblasRight, CblasLower, 2, 0,
ALPHA, A, 1, B, 2, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_chemm)( CblasRowMajor, INVALID_SIDE, CblasUpper, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, INVALID_UPLO, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -790,6 +847,15 @@ void F77_c3chke(char * rout
API_SUFFIX(cblas_csymm)( CblasColMajor, CblasRight, CblasLower, 2, 0,
ALPHA, A, 1, B, 2, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csymm)( CblasRowMajor, INVALID_SIDE, CblasUpper, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, INVALID_UPLO, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -1022,6 +1088,23 @@ void F77_c3chke(char * rout
API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasLower, CblasTrans,
CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ctrmm)( CblasRowMajor, INVALID_SIDE, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, INVALID_UPLO, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID_TRANSPOSE,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
INVALID_DIAG, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
@@ -1302,6 +1385,23 @@ void F77_c3chke(char * rout
API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasLower, CblasTrans,
CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ctrsm)( CblasRowMajor, INVALID_SIDE, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, INVALID_UPLO, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID_TRANSPOSE,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
INVALID_DIAG, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
@@ -1478,6 +1578,47 @@ void F77_c3chke(char * rout
API_SUFFIX(cblas_cherk)(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cherk)(CblasRowMajor, INVALID_UPLO, CblasNoTrans, 0, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasUpper, CblasTrans, 0, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasUpper, CblasConjTrans, INVALID, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasLower, CblasNoTrans, INVALID, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasLower, CblasConjTrans, INVALID, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, INVALID,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasUpper, CblasConjTrans, 0, INVALID,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasLower, CblasNoTrans, 0, INVALID,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasLower, CblasConjTrans, 0, INVALID,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
RALPHA, A, 1, RBETA, C, 2 );
@@ -1590,6 +1731,47 @@ void F77_c3chke(char * rout
API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasLower, CblasTrans, 0, INVALID,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyrk)(CblasRowMajor, INVALID_UPLO, CblasNoTrans, 0, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasUpper, CblasConjTrans, 0, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasUpper, CblasTrans, INVALID, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasLower, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasLower, CblasTrans, INVALID, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasUpper, CblasTrans, 0, INVALID,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasLower, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasLower, CblasTrans, 0, INVALID,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
ALPHA, A, 1, BETA, C, 2 );
@@ -1702,6 +1884,47 @@ void F77_c3chke(char * rout
API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cher2k)(CblasRowMajor, INVALID_UPLO, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasTrans, 0, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasConjTrans, INVALID, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasLower, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasLower, CblasConjTrans, INVALID, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasConjTrans, 0, INVALID,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasLower, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasLower, CblasConjTrans, 0, INVALID,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
ALPHA, A, 1, B, 2, RBETA, C, 2 );
@@ -1846,6 +2069,47 @@ void F77_c3chke(char * rout
API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasLower, CblasTrans, 0, INVALID,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyr2k)(CblasRowMajor, INVALID_UPLO, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasConjTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasLower, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasLower, CblasTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasTrans, 0, INVALID,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasLower, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasLower, CblasTrans, 0, INVALID,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
ALPHA, A, 1, B, 2, BETA, C, 2 );
CBLAS/testing/c_d2chke.c
+6 -6
View File
@@ -870,14 +870,14 @@ void F77_d2chke(char *rout
cblas_info = 6; RowMajorStrg = FALSE;
API_SUFFIX(cblas_dspr)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
API_SUFFIX(cblas_dspr)(CblasColMajor, INVALID_UPLO, 0, ALPHA, X, 1, A );
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dspr)(CblasRowMajor, INVALID_UPLO, 0, ALPHA, X, 1, A );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
API_SUFFIX(cblas_dspr)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dspr)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
API_SUFFIX(cblas_dspr)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dspr)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A );
chkxer();
}
if (cblas_ok == TRUE)
CBLAS/testing/c_d3chke.c
+227 -4
View File
@@ -209,6 +209,33 @@ void F77_d3chke(char *rout
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, INVALID_UPLO, CblasNoTrans, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, INVALID_UPLO, CblasNoTrans, CblasTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE, CblasTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, INVALID_TRANSPOSE, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, INVALID_TRANSPOSE, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -261,15 +288,19 @@ void F77_d3chke(char *rout
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2,
ALPHA, A, 1, B, 1, BETA, C, 1 );
API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 2 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2,
API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0,
ALPHA, A, 2, B, 1, BETA, C, 2 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, 2,
ALPHA, A, 2, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 0, 2,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
@@ -421,6 +452,23 @@ void F77_d3chke(char *rout
API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemm)( CblasRowMajor, INVALID_TRANSPOSE, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemm)( CblasRowMajor, INVALID_TRANSPOSE, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, INVALID_TRANSPOSE, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, INVALID_TRANSPOSE, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -613,6 +661,15 @@ void F77_d3chke(char *rout
API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasRight, CblasLower, 2, 0,
ALPHA, A, 1, B, 2, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsymm)( CblasRowMajor, INVALID_SIDE, CblasUpper, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, INVALID_UPLO, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -789,6 +846,15 @@ void F77_d3chke(char *rout
API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasRight, CblasLower, 2, 0,
ALPHA, A, 1, B, 2, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, INVALID_SIDE, CblasUpper, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, INVALID_UPLO, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -1021,6 +1087,23 @@ void F77_d3chke(char *rout
API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasLower, CblasTrans,
CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dtrmm)( CblasRowMajor, INVALID_SIDE, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, INVALID_UPLO, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID_TRANSPOSE,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
INVALID_DIAG, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
@@ -1302,6 +1385,23 @@ void F77_d3chke(char *rout
CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dtrsm)( CblasRowMajor, INVALID_SIDE, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, INVALID_UPLO, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID_TRANSPOSE,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
INVALID_DIAG, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
@@ -1478,6 +1578,47 @@ void F77_d3chke(char *rout
API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyrk)( CblasRowMajor, INVALID_UPLO, CblasNoTrans,
0, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
0, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasUpper, CblasTrans,
INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasLower, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasLower, CblasTrans,
INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, INVALID, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasUpper, CblasTrans,
0, INVALID, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasLower, CblasNoTrans,
0, INVALID, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, 2, ALPHA, A, 1, BETA, C, 2 );
@@ -1590,6 +1731,47 @@ void F77_d3chke(char *rout
API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, INVALID_UPLO, CblasNoTrans,
0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, CblasTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasLower, CblasTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
@@ -1733,6 +1915,47 @@ void F77_d3chke(char *rout
API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, INVALID_UPLO, CblasNoTrans,
0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, CblasTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasLower, CblasTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
CBLAS/testing/c_s2chke.c
+6 -6
View File
@@ -870,14 +870,14 @@ void F77_s2chke(char *rout
cblas_info = 6; RowMajorStrg = FALSE;
API_SUFFIX(cblas_sspr)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
API_SUFFIX(cblas_sspr)(CblasColMajor, INVALID_UPLO, 0, ALPHA, X, 1, A );
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sspr)(CblasRowMajor, INVALID_UPLO, 0, ALPHA, X, 1, A );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
API_SUFFIX(cblas_sspr)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sspr)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
API_SUFFIX(cblas_sspr)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sspr)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A );
chkxer();
}
if (cblas_ok == TRUE)
CBLAS/testing/c_s3chke.c
+230 -4
View File
@@ -210,6 +210,33 @@ void F77_s3chke(char *rout
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemmtr)( CblasRowMajor, INVALID_UPLO, CblasNoTrans, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemmtr)( CblasRowMajor, INVALID_UPLO, CblasNoTrans, CblasTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemmtr)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemmtr)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE, CblasTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, INVALID_TRANSPOSE, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, INVALID_TRANSPOSE, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -262,15 +289,19 @@ void F77_s3chke(char *rout
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2,
ALPHA, A, 1, B, 1, BETA, C, 1 );
API_SUFFIX(cblas_sgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 2 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2,
API_SUFFIX(cblas_sgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0,
ALPHA, A, 2, B, 1, BETA, C, 2 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, 2,
ALPHA, A, 2, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
API_SUFFIX(cblas_sgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 0, 2,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
@@ -422,6 +453,23 @@ void F77_s3chke(char *rout
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemm)( CblasRowMajor, INVALID_TRANSPOSE, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemm)( CblasRowMajor, INVALID_TRANSPOSE, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemm)( CblasRowMajor, CblasNoTrans, INVALID_TRANSPOSE, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemm)( CblasRowMajor, CblasTrans, INVALID_TRANSPOSE, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -615,6 +663,15 @@ void F77_s3chke(char *rout
ALPHA, A, 1, B, 2, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssymm)( CblasRowMajor, INVALID_SIDE, CblasUpper, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssymm)( CblasRowMajor, CblasLeft, INVALID_UPLO, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssymm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -792,6 +849,15 @@ void F77_s3chke(char *rout
ALPHA, A, 1, B, 2, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsymm)( CblasRowMajor, INVALID_SIDE, CblasUpper, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsymm)( CblasRowMajor, CblasLeft, INVALID_UPLO, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsymm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -1025,6 +1091,23 @@ void F77_s3chke(char *rout
CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_strmm)( CblasRowMajor, INVALID_SIDE, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_strmm)( CblasRowMajor, CblasLeft, INVALID_UPLO, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_strmm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID_TRANSPOSE,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_strmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
INVALID_DIAG, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_strmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
@@ -1306,6 +1389,23 @@ void F77_s3chke(char *rout
CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_strsm)( CblasRowMajor, INVALID_SIDE, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_strsm)( CblasRowMajor, CblasLeft, INVALID_UPLO, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_strsm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID_TRANSPOSE,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_strsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
INVALID_DIAG, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_strsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
@@ -1482,6 +1582,48 @@ void F77_s3chke(char *rout
API_SUFFIX(cblas_ssyrk)( CblasColMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyrk)( CblasRowMajor, INVALID_UPLO, CblasNoTrans,
0, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyrk)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
0, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyrk)( CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyrk)( CblasRowMajor, CblasUpper, CblasTrans,
INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyrk)( CblasRowMajor, CblasLower, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyrk)( CblasRowMajor, CblasLower, CblasTrans,
INVALID, 0, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyrk)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, INVALID, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyrk)( CblasRowMajor, CblasUpper, CblasTrans,
0, INVALID, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyrk)( CblasRowMajor, CblasLower, CblasNoTrans,
0, INVALID, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyrk)( CblasRowMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyrk)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, 2, ALPHA, A, 1, BETA, C, 2 );
@@ -1594,6 +1736,48 @@ void F77_s3chke(char *rout
API_SUFFIX(cblas_ssyr2k)( CblasColMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyr2k)( CblasRowMajor, INVALID_UPLO, CblasNoTrans,
0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyr2k)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyr2k)( CblasRowMajor, CblasUpper, CblasTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyr2k)( CblasRowMajor, CblasLower, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyr2k)( CblasRowMajor, CblasLower, CblasTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyr2k)( CblasRowMajor, CblasUpper, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyr2k)( CblasRowMajor, CblasLower, CblasNoTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyr2k)( CblasRowMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ssyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
@@ -1737,6 +1921,48 @@ void F77_s3chke(char *rout
API_SUFFIX(cblas_sskewsyr2k)( CblasColMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsyr2k)( CblasRowMajor, INVALID_UPLO, CblasNoTrans,
0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsyr2k)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE,
0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsyr2k)( CblasRowMajor, CblasUpper, CblasTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsyr2k)( CblasRowMajor, CblasLower, CblasTrans,
INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsyr2k)( CblasRowMajor, CblasUpper, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsyr2k)( CblasRowMajor, CblasLower, CblasTrans,
0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_sskewsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans,
0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 );
CBLAS/testing/c_z2chke.c
+6 -6
View File
@@ -826,14 +826,14 @@ void F77_z2chke(char *rout
cblas_info = 6; RowMajorStrg = FALSE;
API_SUFFIX(cblas_zhpr)(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
API_SUFFIX(cblas_zhpr)(CblasColMajor, INVALID_UPLO, 0, RALPHA, X, 1, A );
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zhpr)(CblasRowMajor, INVALID_UPLO, 0, RALPHA, X, 1, A );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
API_SUFFIX(cblas_zhpr)(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zhpr)(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
API_SUFFIX(cblas_zhpr)(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zhpr)(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A );
chkxer();
}
if (cblas_ok == TRUE)
CBLAS/testing/c_z3chke.c
+268 -4
View File
@@ -211,6 +211,33 @@ void F77_z3chke(char *rout
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemmtr)( CblasRowMajor, INVALID_UPLO, CblasNoTrans, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemmtr)( CblasRowMajor, INVALID_UPLO, CblasNoTrans, CblasTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemmtr)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemmtr)( CblasRowMajor, CblasUpper, INVALID_TRANSPOSE, CblasTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, INVALID_TRANSPOSE, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, INVALID_TRANSPOSE, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -263,15 +290,19 @@ void F77_z3chke(char *rout
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2,
ALPHA, A, 1, B, 1, BETA, C, 1 );
API_SUFFIX(cblas_zgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 2 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2,
API_SUFFIX(cblas_zgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0,
ALPHA, A, 2, B, 1, BETA, C, 2 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, 2,
ALPHA, A, 2, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
API_SUFFIX(cblas_zgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 0, 2,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
@@ -423,6 +454,23 @@ void F77_z3chke(char *rout
API_SUFFIX(cblas_zgemm)( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemm)( CblasRowMajor, INVALID_TRANSPOSE, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemm)( CblasRowMajor, INVALID_TRANSPOSE, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemm)( CblasRowMajor, CblasNoTrans, INVALID_TRANSPOSE, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemm)( CblasRowMajor, CblasTrans, INVALID_TRANSPOSE, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -615,6 +663,15 @@ void F77_z3chke(char *rout
API_SUFFIX(cblas_zhemm)( CblasColMajor, CblasRight, CblasLower, 2, 0,
ALPHA, A, 1, B, 2, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zhemm)( CblasRowMajor, INVALID_SIDE, CblasUpper, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zhemm)( CblasRowMajor, CblasLeft, INVALID_UPLO, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zhemm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -791,6 +848,15 @@ void F77_z3chke(char *rout
API_SUFFIX(cblas_zsymm)( CblasColMajor, CblasRight, CblasLower, 2, 0,
ALPHA, A, 1, B, 2, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsymm)( CblasRowMajor, INVALID_SIDE, CblasUpper, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsymm)( CblasRowMajor, CblasLeft, INVALID_UPLO, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsymm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
@@ -1023,6 +1089,23 @@ void F77_z3chke(char *rout
API_SUFFIX(cblas_ztrmm)( CblasColMajor, CblasRight, CblasLower, CblasTrans,
CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ztrmm)( CblasRowMajor, INVALID_SIDE, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ztrmm)( CblasRowMajor, CblasLeft, INVALID_UPLO, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ztrmm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID_TRANSPOSE,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ztrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
INVALID_DIAG, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ztrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
@@ -1303,6 +1386,23 @@ void F77_z3chke(char *rout
API_SUFFIX(cblas_ztrsm)( CblasColMajor, CblasRight, CblasLower, CblasTrans,
CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ztrsm)( CblasRowMajor, INVALID_SIDE, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ztrsm)( CblasRowMajor, CblasLeft, INVALID_UPLO, CblasNoTrans,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ztrsm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID_TRANSPOSE,
CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ztrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
INVALID_DIAG, 0, 0, ALPHA, A, 1, B, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
API_SUFFIX(cblas_ztrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
@@ -1479,6 +1579,47 @@ void F77_z3chke(char *rout
API_SUFFIX(cblas_zherk)(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zherk)(CblasRowMajor, INVALID_UPLO, CblasNoTrans, 0, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zherk)(CblasRowMajor, CblasUpper, CblasTrans, 0, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zherk)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zherk)(CblasRowMajor, CblasUpper, CblasConjTrans, INVALID, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zherk)(CblasRowMajor, CblasLower, CblasNoTrans, INVALID, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zherk)(CblasRowMajor, CblasLower, CblasConjTrans, INVALID, 0,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zherk)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, INVALID,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zherk)(CblasRowMajor, CblasUpper, CblasConjTrans, 0, INVALID,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zherk)(CblasRowMajor, CblasLower, CblasNoTrans, 0, INVALID,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zherk)(CblasRowMajor, CblasLower, CblasConjTrans, 0, INVALID,
RALPHA, A, 1, RBETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zherk)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
RALPHA, A, 1, RBETA, C, 2 );
@@ -1591,6 +1732,47 @@ void F77_z3chke(char *rout
API_SUFFIX(cblas_zsyrk)(CblasColMajor, CblasLower, CblasTrans, 0, INVALID,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyrk)(CblasRowMajor, INVALID_UPLO, CblasNoTrans, 0, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyrk)(CblasRowMajor, CblasUpper, CblasConjTrans, 0, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyrk)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyrk)(CblasRowMajor, CblasUpper, CblasTrans, INVALID, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyrk)(CblasRowMajor, CblasLower, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyrk)(CblasRowMajor, CblasLower, CblasTrans, INVALID, 0,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyrk)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyrk)(CblasRowMajor, CblasUpper, CblasTrans, 0, INVALID,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyrk)(CblasRowMajor, CblasLower, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyrk)(CblasRowMajor, CblasLower, CblasTrans, 0, INVALID,
ALPHA, A, 1, BETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyrk)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
ALPHA, A, 1, BETA, C, 2 );
@@ -1703,6 +1885,47 @@ void F77_z3chke(char *rout
API_SUFFIX(cblas_zher2k)(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zher2k)(CblasRowMajor, INVALID_UPLO, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zher2k)(CblasRowMajor, CblasUpper, CblasTrans, 0, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zher2k)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zher2k)(CblasRowMajor, CblasUpper, CblasConjTrans, INVALID, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zher2k)(CblasRowMajor, CblasLower, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zher2k)(CblasRowMajor, CblasLower, CblasConjTrans, INVALID, 0,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zher2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zher2k)(CblasRowMajor, CblasUpper, CblasConjTrans, 0, INVALID,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zher2k)(CblasRowMajor, CblasLower, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zher2k)(CblasRowMajor, CblasLower, CblasConjTrans, 0, INVALID,
ALPHA, A, 1, B, 1, RBETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zher2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
ALPHA, A, 1, B, 2, RBETA, C, 2 );
@@ -1847,6 +2070,47 @@ void F77_z3chke(char *rout
API_SUFFIX(cblas_zsyr2k)(CblasColMajor, CblasLower, CblasTrans, 0, INVALID,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
/* Row Major */
cblas_info = 2; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyr2k)(CblasRowMajor, INVALID_UPLO, CblasNoTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyr2k)(CblasRowMajor, CblasUpper, CblasConjTrans, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyr2k)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyr2k)(CblasRowMajor, CblasUpper, CblasTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyr2k)(CblasRowMajor, CblasLower, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyr2k)(CblasRowMajor, CblasLower, CblasTrans, INVALID, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyr2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyr2k)(CblasRowMajor, CblasUpper, CblasTrans, 0, INVALID,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyr2k)(CblasRowMajor, CblasLower, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyr2k)(CblasRowMajor, CblasLower, CblasTrans, 0, INVALID,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
API_SUFFIX(cblas_zsyr2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
ALPHA, A, 1, B, 2, BETA, C, 2 );