summaryrefslogtreecommitdiff
path: root/CBLAS/testing/c_z3chke.c
diff options
context:
space:
mode:
Diffstat (limited to 'CBLAS/testing/c_z3chke.c')
-rw-r--r--CBLAS/testing/c_z3chke.c1706
1 files changed, 1706 insertions, 0 deletions
diff --git a/CBLAS/testing/c_z3chke.c b/CBLAS/testing/c_z3chke.c
new file mode 100644
index 00000000..0bb1bfb6
--- /dev/null
+++ b/CBLAS/testing/c_z3chke.c
@@ -0,0 +1,1706 @@
+#include <stdio.h>
+#include <string.h>
+#include "cblas.h"
+#include "cblas_test.h"
+
+int cblas_ok, cblas_lerr, cblas_info;
+int link_xerbla=TRUE;
+char *cblas_rout;
+
+#ifdef F77_Char
+void F77_xerbla(F77_Char F77_srname, void *vinfo);
+#else
+void F77_xerbla(char *srname, void *vinfo);
+#endif
+
+void chkxer(void) {
+ extern int cblas_ok, cblas_lerr, cblas_info;
+ extern int link_xerbla;
+ extern char *cblas_rout;
+ if (cblas_lerr == 1 ) {
+ printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
+ cblas_ok = 0 ;
+ }
+ cblas_lerr = 1 ;
+}
+
+void F77_z3chke(char * rout) {
+ char *sf = ( rout ) ;
+ double A[4] = {0.0,0.0,0.0,0.0},
+ 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},
+ RALPHA = 0.0, RBETA = 0.0;
+ extern int cblas_info, cblas_lerr, cblas_ok;
+ extern int RowMajorStrg;
+ extern char *cblas_rout;
+
+ cblas_ok = TRUE ;
+ cblas_lerr = PASSED ;
+
+ if (link_xerbla) /* call these first to link */
+ {
+ cblas_xerbla(cblas_info,cblas_rout,"");
+ F77_xerbla(cblas_rout,&cblas_info);
+ }
+
+ if (strncmp( sf,"cblas_zgemm" ,11)==0) {
+ cblas_rout = "cblas_zgemm" ;
+
+ cblas_info = 1;
+ 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,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 1;
+ cblas_zgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 1;
+ cblas_zgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 2; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 2; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 3; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 3; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 9; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 9; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 9; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 9; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 14; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 14; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 14; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 14; RowMajorStrg = FALSE;
+ cblas_zgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 9; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 9; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
+ ALPHA, A, 1, B, 2, BETA, C, 2 );
+ chkxer();
+ cblas_info = 9; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 9; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 14; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 14; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 14; RowMajorStrg = TRUE;
+ cblas_zgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 14; RowMajorStrg = TRUE;
+ 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" ;
+
+ cblas_info = 1;
+ cblas_zhemm( INVALID, CblasRight, CblasLower, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 2; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, INVALID, CblasUpper, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 3; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasLeft, INVALID, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasRight, CblasLower, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasRight, CblasLower, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasRight, CblasUpper, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasRight, CblasLower, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasRight, CblasLower, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zhemm( CblasColMajor, CblasRight, CblasLower, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasLeft, CblasLower, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zhemm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+
+ } else if (strncmp( sf,"cblas_zsymm" ,11)==0) {
+ cblas_rout = "cblas_zsymm" ;
+
+ cblas_info = 1;
+ cblas_zsymm( INVALID, CblasRight, CblasLower, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 2; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, INVALID, CblasUpper, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 3; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasLeft, INVALID, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasRight, CblasUpper, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasRight, CblasLower, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zsymm( CblasColMajor, CblasRight, CblasLower, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+
+ } else if (strncmp( sf,"cblas_ztrmm" ,11)==0) {
+ cblas_rout = "cblas_ztrmm" ;
+
+ cblas_info = 1;
+ cblas_ztrmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 2; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 3; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
+ CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
+ CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ INVALID, 0, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
+ chkxer();
+
+ } else if (strncmp( sf,"cblas_ztrsm" ,11)==0) {
+ cblas_rout = "cblas_ztrsm" ;
+
+ cblas_info = 1;
+ cblas_ztrsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 2; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 3; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans,
+ CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasUpper, INVALID,
+ CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ INVALID, 0, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = FALSE;
+ cblas_ztrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 6; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 7; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
+ chkxer();
+ cblas_info = 12; RowMajorStrg = TRUE;
+ cblas_ztrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans,
+ CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
+ chkxer();
+
+ } else if (strncmp( sf,"cblas_zherk" ,11)==0) {
+ cblas_rout = "cblas_zherk" ;
+
+ cblas_info = 1;
+ cblas_zherk(INVALID, CblasUpper, CblasNoTrans, 0, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 2; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, INVALID, CblasNoTrans, 0, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 3; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasUpper, CblasTrans, 0, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zherk(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
+ RALPHA, A, 1, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zherk(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zherk(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
+ RALPHA, A, 1, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zherk(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
+ RALPHA, A, 1, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
+ RALPHA, A, 1, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasLower, CblasConjTrans, 0, 2,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zherk(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zherk(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0,
+ RALPHA, A, 2, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zherk(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zherk(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0,
+ RALPHA, A, 2, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
+ RALPHA, A, 2, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
+ RALPHA, A, 2, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zherk(CblasColMajor, CblasLower, CblasConjTrans, 2, 0,
+ RALPHA, A, 1, RBETA, C, 1 );
+ chkxer();
+
+ } else if (strncmp( sf,"cblas_zsyrk" ,11)==0) {
+ cblas_rout = "cblas_zsyrk" ;
+
+ cblas_info = 1;
+ cblas_zsyrk(INVALID, CblasUpper, CblasNoTrans, 0, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 2; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, INVALID, CblasNoTrans, 0, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 3; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasLower, CblasTrans, INVALID, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasLower, CblasTrans, 0, INVALID,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsyrk(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
+ ALPHA, A, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsyrk(CblasRowMajor, CblasUpper, CblasTrans, 2, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsyrk(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
+ ALPHA, A, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsyrk(CblasRowMajor, CblasLower, CblasTrans, 2, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasUpper, CblasTrans, 0, 2,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasLower, CblasTrans, 0, 2,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zsyrk(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zsyrk(CblasRowMajor, CblasUpper, CblasTrans, 2, 0,
+ ALPHA, A, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zsyrk(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = TRUE;
+ cblas_zsyrk(CblasRowMajor, CblasLower, CblasTrans, 2, 0,
+ ALPHA, A, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
+ ALPHA, A, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasUpper, CblasTrans, 2, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
+ ALPHA, A, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 11; RowMajorStrg = FALSE;
+ cblas_zsyrk(CblasColMajor, CblasLower, CblasTrans, 2, 0,
+ ALPHA, A, 1, BETA, C, 1 );
+ chkxer();
+
+ } else if (strncmp( sf,"cblas_zher2k" ,12)==0) {
+ cblas_rout = "cblas_zher2k" ;
+
+ cblas_info = 1;
+ cblas_zher2k(INVALID, CblasUpper, CblasNoTrans, 0, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 2; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, INVALID, CblasNoTrans, 0, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 3; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasUpper, CblasTrans, 0, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
+ ALPHA, A, 1, B, 2, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0,
+ ALPHA, A, 1, B, 2, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
+ ALPHA, A, 1, B, 2, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0,
+ ALPHA, A, 1, B, 2, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, 2,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
+ ALPHA, A, 2, B, 1, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0,
+ ALPHA, A, 2, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
+ ALPHA, A, 2, B, 1, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0,
+ ALPHA, A, 2, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
+ ALPHA, A, 2, B, 1, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2,
+ ALPHA, A, 2, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
+ ALPHA, A, 2, B, 1, RBETA, C, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, 2,
+ ALPHA, A, 2, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0,
+ ALPHA, A, 2, B, 2, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0,
+ ALPHA, A, 2, B, 2, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
+ ALPHA, A, 2, B, 2, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
+ ALPHA, A, 2, B, 2, RBETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zher2k(CblasColMajor, CblasLower, CblasConjTrans, 2, 0,
+ ALPHA, A, 1, B, 1, RBETA, C, 1 );
+ chkxer();
+
+ } else if (strncmp( sf,"cblas_zsyr2k" ,12)==0) {
+ cblas_rout = "cblas_zsyr2k" ;
+
+ cblas_info = 1;
+ cblas_zsyr2k(INVALID, CblasUpper, CblasNoTrans, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 2; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, INVALID, CblasNoTrans, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 3; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 4; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, INVALID, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 5; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 0, INVALID,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
+ ALPHA, A, 1, B, 2, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
+ ALPHA, A, 1, B, 2, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0,
+ ALPHA, A, 1, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 8; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 0, 2,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
+ ALPHA, A, 2, B, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
+ ALPHA, A, 2, B, 1, BETA, C, 2 );
+ chkxer();
+ cblas_info = 10; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 0, 2,
+ ALPHA, A, 2, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = TRUE;
+ cblas_zsyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasUpper, CblasTrans, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0,
+ ALPHA, A, 2, B, 2, BETA, C, 1 );
+ chkxer();
+ cblas_info = 13; RowMajorStrg = FALSE;
+ cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0,
+ ALPHA, A, 1, B, 1, BETA, C, 1 );
+ chkxer();
+
+ }
+
+ if (cblas_ok == 1 )
+ printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
+ else
+ printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-25 22:08:11 +0000