summaryrefslogtreecommitdiff
path: root/CBLAS/testing
diff options
context:
space:
mode:
Diffstat (limited to 'CBLAS/testing')
-rw-r--r--CBLAS/testing/c_c2chke.c292
-rw-r--r--CBLAS/testing/c_c3chke.c12
-rw-r--r--CBLAS/testing/c_cblas1.c6
-rw-r--r--CBLAS/testing/c_cblas2.c40
-rw-r--r--CBLAS/testing/c_cblas3.c60
-rw-r--r--CBLAS/testing/c_d2chke.c290
-rw-r--r--CBLAS/testing/c_d3chke.c14
-rw-r--r--CBLAS/testing/c_dblas1.c2
-rw-r--r--CBLAS/testing/c_dblas2.c58
-rw-r--r--CBLAS/testing/c_dblas3.c36
-rw-r--r--CBLAS/testing/c_s2chke.c290
-rw-r--r--CBLAS/testing/c_s3chke.c14
-rw-r--r--CBLAS/testing/c_sblas1.c4
-rw-r--r--CBLAS/testing/c_sblas2.c58
-rw-r--r--CBLAS/testing/c_sblas3.c36
-rw-r--r--CBLAS/testing/c_xerbla.c20
-rw-r--r--CBLAS/testing/c_z2chke.c292
-rw-r--r--CBLAS/testing/c_z3chke.c12
-rw-r--r--CBLAS/testing/c_zblas1.c6
-rw-r--r--CBLAS/testing/c_zblas2.c40
-rw-r--r--CBLAS/testing/c_zblas3.c60
21 files changed, 821 insertions, 821 deletions
diff --git a/CBLAS/testing/c_c2chke.c b/CBLAS/testing/c_c2chke.c
index 18422831..28b77198 100644
--- a/CBLAS/testing/c_c2chke.c
+++ b/CBLAS/testing/c_c2chke.c
@@ -26,11 +26,11 @@ void chkxer(void) {
void F77_c2chke(char *rout) {
char *sf = ( rout ) ;
- float A[2] = {0.0,0.0},
- X[2] = {0.0,0.0},
- Y[2] = {0.0,0.0},
+ float A[2] = {0.0,0.0},
+ X[2] = {0.0,0.0},
+ Y[2] = {0.0,0.0},
ALPHA[2] = {0.0,0.0},
- BETA[2] = {0.0,0.0},
+ BETA[2] = {0.0,0.0},
RALPHA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
@@ -48,588 +48,588 @@ void F77_c2chke(char *rout) {
if (strncmp( sf,"cblas_cgemv",11)==0) {
cblas_rout = "cblas_cgemv";
cblas_info = 1;
- cblas_cgemv(INVALID, CblasNoTrans, 0, 0,
+ cblas_cgemv(INVALID, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, INVALID, 0, 0,
+ cblas_cgemv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
+ cblas_cgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
+ cblas_cgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, CblasNoTrans, 2, 0,
+ cblas_cgemv(CblasColMajor, CblasNoTrans, 2, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, INVALID, 0, 0,
+ cblas_cgemv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
+ cblas_cgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
+ cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 2,
+ cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_cgbmv",11)==0) {
cblas_rout = "cblas_cgbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_cgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
+ cblas_cgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
+ cblas_cgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
+ cblas_cgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_chemv",11)==0) {
cblas_rout = "cblas_chemv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_chemv(INVALID, CblasUpper, 0,
+ cblas_chemv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_chemv(CblasColMajor, INVALID, 0,
+ cblas_chemv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_chemv(CblasColMajor, CblasUpper, INVALID,
+ cblas_chemv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_chemv(CblasColMajor, CblasUpper, 2,
+ cblas_chemv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_chemv(CblasColMajor, CblasUpper, 0,
+ cblas_chemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_chemv(CblasColMajor, CblasUpper, 0,
+ cblas_chemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_chemv(CblasRowMajor, INVALID, 0,
+ cblas_chemv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_chemv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_chemv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_chemv(CblasRowMajor, CblasUpper, 2,
+ cblas_chemv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_chemv(CblasRowMajor, CblasUpper, 0,
+ cblas_chemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_chemv(CblasRowMajor, CblasUpper, 0,
+ cblas_chemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_chbmv",11)==0) {
cblas_rout = "cblas_chbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_chbmv(INVALID, CblasUpper, 0, 0,
+ cblas_chbmv(INVALID, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, INVALID, 0, 0,
+ cblas_chbmv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, CblasUpper, INVALID, 0,
+ cblas_chbmv(CblasColMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, CblasUpper, 0, INVALID,
+ cblas_chbmv(CblasColMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, CblasUpper, 0, 1,
+ cblas_chbmv(CblasColMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_chbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_chbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, INVALID, 0, 0,
+ cblas_chbmv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, CblasUpper, INVALID, 0,
+ cblas_chbmv(CblasRowMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, CblasUpper, 0, INVALID,
+ cblas_chbmv(CblasRowMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, CblasUpper, 0, 1,
+ cblas_chbmv(CblasRowMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0,
+ cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0,
+ cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_chpmv",11)==0) {
cblas_rout = "cblas_chpmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_chpmv(INVALID, CblasUpper, 0,
+ cblas_chpmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_chpmv(CblasColMajor, INVALID, 0,
+ cblas_chpmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_chpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_chpmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_chpmv(CblasColMajor, CblasUpper, 0,
+ cblas_chpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_chpmv(CblasColMajor, CblasUpper, 0,
+ cblas_chpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_chpmv(CblasRowMajor, INVALID, 0,
+ cblas_chpmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_chpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_chpmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_chpmv(CblasRowMajor, CblasUpper, 0,
+ cblas_chpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_chpmv(CblasRowMajor, CblasUpper, 0,
+ cblas_chpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctrmv",11)==0) {
cblas_rout = "cblas_ctrmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctrmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctbmv",11)==0) {
cblas_rout = "cblas_ctbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctpmv",11)==0) {
cblas_rout = "cblas_ctpmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctrsv",11)==0) {
cblas_rout = "cblas_ctrsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctrsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctbsv",11)==0) {
cblas_rout = "cblas_ctbsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctpsv",11)==0) {
cblas_rout = "cblas_ctpsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctpsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_cgeru",10)==0) {
@@ -818,7 +818,7 @@ void F77_c2chke(char *rout) {
cblas_info = 6; RowMajorStrg = FALSE;
cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
chkxer();
- }
+ }
if (cblas_ok == TRUE)
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
else
diff --git a/CBLAS/testing/c_c3chke.c b/CBLAS/testing/c_c3chke.c
index 67622435..1be0c3fd 100644
--- a/CBLAS/testing/c_c3chke.c
+++ b/CBLAS/testing/c_c3chke.c
@@ -30,7 +30,7 @@ void F77_c3chke(char * rout) {
B[4] = {0.0,0.0,0.0,0.0},
C[4] = {0.0,0.0,0.0,0.0},
ALPHA[2] = {0.0,0.0},
- BETA[2] = {0.0,0.0},
+ BETA[2] = {0.0,0.0},
RALPHA = 0.0, RBETA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
@@ -49,15 +49,15 @@ void F77_c3chke(char * rout) {
cblas_rout = "cblas_cgemm" ;
cblas_info = 1;
- cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
+ cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
+ cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
+ cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
@@ -272,7 +272,7 @@ void F77_c3chke(char * rout) {
cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
-
+
} else if (strncmp( sf,"cblas_chemm" ,11)==0) {
cblas_rout = "cblas_chemm" ;
@@ -1696,7 +1696,7 @@ void F77_c3chke(char * rout) {
cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
-
+
}
if (cblas_ok == 1 )
diff --git a/CBLAS/testing/c_cblas1.c b/CBLAS/testing/c_cblas1.c
index 31b9d47b..81a5b843 100644
--- a/CBLAS/testing/c_cblas1.c
+++ b/CBLAS/testing/c_cblas1.c
@@ -15,21 +15,21 @@ void F77_caxpy(const int *N, const void *alpha, void *X,
return;
}
-void F77_ccopy(const int *N, void *X, const int *incX,
+void F77_ccopy(const int *N, void *X, const int *incX,
void *Y, const int *incY)
{
cblas_ccopy(*N, X, *incX, Y, *incY);
return;
}
-void F77_cdotc(const int *N, void *X, const int *incX,
+void F77_cdotc(const int *N, void *X, const int *incX,
void *Y, const int *incY, void *dotc)
{
cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);
return;
}
-void F77_cdotu(const int *N, void *X, const int *incX,
+void F77_cdotu(const int *N, void *X, const int *incX,
void *Y, const int *incY,void *dotu)
{
cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);
diff --git a/CBLAS/testing/c_cblas2.c b/CBLAS/testing/c_cblas2.c
index 6ba02769..bb7e6448 100644
--- a/CBLAS/testing/c_cblas2.c
+++ b/CBLAS/testing/c_cblas2.c
@@ -8,9 +8,9 @@
#include "cblas.h"
#include "cblas_test.h"
-void F77_cgemv(int *layout, char *transp, int *m, int *n,
+void F77_cgemv(int *layout, char *transp, int *m, int *n,
const void *alpha,
- CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx,
+ CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx,
const void *beta, void *y, int *incy) {
CBLAS_TEST_COMPLEX *A;
@@ -38,9 +38,9 @@ void F77_cgemv(int *layout, char *transp, int *m, int *n,
*m, *n, alpha, a, *lda, x, *incx, beta, y, *incy );
}
-void F77_cgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
- CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
- CBLAS_TEST_COMPLEX *x, int *incx,
+void F77_cgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
+ CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
+ CBLAS_TEST_COMPLEX *x, int *incx,
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) {
CBLAS_TEST_COMPLEX *A;
@@ -85,8 +85,8 @@ void F77_cgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
*incx, beta, y, *incy );
}
-void F77_cgeru(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha,
- CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy,
+void F77_cgeru(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha,
+ CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy,
CBLAS_TEST_COMPLEX *a, int *lda){
CBLAS_TEST_COMPLEX *A;
@@ -114,8 +114,8 @@ void F77_cgeru(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha,
cblas_cgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda );
}
-void F77_cgerc(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha,
- CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy,
+void F77_cgerc(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha,
+ CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy,
CBLAS_TEST_COMPLEX *a, int *lda) {
CBLAS_TEST_COMPLEX *A;
int i,j,LDA;
@@ -165,7 +165,7 @@ void F77_chemv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
free(A);
}
else if (*layout == TEST_COL_MJR)
- cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx,
+ cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx,
beta, y, *incy );
else
cblas_chemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx,
@@ -173,7 +173,7 @@ void F77_chemv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
}
void F77_chbmv(int *layout, char *uplow, int *n, int *k,
- CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
+ CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta,
CBLAS_TEST_COMPLEX *y, int *incy){
@@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA;
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x,
+ cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x,
*incx, beta, y, *incy );
else {
LDA = *k+2;
@@ -237,7 +237,7 @@ int i,irow,j,jcol,LDA;
}
void F77_chpmv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
- CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, int *incx,
+ CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, int *incx,
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy){
CBLAS_TEST_COMPLEX *A, *AP;
@@ -247,7 +247,7 @@ void F77_chpmv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
get_uplo_type(uplow,&uplo);
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_chpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx,
+ cblas_chpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx,
beta, y, *incy);
else {
LDA = *n;
@@ -344,7 +344,7 @@ void F77_ctbmv(int *layout, char *uplow, char *transp, char *diagn,
}
}
}
- cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x,
+ cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x,
*incx);
free(A);
}
@@ -371,7 +371,7 @@ void F77_ctbsv(int *layout, char *uplow, char *transp, char *diagn,
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x,
+ cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x,
*incx);
else {
LDA = *k+2;
@@ -408,7 +408,7 @@ void F77_ctbsv(int *layout, char *uplow, char *transp, char *diagn,
}
}
}
- cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA,
+ cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA,
x, *incx);
free(A);
}
@@ -674,7 +674,7 @@ void F77_chpr2(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_chpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y,
+ cblas_chpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y,
*incy, ap );
else {
LDA = *n;
@@ -752,7 +752,7 @@ void F77_cher(int *layout, char *uplow, int *n, float *alpha,
LDA = *n+1;
A=(CBLAS_TEST_COMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_COMPLEX ));
- for( i=0; i<*n; i++ )
+ for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
@@ -786,7 +786,7 @@ void F77_cher2(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
LDA = *n+1;
A= ( CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX ) );
- for( i=0; i<*n; i++ )
+ for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
diff --git a/CBLAS/testing/c_cblas3.c b/CBLAS/testing/c_cblas3.c
index 5e4b8b38..e0e41230 100644
--- a/CBLAS/testing/c_cblas3.c
+++ b/CBLAS/testing/c_cblas3.c
@@ -11,9 +11,9 @@
#define TEST_ROW_MJR 1
#define UNDEFINED -1
-void F77_cgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
+void F77_cgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
int *k, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
- CBLAS_TEST_COMPLEX *b, int *ldb, CBLAS_TEST_COMPLEX *beta,
+ CBLAS_TEST_COMPLEX *b, int *ldb, CBLAS_TEST_COMPLEX *beta,
CBLAS_TEST_COMPLEX *c, int *ldc ) {
CBLAS_TEST_COMPLEX *A, *B, *C;
@@ -133,7 +133,7 @@ void F77_chemm(int *layout, char *rtlf, char *uplow, int *m, int *n,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_chemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
+ cblas_chemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
@@ -145,10 +145,10 @@ void F77_chemm(int *layout, char *rtlf, char *uplow, int *m, int *n,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_chemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_chemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
else
- cblas_chemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_chemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
}
void F77_csymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
@@ -189,7 +189,7 @@ void F77_csymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_csymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
+ cblas_csymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
@@ -199,15 +199,15 @@ void F77_csymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_csymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_csymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
else
- cblas_csymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_csymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
}
void F77_cherk(int *layout, char *uplow, char *transp, int *n, int *k,
- float *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
+ float *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
float *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) {
int i,j,LDA,LDC;
@@ -244,7 +244,7 @@ void F77_cherk(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_cherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
+ cblas_cherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
@@ -255,15 +255,15 @@ void F77_cherk(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_cherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_cherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
else
- cblas_cherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_cherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
}
void F77_csyrk(int *layout, char *uplow, char *transp, int *n, int *k,
- CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
+ CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) {
int i,j,LDA,LDC;
@@ -300,7 +300,7 @@ void F77_csyrk(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_csyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta,
+ cblas_csyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
@@ -311,10 +311,10 @@ void F77_csyrk(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_csyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta,
+ cblas_csyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta,
c, *ldc );
else
- cblas_csyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta,
+ cblas_csyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta,
c, *ldc );
}
void F77_cher2k(int *layout, char *uplow, char *transp, int *n, int *k,
@@ -363,7 +363,7 @@ void F77_cher2k(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_cher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
+ cblas_cher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
@@ -375,10 +375,10 @@ void F77_cher2k(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_cher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_cher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
else
- cblas_cher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_cher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
}
void F77_csyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
@@ -427,7 +427,7 @@ void F77_csyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_csyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
+ cblas_csyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
B, LDB, beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
@@ -439,14 +439,14 @@ void F77_csyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_csyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_csyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, beta, c, *ldc );
else
- cblas_csyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_csyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, beta, c, *ldc );
}
void F77_ctrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
+ int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
int *lda, CBLAS_TEST_COMPLEX *b, int *ldb) {
int i,j,LDA,LDB;
CBLAS_TEST_COMPLEX *A, *B;
@@ -486,7 +486,7 @@ void F77_ctrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
B[i*LDB+j].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag;
}
- cblas_ctrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
@@ -497,15 +497,15 @@ void F77_ctrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_ctrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
else
- cblas_ctrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
}
void F77_ctrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
+ int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
int *lda, CBLAS_TEST_COMPLEX *b, int *ldb) {
int i,j,LDA,LDB;
CBLAS_TEST_COMPLEX *A, *B;
@@ -545,7 +545,7 @@ void F77_ctrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
B[i*LDB+j].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag;
}
- cblas_ctrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
@@ -556,9 +556,9 @@ void F77_ctrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_ctrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
else
- cblas_ctrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
}
diff --git a/CBLAS/testing/c_d2chke.c b/CBLAS/testing/c_d2chke.c
index 46a242fc..d989811d 100644
--- a/CBLAS/testing/c_d2chke.c
+++ b/CBLAS/testing/c_d2chke.c
@@ -26,9 +26,9 @@ void chkxer(void) {
void F77_d2chke(char *rout) {
char *sf = ( rout ) ;
- double A[2] = {0.0,0.0},
- X[2] = {0.0,0.0},
- Y[2] = {0.0,0.0},
+ double 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 int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
@@ -46,588 +46,588 @@ void F77_d2chke(char *rout) {
if (strncmp( sf,"cblas_dgemv",11)==0) {
cblas_rout = "cblas_dgemv";
cblas_info = 1;
- cblas_dgemv(INVALID, CblasNoTrans, 0, 0,
+ cblas_dgemv(INVALID, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dgemv(CblasColMajor, INVALID, 0, 0,
+ cblas_dgemv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
+ cblas_dgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
+ cblas_dgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_dgemv(CblasColMajor, CblasNoTrans, 2, 0,
+ cblas_dgemv(CblasColMajor, CblasNoTrans, 2, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
- cblas_dgemv(CblasRowMajor, INVALID, 0, 0,
+ cblas_dgemv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
+ cblas_dgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
+ cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 2,
+ cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dgbmv",11)==0) {
cblas_rout = "cblas_dgbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_dgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
+ cblas_dgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
+ cblas_dgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_dgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_dgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_dgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = FALSE;
- cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
+ cblas_dgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_dgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_dgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_dgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = TRUE;
- cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dsymv",11)==0) {
cblas_rout = "cblas_dsymv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_dsymv(INVALID, CblasUpper, 0,
+ cblas_dsymv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dsymv(CblasColMajor, INVALID, 0,
+ cblas_dsymv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dsymv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dsymv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_dsymv(CblasColMajor, CblasUpper, 2,
+ cblas_dsymv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_dsymv(CblasColMajor, CblasUpper, 0,
+ cblas_dsymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_dsymv(CblasColMajor, CblasUpper, 0,
+ cblas_dsymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dsymv(CblasRowMajor, INVALID, 0,
+ cblas_dsymv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dsymv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dsymv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_dsymv(CblasRowMajor, CblasUpper, 2,
+ cblas_dsymv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_dsymv(CblasRowMajor, CblasUpper, 0,
+ cblas_dsymv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_dsymv(CblasRowMajor, CblasUpper, 0,
+ cblas_dsymv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dsbmv",11)==0) {
cblas_rout = "cblas_dsbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_dsbmv(INVALID, CblasUpper, 0, 0,
+ cblas_dsbmv(INVALID, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dsbmv(CblasColMajor, INVALID, 0, 0,
+ cblas_dsbmv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dsbmv(CblasColMajor, CblasUpper, INVALID, 0,
+ cblas_dsbmv(CblasColMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dsbmv(CblasColMajor, CblasUpper, 0, INVALID,
+ cblas_dsbmv(CblasColMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_dsbmv(CblasColMajor, CblasUpper, 0, 1,
+ cblas_dsbmv(CblasColMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dsbmv(CblasRowMajor, INVALID, 0, 0,
+ cblas_dsbmv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dsbmv(CblasRowMajor, CblasUpper, INVALID, 0,
+ cblas_dsbmv(CblasRowMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dsbmv(CblasRowMajor, CblasUpper, 0, INVALID,
+ cblas_dsbmv(CblasRowMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 1,
+ cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0,
+ cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0,
+ cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dspmv",11)==0) {
cblas_rout = "cblas_dspmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_dspmv(INVALID, CblasUpper, 0,
+ cblas_dspmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dspmv(CblasColMajor, INVALID, 0,
+ cblas_dspmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dspmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dspmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_dspmv(CblasColMajor, CblasUpper, 0,
+ cblas_dspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_dspmv(CblasColMajor, CblasUpper, 0,
+ cblas_dspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dspmv(CblasRowMajor, INVALID, 0,
+ cblas_dspmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dspmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dspmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_dspmv(CblasRowMajor, CblasUpper, 0,
+ cblas_dspmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_dspmv(CblasRowMajor, CblasUpper, 0,
+ cblas_dspmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dtrmv",11)==0) {
cblas_rout = "cblas_dtrmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtrmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dtbmv",11)==0) {
cblas_rout = "cblas_dtbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dtpmv",11)==0) {
cblas_rout = "cblas_dtpmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dtrsv",11)==0) {
cblas_rout = "cblas_dtrsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtrsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dtbsv",11)==0) {
cblas_rout = "cblas_dtbsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dtpsv",11)==0) {
cblas_rout = "cblas_dtpsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtpsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dger",10)==0) {
@@ -781,7 +781,7 @@ void F77_d2chke(char *rout) {
cblas_info = 6; RowMajorStrg = FALSE;
cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
chkxer();
- }
+ }
if (cblas_ok == TRUE)
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
else
diff --git a/CBLAS/testing/c_d3chke.c b/CBLAS/testing/c_d3chke.c
index fae38d48..e41901e7 100644
--- a/CBLAS/testing/c_d3chke.c
+++ b/CBLAS/testing/c_d3chke.c
@@ -26,9 +26,9 @@ void chkxer(void) {
void F77_d3chke(char *rout) {
char *sf = ( rout ) ;
- double A[2] = {0.0,0.0},
- B[2] = {0.0,0.0},
- C[2] = {0.0,0.0},
+ double A[2] = {0.0,0.0},
+ B[2] = {0.0,0.0},
+ C[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
@@ -39,7 +39,7 @@ void F77_d3chke(char *rout) {
cblas_xerbla(cblas_info,cblas_rout,"");
F77_xerbla(cblas_rout,&cblas_info);
}
-
+
cblas_ok = TRUE ;
cblas_lerr = PASSED ;
@@ -47,15 +47,15 @@ void F77_d3chke(char *rout) {
cblas_rout = "cblas_dgemm" ;
cblas_info = 1;
- cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
+ cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
+ cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
+ cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
diff --git a/CBLAS/testing/c_dblas1.c b/CBLAS/testing/c_dblas1.c
index 616c4989..deb78512 100644
--- a/CBLAS/testing/c_dblas1.c
+++ b/CBLAS/testing/c_dblas1.c
@@ -20,7 +20,7 @@ void F77_daxpy(const int *N, const double *alpha, const double *X,
return;
}
-void F77_dcopy(const int *N, double *X, const int *incX,
+void F77_dcopy(const int *N, double *X, const int *incX,
double *Y, const int *incY)
{
cblas_dcopy(*N, X, *incX, Y, *incY);
diff --git a/CBLAS/testing/c_dblas2.c b/CBLAS/testing/c_dblas2.c
index eeaf88e6..835ba19f 100644
--- a/CBLAS/testing/c_dblas2.c
+++ b/CBLAS/testing/c_dblas2.c
@@ -8,8 +8,8 @@
#include "cblas.h"
#include "cblas_test.h"
-void F77_dgemv(int *layout, char *transp, int *m, int *n, double *alpha,
- double *a, int *lda, double *x, int *incx, double *beta,
+void F77_dgemv(int *layout, char *transp, int *m, int *n, double *alpha,
+ double *a, int *lda, double *x, int *incx, double *beta,
double *y, int *incy ) {
double *A;
@@ -23,7 +23,7 @@ void F77_dgemv(int *layout, char *transp, int *m, int *n, double *alpha,
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
A[ LDA*i+j ]=a[ (*lda)*j+i ];
- cblas_dgemv( CblasRowMajor, trans,
+ cblas_dgemv( CblasRowMajor, trans,
*m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
free(A);
}
@@ -68,9 +68,9 @@ void F77_dtrmv(int *layout, char *uplow, char *transp, char *diagn,
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n+1;
@@ -88,7 +88,7 @@ void F77_dtrmv(int *layout, char *uplow, char *transp, char *diagn,
}
}
-void F77_dtrsv(int *layout, char *uplow, char *transp, char *diagn,
+void F77_dtrsv(int *layout, char *uplow, char *transp, char *diagn,
int *n, double *a, int *lda, double *x, int *incx ) {
double *A;
int i,j,LDA;
@@ -112,7 +112,7 @@ void F77_dtrsv(int *layout, char *uplow, char *transp, char *diagn,
else
cblas_dtrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx );
}
-void F77_dsymv(int *layout, char *uplow, int *n, double *alpha, double *a,
+void F77_dsymv(int *layout, char *uplow, int *n, double *alpha, double *a,
int *lda, double *x, int *incx, double *beta, double *y,
int *incy) {
double *A;
@@ -136,7 +136,7 @@ void F77_dsymv(int *layout, char *uplow, int *n, double *alpha, double *a,
*beta, y, *incy );
}
-void F77_dsyr(int *layout, char *uplow, int *n, double *alpha, double *x,
+void F77_dsyr(int *layout, char *uplow, int *n, double *alpha, double *x,
int *incx, double *a, int *lda) {
double *A;
int i,j,LDA;
@@ -160,7 +160,7 @@ void F77_dsyr(int *layout, char *uplow, int *n, double *alpha, double *x,
cblas_dsyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda);
}
-void F77_dsyr2(int *layout, char *uplow, int *n, double *alpha, double *x,
+void F77_dsyr2(int *layout, char *uplow, int *n, double *alpha, double *x,
int *incx, double *y, int *incy, double *a, int *lda) {
double *A;
int i,j,LDA;
@@ -185,7 +185,7 @@ void F77_dsyr2(int *layout, char *uplow, int *n, double *alpha, double *x,
}
void F77_dgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
- double *alpha, double *a, int *lda, double *x, int *incx,
+ double *alpha, double *a, int *lda, double *x, int *incx,
double *beta, double *y, int *incy ) {
double *A;
@@ -213,7 +213,7 @@ void F77_dgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
for( j=jcol; j<(*n+*kl); j++ )
A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];
}
- cblas_dgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha,
+ cblas_dgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha,
A, LDA, x, *incx, *beta, y, *incy );
free(A);
}
@@ -230,9 +230,9 @@ void F77_dtbmv(int *layout, char *uplow, char *transp, char *diagn,
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *k+1;
@@ -276,9 +276,9 @@ void F77_dtbsv(int *layout, char *uplow, char *transp, char *diagn,
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *k+1;
@@ -315,7 +315,7 @@ void F77_dtbsv(int *layout, char *uplow, char *transp, char *diagn,
}
void F77_dsbmv(int *layout, char *uplow, int *n, int *k, double *alpha,
- double *a, int *lda, double *x, int *incx, double *beta,
+ double *a, int *lda, double *x, int *incx, double *beta,
double *y, int *incy) {
double *A;
int i,j,irow,jcol,LDA;
@@ -387,13 +387,13 @@ void F77_dspmv(int *layout, char *uplow, int *n, double *alpha, double *ap,
for( j=0; j<i+1; j++, k++ )
AP[ k ]=A[ LDA*i+j ];
}
- cblas_dspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,
+ cblas_dspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,
*incy );
free(A);
free(AP);
}
else
- cblas_dspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
+ cblas_dspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
*incy );
}
@@ -405,9 +405,9 @@ void F77_dtpmv(int *layout, char *uplow, char *transp, char *diagn,
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n;
@@ -445,9 +445,9 @@ void F77_dtpsv(int *layout, char *uplow, char *transp, char *diagn,
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n;
@@ -478,7 +478,7 @@ void F77_dtpsv(int *layout, char *uplow, char *transp, char *diagn,
cblas_dtpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
}
-void F77_dspr(int *layout, char *uplow, int *n, double *alpha, double *x,
+void F77_dspr(int *layout, char *uplow, int *n, double *alpha, double *x,
int *incx, double *ap ){
double *A, *AP;
int i,j,k,LDA;
@@ -530,7 +530,7 @@ void F77_dspr(int *layout, char *uplow, int *n, double *alpha, double *x,
cblas_dspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap );
}
-void F77_dspr2(int *layout, char *uplow, int *n, double *alpha, double *x,
+void F77_dspr2(int *layout, char *uplow, int *n, double *alpha, double *x,
int *incx, double *y, int *incy, double *ap ){
double *A, *AP;
int i,j,k,LDA;
diff --git a/CBLAS/testing/c_dblas3.c b/CBLAS/testing/c_dblas3.c
index 46ddc4a1..8a2c3768 100644
--- a/CBLAS/testing/c_dblas3.c
+++ b/CBLAS/testing/c_dblas3.c
@@ -11,7 +11,7 @@
#define TEST_ROW_MJR 1
#define UNDEFINED -1
-void F77_dgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
+void F77_dgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
int *k, double *alpha, double *a, int *lda, double *b, int *ldb,
double *beta, double *c, int *ldc ) {
@@ -110,7 +110,7 @@ void F77_dsymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_dsymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB,
+ cblas_dsymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB,
*beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
@@ -120,15 +120,15 @@ void F77_dsymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_dsymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
+ cblas_dsymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
*beta, c, *ldc );
else
- cblas_dsymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
+ cblas_dsymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
*beta, c, *ldc );
}
void F77_dsyrk(int *layout, char *uplow, char *transp, int *n, int *k,
- double *alpha, double *a, int *lda,
+ double *alpha, double *a, int *lda,
double *beta, double *c, int *ldc ) {
int i,j,LDA,LDC;
@@ -159,7 +159,7 @@ void F77_dsyrk(int *layout, char *uplow, char *transp, int *n, int *k,
for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_dsyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
+ cblas_dsyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ )
@@ -168,10 +168,10 @@ void F77_dsyrk(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_dsyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_dsyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
else
- cblas_dsyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_dsyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
}
@@ -214,7 +214,7 @@ void F77_dsyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_dsyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA,
+ cblas_dsyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA,
B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ )
@@ -224,14 +224,14 @@ void F77_dsyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_dsyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda,
+ cblas_dsyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
else
- cblas_dsyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda,
+ cblas_dsyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
}
void F77_dtrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, double *alpha, double *a, int *lda, double *b,
+ int *m, int *n, double *alpha, double *a, int *lda, double *b,
int *ldb) {
int i,j,LDA,LDB;
double *A, *B;
@@ -265,7 +265,7 @@ void F77_dtrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i];
- cblas_dtrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
@@ -274,10 +274,10 @@ void F77_dtrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_dtrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
else
- cblas_dtrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
}
@@ -316,7 +316,7 @@ void F77_dtrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i];
- cblas_dtrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
@@ -325,9 +325,9 @@ void F77_dtrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_dtrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
else
- cblas_dtrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
}
diff --git a/CBLAS/testing/c_s2chke.c b/CBLAS/testing/c_s2chke.c
index 60b837cd..63f16715 100644
--- a/CBLAS/testing/c_s2chke.c
+++ b/CBLAS/testing/c_s2chke.c
@@ -26,9 +26,9 @@ void chkxer(void) {
void F77_s2chke(char *rout) {
char *sf = ( rout ) ;
- float A[2] = {0.0,0.0},
- X[2] = {0.0,0.0},
- Y[2] = {0.0,0.0},
+ 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 int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
@@ -46,588 +46,588 @@ void F77_s2chke(char *rout) {
if (strncmp( sf,"cblas_sgemv",11)==0) {
cblas_rout = "cblas_sgemv";
cblas_info = 1;
- cblas_sgemv(INVALID, CblasNoTrans, 0, 0,
+ cblas_sgemv(INVALID, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_sgemv(CblasColMajor, INVALID, 0, 0,
+ cblas_sgemv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_sgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
+ cblas_sgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_sgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
+ cblas_sgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_sgemv(CblasColMajor, CblasNoTrans, 2, 0,
+ cblas_sgemv(CblasColMajor, CblasNoTrans, 2, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
- cblas_sgemv(CblasRowMajor, INVALID, 0, 0,
+ cblas_sgemv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_sgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
+ cblas_sgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
+ cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 2,
+ cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ 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;
- cblas_sgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
+ cblas_sgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_sgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
+ cblas_sgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_sgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_sgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_sgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_sgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = FALSE;
- cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_sgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
+ cblas_sgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_sgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_sgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_sgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_sgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = TRUE;
- cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ 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;
- cblas_ssymv(INVALID, CblasUpper, 0,
+ cblas_ssymv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ssymv(CblasColMajor, INVALID, 0,
+ cblas_ssymv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ssymv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ssymv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_ssymv(CblasColMajor, CblasUpper, 2,
+ cblas_ssymv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ssymv(CblasColMajor, CblasUpper, 0,
+ cblas_ssymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_ssymv(CblasColMajor, CblasUpper, 0,
+ cblas_ssymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ssymv(CblasRowMajor, INVALID, 0,
+ cblas_ssymv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ssymv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ssymv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_ssymv(CblasRowMajor, CblasUpper, 2,
+ cblas_ssymv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ssymv(CblasRowMajor, CblasUpper, 0,
+ cblas_ssymv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_ssymv(CblasRowMajor, CblasUpper, 0,
+ cblas_ssymv(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;
- cblas_ssbmv(INVALID, CblasUpper, 0, 0,
+ cblas_ssbmv(INVALID, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ssbmv(CblasColMajor, INVALID, 0, 0,
+ cblas_ssbmv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ssbmv(CblasColMajor, CblasUpper, INVALID, 0,
+ cblas_ssbmv(CblasColMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ssbmv(CblasColMajor, CblasUpper, 0, INVALID,
+ cblas_ssbmv(CblasColMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_ssbmv(CblasColMajor, CblasUpper, 0, 1,
+ cblas_ssbmv(CblasColMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ssbmv(CblasRowMajor, INVALID, 0, 0,
+ cblas_ssbmv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ssbmv(CblasRowMajor, CblasUpper, INVALID, 0,
+ cblas_ssbmv(CblasRowMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ssbmv(CblasRowMajor, CblasUpper, 0, INVALID,
+ cblas_ssbmv(CblasRowMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 1,
+ cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0,
+ cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0,
+ 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;
- cblas_sspmv(INVALID, CblasUpper, 0,
+ cblas_sspmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_sspmv(CblasColMajor, INVALID, 0,
+ cblas_sspmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_sspmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_sspmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_sspmv(CblasColMajor, CblasUpper, 0,
+ cblas_sspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_sspmv(CblasColMajor, CblasUpper, 0,
+ cblas_sspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_sspmv(CblasRowMajor, INVALID, 0,
+ cblas_sspmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_sspmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_sspmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_sspmv(CblasRowMajor, CblasUpper, 0,
+ cblas_sspmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_sspmv(CblasRowMajor, CblasUpper, 0,
+ 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;
- cblas_strmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_strmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_strmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_strmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_strmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_strmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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;
- cblas_stbmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_stbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_stbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_stbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_stbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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;
- cblas_stpmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_stpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_stpmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_stpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_stpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_stpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_stpmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_stpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_stpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_stpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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;
- cblas_strsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_strsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_strsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_strsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_strsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_strsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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;
- cblas_stbsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_stbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_stbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_stbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_stbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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;
- cblas_stpsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_stpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_stpsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_stpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_stpsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_stpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_stpsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_stpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_stpsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_stpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_sger",10)==0) {
@@ -781,7 +781,7 @@ void F77_s2chke(char *rout) {
cblas_info = 6; RowMajorStrg = FALSE;
cblas_sspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
chkxer();
- }
+ }
if (cblas_ok == TRUE)
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
else
diff --git a/CBLAS/testing/c_s3chke.c b/CBLAS/testing/c_s3chke.c
index 1b2a536c..1872f005 100644
--- a/CBLAS/testing/c_s3chke.c
+++ b/CBLAS/testing/c_s3chke.c
@@ -26,9 +26,9 @@ void chkxer(void) {
void F77_s3chke(char *rout) {
char *sf = ( rout ) ;
- float A[2] = {0.0,0.0},
- B[2] = {0.0,0.0},
- C[2] = {0.0,0.0},
+ float A[2] = {0.0,0.0},
+ B[2] = {0.0,0.0},
+ C[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
@@ -39,22 +39,22 @@ void F77_s3chke(char *rout) {
cblas_xerbla(cblas_info,cblas_rout,"");
F77_xerbla(cblas_rout,&cblas_info);
}
-
+
cblas_ok = TRUE ;
cblas_lerr = PASSED ;
if (strncmp( sf,"cblas_sgemm" ,11)==0) {
cblas_rout = "cblas_sgemm" ;
cblas_info = 1;
- cblas_sgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
+ cblas_sgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_sgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
+ cblas_sgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_sgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
+ cblas_sgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
diff --git a/CBLAS/testing/c_sblas1.c b/CBLAS/testing/c_sblas1.c
index da72b722..2e63d981 100644
--- a/CBLAS/testing/c_sblas1.c
+++ b/CBLAS/testing/c_sblas1.c
@@ -30,14 +30,14 @@ float F77_scnrm2(const int *N, const void *X, const int *incX)
return cblas_scnrm2(*N, X, *incX);
}
-void F77_scopy(const int *N, const float *X, const int *incX,
+void F77_scopy(const int *N, const float *X, const int *incX,
float *Y, const int *incY)
{
cblas_scopy(*N, X, *incX, Y, *incY);
return;
}
-float F77_sdot(const int *N, const float *X, const int *incX,
+float F77_sdot(const int *N, const float *X, const int *incX,
const float *Y, const int *incY)
{
return cblas_sdot(*N, X, *incX, Y, *incY);
diff --git a/CBLAS/testing/c_sblas2.c b/CBLAS/testing/c_sblas2.c
index c04d8db4..f1195048 100644
--- a/CBLAS/testing/c_sblas2.c
+++ b/CBLAS/testing/c_sblas2.c
@@ -8,8 +8,8 @@
#include "cblas.h"
#include "cblas_test.h"
-void F77_sgemv(int *layout, char *transp, int *m, int *n, float *alpha,
- float *a, int *lda, float *x, int *incx, float *beta,
+void F77_sgemv(int *layout, char *transp, int *m, int *n, float *alpha,
+ float *a, int *lda, float *x, int *incx, float *beta,
float *y, int *incy ) {
float *A;
@@ -23,7 +23,7 @@ void F77_sgemv(int *layout, char *transp, int *m, int *n, float *alpha,
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
A[ LDA*i+j ]=a[ (*lda)*j+i ];
- cblas_sgemv( CblasRowMajor, trans,
+ cblas_sgemv( CblasRowMajor, trans,
*m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
free(A);
}
@@ -68,9 +68,9 @@ void F77_strmv(int *layout, char *uplow, char *transp, char *diagn,
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n+1;
@@ -88,7 +88,7 @@ void F77_strmv(int *layout, char *uplow, char *transp, char *diagn,
}
}
-void F77_strsv(int *layout, char *uplow, char *transp, char *diagn,
+void F77_strsv(int *layout, char *uplow, char *transp, char *diagn,
int *n, float *a, int *lda, float *x, int *incx ) {
float *A;
int i,j,LDA;
@@ -112,7 +112,7 @@ void F77_strsv(int *layout, char *uplow, char *transp, char *diagn,
else
cblas_strsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx );
}
-void F77_ssymv(int *layout, char *uplow, int *n, float *alpha, float *a,
+void F77_ssymv(int *layout, char *uplow, int *n, float *alpha, float *a,
int *lda, float *x, int *incx, float *beta, float *y,
int *incy) {
float *A;
@@ -136,7 +136,7 @@ void F77_ssymv(int *layout, char *uplow, int *n, float *alpha, float *a,
*beta, y, *incy );
}
-void F77_ssyr(int *layout, char *uplow, int *n, float *alpha, float *x,
+void F77_ssyr(int *layout, char *uplow, int *n, float *alpha, float *x,
int *incx, float *a, int *lda) {
float *A;
int i,j,LDA;
@@ -160,7 +160,7 @@ void F77_ssyr(int *layout, char *uplow, int *n, float *alpha, float *x,
cblas_ssyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda);
}
-void F77_ssyr2(int *layout, char *uplow, int *n, float *alpha, float *x,
+void F77_ssyr2(int *layout, char *uplow, int *n, float *alpha, float *x,
int *incx, float *y, int *incy, float *a, int *lda) {
float *A;
int i,j,LDA;
@@ -185,7 +185,7 @@ void F77_ssyr2(int *layout, char *uplow, int *n, float *alpha, float *x,
}
void F77_sgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
- float *alpha, float *a, int *lda, float *x, int *incx,
+ float *alpha, float *a, int *lda, float *x, int *incx,
float *beta, float *y, int *incy ) {
float *A;
@@ -213,7 +213,7 @@ void F77_sgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
for( j=jcol; j<(*n+*kl); j++ )
A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];
}
- cblas_sgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha,
+ cblas_sgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha,
A, LDA, x, *incx, *beta, y, *incy );
free(A);
}
@@ -230,9 +230,9 @@ void F77_stbmv(int *layout, char *uplow, char *transp, char *diagn,
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *k+1;
@@ -276,9 +276,9 @@ void F77_stbsv(int *layout, char *uplow, char *transp, char *diagn,
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *k+1;
@@ -315,7 +315,7 @@ void F77_stbsv(int *layout, char *uplow, char *transp, char *diagn,
}
void F77_ssbmv(int *layout, char *uplow, int *n, int *k, float *alpha,
- float *a, int *lda, float *x, int *incx, float *beta,
+ float *a, int *lda, float *x, int *incx, float *beta,
float *y, int *incy) {
float *A;
int i,j,irow,jcol,LDA;
@@ -387,12 +387,12 @@ void F77_sspmv(int *layout, char *uplow, int *n, float *alpha, float *ap,
for( j=0; j<i+1; j++, k++ )
AP[ k ]=A[ LDA*i+j ];
}
- cblas_sspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,
+ cblas_sspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,
*incy );
free(A); free(AP);
}
else
- cblas_sspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
+ cblas_sspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
*incy );
}
@@ -404,9 +404,9 @@ void F77_stpmv(int *layout, char *uplow, char *transp, char *diagn,
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n;
@@ -443,9 +443,9 @@ void F77_stpsv(int *layout, char *uplow, char *transp, char *diagn,
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n;
@@ -475,7 +475,7 @@ void F77_stpsv(int *layout, char *uplow, char *transp, char *diagn,
cblas_stpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
}
-void F77_sspr(int *layout, char *uplow, int *n, float *alpha, float *x,
+void F77_sspr(int *layout, char *uplow, int *n, float *alpha, float *x,
int *incx, float *ap ){
float *A, *AP;
int i,j,k,LDA;
@@ -526,7 +526,7 @@ void F77_sspr(int *layout, char *uplow, int *n, float *alpha, float *x,
cblas_sspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap );
}
-void F77_sspr2(int *layout, char *uplow, int *n, float *alpha, float *x,
+void F77_sspr2(int *layout, char *uplow, int *n, float *alpha, float *x,
int *incx, float *y, int *incy, float *ap ){
float *A, *AP;
int i,j,k,LDA;
diff --git a/CBLAS/testing/c_sblas3.c b/CBLAS/testing/c_sblas3.c
index 3da274cd..024fc474 100644
--- a/CBLAS/testing/c_sblas3.c
+++ b/CBLAS/testing/c_sblas3.c
@@ -9,7 +9,7 @@
#include "cblas.h"
#include "cblas_test.h"
-void F77_sgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
+void F77_sgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
int *k, float *alpha, float *a, int *lda, float *b, int *ldb,
float *beta, float *c, int *ldc ) {
@@ -107,7 +107,7 @@ void F77_ssymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_ssymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB,
+ cblas_ssymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB,
*beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
@@ -117,15 +117,15 @@ void F77_ssymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_ssymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
+ cblas_ssymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
*beta, c, *ldc );
else
- cblas_ssymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
+ cblas_ssymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
*beta, c, *ldc );
}
void F77_ssyrk(int *layout, char *uplow, char *transp, int *n, int *k,
- float *alpha, float *a, int *lda,
+ float *alpha, float *a, int *lda,
float *beta, float *c, int *ldc ) {
int i,j,LDA,LDC;
@@ -156,7 +156,7 @@ void F77_ssyrk(int *layout, char *uplow, char *transp, int *n, int *k,
for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_ssyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
+ cblas_ssyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ )
@@ -165,10 +165,10 @@ void F77_ssyrk(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_ssyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_ssyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
else
- cblas_ssyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_ssyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
}
@@ -211,7 +211,7 @@ void F77_ssyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_ssyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA,
+ cblas_ssyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA,
B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ )
@@ -221,14 +221,14 @@ void F77_ssyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_ssyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda,
+ cblas_ssyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
else
- cblas_ssyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda,
+ cblas_ssyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
}
void F77_strmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, float *alpha, float *a, int *lda, float *b,
+ int *m, int *n, float *alpha, float *a, int *lda, float *b,
int *ldb) {
int i,j,LDA,LDB;
float *A, *B;
@@ -262,7 +262,7 @@ void F77_strmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i];
- cblas_strmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
@@ -271,10 +271,10 @@ void F77_strmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_strmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
else
- cblas_strmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
}
@@ -313,7 +313,7 @@ void F77_strsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i];
- cblas_strsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
@@ -322,9 +322,9 @@ void F77_strsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_strsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
else
- cblas_strsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
}
diff --git a/CBLAS/testing/c_xerbla.c b/CBLAS/testing/c_xerbla.c
index cc5eda40..0ba5264d 100644
--- a/CBLAS/testing/c_xerbla.c
+++ b/CBLAS/testing/c_xerbla.c
@@ -11,10 +11,10 @@ void cblas_xerbla(int info, const char *rout, const char *form, ...)
extern int link_xerbla;
extern int RowMajorStrg;
extern char *cblas_rout;
-
- /* Initially, c__3chke will call this routine with
- * global variable link_xerbla=1, and F77_xerbla will set link_xerbla=0.
- * This is done to fool the linker into loading these subroutines first
+
+ /* Initially, c__3chke will call this routine with
+ * global variable link_xerbla=1, and F77_xerbla will set link_xerbla=0.
+ * This is done to fool the linker into loading these subroutines first
* instead of ones in the CBLAS or the legacy BLAS library.
*/
if (link_xerbla) return;
@@ -26,11 +26,11 @@ void cblas_xerbla(int info, const char *rout, const char *form, ...)
if (RowMajorStrg)
{
- /* To properly check leading dimension problems in cblas__gemm, we
- * need to do the following trick. When cblas__gemm is called with
- * CblasRowMajor, the arguments A and B switch places in the call to
- * f77__gemm. Thus when we test for bad leading dimension problems
- * for A and B, lda is in position 11 instead of 9, and ldb is in
+ /* To properly check leading dimension problems in cblas__gemm, we
+ * need to do the following trick. When cblas__gemm is called with
+ * CblasRowMajor, the arguments A and B switch places in the call to
+ * f77__gemm. Thus when we test for bad leading dimension problems
+ * for A and B, lda is in position 11 instead of 9, and ldb is in
* position 9 instead of 11.
*/
if (strstr(rout,"gemm") != 0)
@@ -117,7 +117,7 @@ void F77_xerbla(char *srname, void *vinfo)
}
for(i=0; i < 6; i++) rout[i+6] = tolower(srname[i]);
for(i=11; i >= 9; i--) if (rout[i] == ' ') rout[i] = '\0';
-
+
/* We increment *info by 1 since the CBLAS interface adds one more
* argument to all level 2 and 3 routines.
*/
diff --git a/CBLAS/testing/c_z2chke.c b/CBLAS/testing/c_z2chke.c
index 09aaa68a..d51c7c26 100644
--- a/CBLAS/testing/c_z2chke.c
+++ b/CBLAS/testing/c_z2chke.c
@@ -26,11 +26,11 @@ void chkxer(void) {
void F77_z2chke(char *rout) {
char *sf = ( rout ) ;
- double A[2] = {0.0,0.0},
- X[2] = {0.0,0.0},
- Y[2] = {0.0,0.0},
+ double A[2] = {0.0,0.0},
+ X[2] = {0.0,0.0},
+ Y[2] = {0.0,0.0},
ALPHA[2] = {0.0,0.0},
- BETA[2] = {0.0,0.0},
+ BETA[2] = {0.0,0.0},
RALPHA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
@@ -48,588 +48,588 @@ void F77_z2chke(char *rout) {
if (strncmp( sf,"cblas_zgemv",11)==0) {
cblas_rout = "cblas_zgemv";
cblas_info = 1;
- cblas_zgemv(INVALID, CblasNoTrans, 0, 0,
+ cblas_zgemv(INVALID, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, INVALID, 0, 0,
+ cblas_zgemv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
+ cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
+ cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0,
+ cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, INVALID, 0, 0,
+ cblas_zgemv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
+ cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
+ cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2,
+ cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_zgbmv",11)==0) {
cblas_rout = "cblas_zgbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
+ cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
+ cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
+ cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_zhemv",11)==0) {
cblas_rout = "cblas_zhemv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_zhemv(INVALID, CblasUpper, 0,
+ cblas_zhemv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_zhemv(CblasColMajor, INVALID, 0,
+ cblas_zhemv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_zhemv(CblasColMajor, CblasUpper, INVALID,
+ cblas_zhemv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_zhemv(CblasColMajor, CblasUpper, 2,
+ cblas_zhemv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_zhemv(CblasColMajor, CblasUpper, 0,
+ cblas_zhemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_zhemv(CblasColMajor, CblasUpper, 0,
+ cblas_zhemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_zhemv(CblasRowMajor, INVALID, 0,
+ cblas_zhemv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_zhemv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_zhemv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_zhemv(CblasRowMajor, CblasUpper, 2,
+ cblas_zhemv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_zhemv(CblasRowMajor, CblasUpper, 0,
+ cblas_zhemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_zhemv(CblasRowMajor, CblasUpper, 0,
+ cblas_zhemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_zhbmv",11)==0) {
cblas_rout = "cblas_zhbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_zhbmv(INVALID, CblasUpper, 0, 0,
+ cblas_zhbmv(INVALID, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, INVALID, 0, 0,
+ cblas_zhbmv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0,
+ cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID,
+ cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1,
+ cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, INVALID, 0, 0,
+ cblas_zhbmv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0,
+ cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID,
+ cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1,
+ cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
+ cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
+ cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_zhpmv",11)==0) {
cblas_rout = "cblas_zhpmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_zhpmv(INVALID, CblasUpper, 0,
+ cblas_zhpmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_zhpmv(CblasColMajor, INVALID, 0,
+ cblas_zhpmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_zhpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_zhpmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_zhpmv(CblasColMajor, CblasUpper, 0,
+ cblas_zhpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_zhpmv(CblasColMajor, CblasUpper, 0,
+ cblas_zhpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_zhpmv(CblasRowMajor, INVALID, 0,
+ cblas_zhpmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
+ cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
+ cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztrmv",11)==0) {
cblas_rout = "cblas_ztrmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztrmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztbmv",11)==0) {
cblas_rout = "cblas_ztbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztpmv",11)==0) {
cblas_rout = "cblas_ztpmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztrsv",11)==0) {
cblas_rout = "cblas_ztrsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztrsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztbsv",11)==0) {
cblas_rout = "cblas_ztbsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztpsv",11)==0) {
cblas_rout = "cblas_ztpsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztpsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_zgeru",10)==0) {
@@ -818,7 +818,7 @@ void F77_z2chke(char *rout) {
cblas_info = 6; RowMajorStrg = FALSE;
cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
chkxer();
- }
+ }
if (cblas_ok == TRUE)
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
else
diff --git a/CBLAS/testing/c_z3chke.c b/CBLAS/testing/c_z3chke.c
index 0bb1bfb6..10078a10 100644
--- a/CBLAS/testing/c_z3chke.c
+++ b/CBLAS/testing/c_z3chke.c
@@ -30,7 +30,7 @@ void F77_z3chke(char * rout) {
B[4] = {0.0,0.0,0.0,0.0},
C[4] = {0.0,0.0,0.0,0.0},
ALPHA[2] = {0.0,0.0},
- BETA[2] = {0.0,0.0},
+ BETA[2] = {0.0,0.0},
RALPHA = 0.0, RBETA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
@@ -49,15 +49,15 @@ void F77_z3chke(char * rout) {
cblas_rout = "cblas_zgemm" ;
cblas_info = 1;
- cblas_zgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
+ cblas_zgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_zgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
+ cblas_zgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_zgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
+ cblas_zgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
@@ -272,7 +272,7 @@ void F77_z3chke(char * rout) {
cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
-
+
} else if (strncmp( sf,"cblas_zhemm" ,11)==0) {
cblas_rout = "cblas_zhemm" ;
@@ -1696,7 +1696,7 @@ void F77_z3chke(char * rout) {
cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
-
+
}
if (cblas_ok == 1 )
diff --git a/CBLAS/testing/c_zblas1.c b/CBLAS/testing/c_zblas1.c
index d2215a89..2b21d8f1 100644
--- a/CBLAS/testing/c_zblas1.c
+++ b/CBLAS/testing/c_zblas1.c
@@ -15,21 +15,21 @@ void F77_zaxpy(const int *N, const void *alpha, void *X,
return;
}
-void F77_zcopy(const int *N, void *X, const int *incX,
+void F77_zcopy(const int *N, void *X, const int *incX,
void *Y, const int *incY)
{
cblas_zcopy(*N, X, *incX, Y, *incY);
return;
}
-void F77_zdotc(const int *N, const void *X, const int *incX,
+void F77_zdotc(const int *N, const void *X, const int *incX,
const void *Y, const int *incY,void *dotc)
{
cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc);
return;
}
-void F77_zdotu(const int *N, void *X, const int *incX,
+void F77_zdotu(const int *N, void *X, const int *incX,
void *Y, const int *incY,void *dotu)
{
cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu);
diff --git a/CBLAS/testing/c_zblas2.c b/CBLAS/testing/c_zblas2.c
index d4b46081..b6fbdd62 100644
--- a/CBLAS/testing/c_zblas2.c
+++ b/CBLAS/testing/c_zblas2.c
@@ -8,9 +8,9 @@
#include "cblas.h"
#include "cblas_test.h"
-void F77_zgemv(int *layout, char *transp, int *m, int *n,
+void F77_zgemv(int *layout, char *transp, int *m, int *n,
const void *alpha,
- CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx,
+ CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx,
const void *beta, void *y, int *incy) {
CBLAS_TEST_ZOMPLEX *A;
@@ -38,9 +38,9 @@ void F77_zgemv(int *layout, char *transp, int *m, int *n,
*m, *n, alpha, a, *lda, x, *incx, beta, y, *incy );
}
-void F77_zgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
- CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
- CBLAS_TEST_ZOMPLEX *x, int *incx,
+void F77_zgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
+ CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
+ CBLAS_TEST_ZOMPLEX *x, int *incx,
CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy) {
CBLAS_TEST_ZOMPLEX *A;
@@ -85,8 +85,8 @@ void F77_zgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
*incx, beta, y, *incy );
}
-void F77_zgeru(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha,
- CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy,
+void F77_zgeru(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha,
+ CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy,
CBLAS_TEST_ZOMPLEX *a, int *lda){
CBLAS_TEST_ZOMPLEX *A;
@@ -114,8 +114,8 @@ void F77_zgeru(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha,
cblas_zgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda );
}
-void F77_zgerc(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha,
- CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy,
+void F77_zgerc(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha,
+ CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy,
CBLAS_TEST_ZOMPLEX *a, int *lda) {
CBLAS_TEST_ZOMPLEX *A;
int i,j,LDA;
@@ -165,7 +165,7 @@ void F77_zhemv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha,
free(A);
}
else if (*layout == TEST_COL_MJR)
- cblas_zhemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx,
+ cblas_zhemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx,
beta, y, *incy );
else
cblas_zhemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx,
@@ -173,7 +173,7 @@ void F77_zhemv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha,
}
void F77_zhbmv(int *layout, char *uplow, int *n, int *k,
- CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
+ CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *beta,
CBLAS_TEST_ZOMPLEX *y, int *incy){
@@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA;
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_zhbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x,
+ cblas_zhbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x,
*incx, beta, y, *incy );
else {
LDA = *k+2;
@@ -237,7 +237,7 @@ int i,irow,j,jcol,LDA;
}
void F77_zhpmv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha,
- CBLAS_TEST_ZOMPLEX *ap, CBLAS_TEST_ZOMPLEX *x, int *incx,
+ CBLAS_TEST_ZOMPLEX *ap, CBLAS_TEST_ZOMPLEX *x, int *incx,
CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy){
CBLAS_TEST_ZOMPLEX *A, *AP;
@@ -247,7 +247,7 @@ void F77_zhpmv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha,
get_uplo_type(uplow,&uplo);
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_zhpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx,
+ cblas_zhpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx,
beta, y, *incy);
else {
LDA = *n;
@@ -344,7 +344,7 @@ void F77_ztbmv(int *layout, char *uplow, char *transp, char *diagn,
}
}
}
- cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x,
+ cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x,
*incx);
free(A);
}
@@ -371,7 +371,7 @@ void F77_ztbsv(int *layout, char *uplow, char *transp, char *diagn,
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_ztbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x,
+ cblas_ztbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x,
*incx);
else {
LDA = *k+2;
@@ -408,7 +408,7 @@ void F77_ztbsv(int *layout, char *uplow, char *transp, char *diagn,
}
}
}
- cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA,
+ cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA,
x, *incx);
free(A);
}
@@ -674,7 +674,7 @@ void F77_zhpr2(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha,
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_zhpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y,
+ cblas_zhpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y,
*incy, ap );
else {
LDA = *n;
@@ -752,7 +752,7 @@ void F77_zher(int *layout, char *uplow, int *n, double *alpha,
LDA = *n+1;
A=(CBLAS_TEST_ZOMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_ZOMPLEX ));
- for( i=0; i<*n; i++ )
+ for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
@@ -786,7 +786,7 @@ void F77_zher2(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha,
LDA = *n+1;
A= ( CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );
- for( i=0; i<*n; i++ )
+ for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
diff --git a/CBLAS/testing/c_zblas3.c b/CBLAS/testing/c_zblas3.c
index de4cb56d..65a82135 100644
--- a/CBLAS/testing/c_zblas3.c
+++ b/CBLAS/testing/c_zblas3.c
@@ -11,9 +11,9 @@
#define TEST_ROW_MJR 1
#define UNDEFINED -1
-void F77_zgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
+void F77_zgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
int *k, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
- CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta,
+ CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta,
CBLAS_TEST_ZOMPLEX *c, int *ldc ) {
CBLAS_TEST_ZOMPLEX *A, *B, *C;
@@ -133,7 +133,7 @@ void F77_zhemm(int *layout, char *rtlf, char *uplow, int *m, int *n,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_zhemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
+ cblas_zhemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
@@ -145,10 +145,10 @@ void F77_zhemm(int *layout, char *rtlf, char *uplow, int *m, int *n,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zhemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_zhemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
else
- cblas_zhemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_zhemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
}
void F77_zsymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
@@ -189,7 +189,7 @@ void F77_zsymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_zsymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
+ cblas_zsymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
@@ -199,15 +199,15 @@ void F77_zsymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zsymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_zsymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
else
- cblas_zsymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_zsymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
}
void F77_zherk(int *layout, char *uplow, char *transp, int *n, int *k,
- double *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
+ double *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
double *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) {
int i,j,LDA,LDC;
@@ -244,7 +244,7 @@ void F77_zherk(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_zherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
+ cblas_zherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
@@ -255,15 +255,15 @@ void F77_zherk(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_zherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
else
- cblas_zherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_zherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
}
void F77_zsyrk(int *layout, char *uplow, char *transp, int *n, int *k,
- CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
+ CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) {
int i,j,LDA,LDC;
@@ -300,7 +300,7 @@ void F77_zsyrk(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_zsyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta,
+ cblas_zsyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
@@ -311,10 +311,10 @@ void F77_zsyrk(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zsyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta,
+ cblas_zsyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta,
c, *ldc );
else
- cblas_zsyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta,
+ cblas_zsyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta,
c, *ldc );
}
void F77_zher2k(int *layout, char *uplow, char *transp, int *n, int *k,
@@ -363,7 +363,7 @@ void F77_zher2k(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_zher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
+ cblas_zher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
@@ -375,10 +375,10 @@ void F77_zher2k(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_zher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
else
- cblas_zher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_zher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
}
void F77_zsyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
@@ -427,7 +427,7 @@ void F77_zsyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_zsyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
+ cblas_zsyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
B, LDB, beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
@@ -439,14 +439,14 @@ void F77_zsyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zsyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_zsyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, beta, c, *ldc );
else
- cblas_zsyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_zsyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, beta, c, *ldc );
}
void F77_ztrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a,
+ int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a,
int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) {
int i,j,LDA,LDB;
CBLAS_TEST_ZOMPLEX *A, *B;
@@ -486,7 +486,7 @@ void F77_ztrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
B[i*LDB+j].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag;
}
- cblas_ztrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
@@ -497,15 +497,15 @@ void F77_ztrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_ztrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
else
- cblas_ztrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
}
void F77_ztrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a,
+ int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a,
int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) {
int i,j,LDA,LDB;
CBLAS_TEST_ZOMPLEX *A, *B;
@@ -545,7 +545,7 @@ void F77_ztrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
B[i*LDB+j].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag;
}
- cblas_ztrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
@@ -556,9 +556,9 @@ void F77_ztrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_ztrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
else
- cblas_ztrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
}
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-29 18:20:45 +0000