181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#include <stdio.h> 281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#include <string.h> 381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#include "cblas.h" 481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#include "cblas_test.h" 581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayint cblas_ok, cblas_lerr, cblas_info; 781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayint link_xerbla=TRUE; 881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murraychar *cblas_rout; 981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 1081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#ifdef F77_Char 1181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayvoid F77_xerbla(F77_Char F77_srname, void *vinfo); 1281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#else 1381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayvoid F77_xerbla(char *srname, void *vinfo); 1481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#endif 1581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 1681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayvoid chkxer(void) { 1781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray extern int cblas_ok, cblas_lerr, cblas_info; 1881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray extern int link_xerbla; 1981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray extern char *cblas_rout; 2081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray if (cblas_lerr == 1 ) { 2181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout); 2281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ok = 0 ; 2381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } 2481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_lerr = 1 ; 2581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray} 2681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayvoid F77_s3chke(char *rout) { 2881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray char *sf = ( rout ) ; 2981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray float A[2] = {0.0,0.0}, 3081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray B[2] = {0.0,0.0}, 3181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray C[2] = {0.0,0.0}, 3281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA=0.0, BETA=0.0; 3381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray extern int cblas_info, cblas_lerr, cblas_ok; 3481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray extern int RowMajorStrg; 3581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray extern char *cblas_rout; 3681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 3781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray if (link_xerbla) /* call these first to link */ 3881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray { 3981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_xerbla(cblas_info,cblas_rout,""); 4081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray F77_xerbla(cblas_rout,&cblas_info); 4181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } 4281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 4381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ok = TRUE ; 4481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_lerr = PASSED ; 4581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 4681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray if (strncmp( sf,"cblas_sgemm" ,11)==0) { 4781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_sgemm" ; 4881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 4981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, 5081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 5181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 5281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 5381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, 5481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 5581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 5681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 5781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, 5881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 5981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 6081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 6181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0, 6281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 6381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 6481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 6581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0, 6681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 6781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 6881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 6981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0, 7081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 7181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 7281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 7381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, 7481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 7581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 7681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 7781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0, 7881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 7981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 8081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 8181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, 8281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 8381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 8481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 8581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, 8681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 8781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 8881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 8981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, 9081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 9181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 9281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 9381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0, 9481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 9581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 9681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 9781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, 9881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 9981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 10081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 10181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, 10281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 10381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 10481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 10581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, 10681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 10781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 10881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 10981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0, 11081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 11181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 11281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 11381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, 11481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 11581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 11681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 11781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, 11881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 11981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 12081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 12181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, 12281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 12381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 12481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 12581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID, 12681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 12781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 12881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = FALSE; 12981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, 13081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 2 ); 13181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 13281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = FALSE; 13381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, 13481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 2 ); 13581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 13681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = FALSE; 13781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, 13881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 13981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 14081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = FALSE; 14181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2, 14281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 14381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 14481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 14581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, 14681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 14781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 14881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 14981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, 15081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 15181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 15281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 15381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0, 15481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 15581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 15681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 15781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0, 15881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 15981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 16081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = FALSE; 16181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, 16281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 16381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 16481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = FALSE; 16581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, 16681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 16781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 16881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = FALSE; 16981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0, 17081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 17181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 17281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = FALSE; 17381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0, 17481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 17581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 17681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 17781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 17881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, 17981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 18081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 18181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 18281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, 18381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 18481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 18581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 18681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, 18781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 18881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 18981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 19081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0, 19181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 19281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 19381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 19481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, 19581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 19681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 19781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 19881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, 19981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 20081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 20181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 20281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, 20381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 20481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 20581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 20681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0, 20781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 20881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 20981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 21081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, 21181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 21281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 21381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 21481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, 21581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 21681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 21781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 21881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, 21981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 22081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 22181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 22281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID, 22381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 22481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 22581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = TRUE; 22681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, 22781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 2 ); 22881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 22981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = TRUE; 23081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, 23181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 2 ); 23281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 23381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = TRUE; 23481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0, 23581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 23681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 23781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = TRUE; 23881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0, 23981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 24081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 24181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 24281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, 24381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 24481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 24581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 24681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, 24781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 24881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 24981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 25081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, 25181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 25281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 25381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 25481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2, 25581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 25681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 25781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = TRUE; 25881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, 25981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 26081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 26181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = TRUE; 26281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0, 26381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 26481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 26581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = TRUE; 26681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, 26781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 26881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 26981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = TRUE; 27081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, 27181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 27281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 27381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 27481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } else if (strncmp( sf,"cblas_ssymm" ,11)==0) { 27581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_ssymm" ; 27681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 27781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 27881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( INVALID, CblasRight, CblasLower, 0, 0, 27981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 28081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 28181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 28281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, INVALID, CblasUpper, 0, 0, 28381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 28481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 28581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 28681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasLeft, INVALID, 0, 0, 28781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 28881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 28981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 29081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, 29181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 29281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 29381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 29481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, 29581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 29681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 29781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 29881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, 29981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 30081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 30181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 30281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0, 30381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 30481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 30581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 30681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, 30781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 30881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 30981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 31081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, 31181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 31281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 31381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 31481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, 31581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 31681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 31781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 31881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID, 31981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 32081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 32181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 32281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, 32381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 2 ); 32481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 32581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 32681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 0, 2, 32781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 32881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 32981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 33081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, 33181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 2 ); 33281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 33381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 33481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 0, 2, 33581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 33681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 33781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 33881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, 33981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 34081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 34181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 34281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, 34381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 34481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 34581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 34681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, 34781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 34881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 34981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 35081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 2, 0, 35181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 35281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 35381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 35481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, 35581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 2, BETA, C, 1 ); 35681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 35781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 35881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, 35981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 36081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 36181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 36281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, 36381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 2, BETA, C, 1 ); 36481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 36581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 36681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 2, 0, 36781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 36881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 36981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 37081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 37181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, 37281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 37381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 37481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 37581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, 37681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 37781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 37881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 37981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, 38081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 38181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 38281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 38381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, 38481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 38581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 38681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 38781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, 38881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 38981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 39081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 39181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, 39281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 39381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 39481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 39581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, 39681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 39781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 39881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 39981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, 40081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 40181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 40281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 40381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, 40481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 2 ); 40581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 40681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 40781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 40881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 40981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 41081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 41181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, 41281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 2 ); 41381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 41481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 41581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 41681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 41781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 41881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 41981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, 42081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 42181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 42281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 42381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 42481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 42581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 42681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 42781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, 42881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 42981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 43081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 43181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 43281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 43381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 43481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 43581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, 43681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 43781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 43881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 43981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 44081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 2, BETA, C, 1 ); 44181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 44281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 44381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, 44481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 44581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 44681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 44781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 44881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 2, BETA, C, 1 ); 44981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 45081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 45181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } else if (strncmp( sf,"cblas_strmm" ,11)==0) { 45281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_strmm" ; 45381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 45481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 45581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans, 45681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 45781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 45881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 45981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, 46081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 46181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 46281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 46381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, 46481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 46581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 46681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 46781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 46881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 46981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 47081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 47181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 47281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, 0, ALPHA, A, 1, B, 1 ); 47381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 47481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 47581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 47681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 47781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 47881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 47981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 48081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 48181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 48281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 48381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 48481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 48581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 48681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 48781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 48881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 48981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 49081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 49181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 49281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 49381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 49481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 49581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 49681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 49781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 49881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 49981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 50081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 50181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 50281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 50381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 50481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 50581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 50681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 50781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 50881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 50981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 51081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 51181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 51281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 51381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 51481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 51581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 51681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 51781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 51881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 51981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 52081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 52181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 52281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 52381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 52481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 52581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 52681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 52781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 52881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 52981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 53081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 53181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 53281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 53381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 53481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 53581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 53681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 53781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 53881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 53981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 54081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 54181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 54281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 54381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 54481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 54581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 54681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 54781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 54881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 54981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 55081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 55181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 55281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 55381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 55481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 55581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 55681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 55781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 55881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 55981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 56081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 56181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 56281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 56381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 56481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 56581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 56681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 56781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 56881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 56981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 57081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 57181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 57281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 57381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 57481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 57581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 57681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 57781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 57881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 57981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 58081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 58181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 58281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 58381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 58481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 58581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 58681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 58781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 58881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 58981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 59081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 59181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 59281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 59381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 59481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 59581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 59681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 59781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 59881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 59981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 60081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 60181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 60281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 60381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 60481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 60581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 60681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 60781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 60881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 60981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 61081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 61181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 61281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 61381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 61481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 61581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 61681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 61781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 61881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 61981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 62081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 62181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 62281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 62381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 62481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 62581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 62681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 62781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 62881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 62981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 63081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 63181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 63281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 63381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 63481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 63581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 63681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 63781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 63881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 63981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 64081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 64181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 64281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 64381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 64481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 64581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 64681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 64781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 64881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 64981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 65081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 65181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 65281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 65381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 65481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 65581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 65681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 65781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 65881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 65981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 66081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 66181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 66281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 66381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 66481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 66581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 66681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 66781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 66881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 66981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 67081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 67181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 67281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 67381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 67481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 67581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 67681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 67781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 67881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 67981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 68081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 68181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 68281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 68381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 68481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 68581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 68681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 68781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 68881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 68981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 69081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 69181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 69281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 69381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 69481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 69581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 69681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 69781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 69881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 69981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 70081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 70181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 70281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 70381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 70481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 70581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 70681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 70781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 70881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 70981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 71081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 71181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 71281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 71381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 71481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 71581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 71681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 71781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 71881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 71981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 72081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 72181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 72281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 72381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 72481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 72581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 72681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 72781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 72881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 72981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 73081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 73181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 73281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } else if (strncmp( sf,"cblas_strsm" ,11)==0) { 73381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_strsm" ; 73481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 73581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 73681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans, 73781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 73881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 73981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 74081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, 74181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 74281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 74381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 74481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, 74581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 74681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 74781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 74881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 74981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 75081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 75181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 75281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 75381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, 0, ALPHA, A, 1, B, 1 ); 75481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 75581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 75681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 75781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 75881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 75981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 76081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 76181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 76281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 76381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 76481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 76581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 76681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 76781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 76881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 76981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 77081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 77181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 77281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 77381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 77481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 77581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 77681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 77781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 77881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 77981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 78081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 78181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 78281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 78381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 78481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 78581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 78681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 78781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 78881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 78981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 79081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 79181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 79281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 79381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 79481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 79581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 79681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 79781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 79881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 79981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 80081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 80181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 80281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 80381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 80481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 80581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 80681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 80781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 80881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 80981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 81081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 81181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 81281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 81381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 81481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 81581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 81681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 81781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 81881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 81981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 82081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 82181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 82281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 82381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 82481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 82581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 82681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 82781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 82881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 82981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 83081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 83181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 83281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 83381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 83481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 83581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 83681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 83781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 83881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 83981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 84081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 84181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 84281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 84381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 84481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 84581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 84681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 84781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 84881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 84981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 85081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 85181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 85281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 85381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 85481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 85581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 85681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 85781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 85881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 85981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 86081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 86181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 86281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 86381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 86481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 86581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 86681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 86781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 86881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 86981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 87081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 87181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 87281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 87381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 87481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 87581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 87681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 87781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 87881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 87981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 88081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 88181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 88281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 88381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 88481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 88581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 88681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 88781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 88881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 88981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 89081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 89181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 89281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 89381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 89481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 89581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 89681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 89781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 89881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 89981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 90081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 90181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 90281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 90381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 90481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 90581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 90681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 90781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 90881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 90981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 91081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 91181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 91281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 91381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 91481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 91581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 91681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 91781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 91881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 91981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 92081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 92181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 92281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 92381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 92481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 92581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 92681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 92781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 92881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 92981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 93081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 93181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 93281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 93381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 93481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 93581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 93681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 93781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 93881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 93981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 94081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 94181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 94281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 94381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 94481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 94581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 94681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 94781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 94881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 94981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 95081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 95181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 95281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 95381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 95481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 95581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 95681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 95781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 95881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 95981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 96081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 96181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 96281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 96381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 96481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 96581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 96681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 96781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 96881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 96981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 97081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 97181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 97281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 97381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 97481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 97581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 97681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 97781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 97881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 97981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 98081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 98181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 98281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 98381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 98481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 98581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 98681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 98781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 98881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 98981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 99081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 99181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 99281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 99381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 99481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 99581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 99681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 99781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 99881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 99981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 100081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 100181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 100281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 100381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 100481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 100581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 100681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 100781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 100881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 100981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_strsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 101081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 101181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 101281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 101381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } else if (strncmp( sf,"cblas_ssyrk" ,11)==0) { 101481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_ssyrk" ; 101581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 101681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 101781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( INVALID, CblasUpper, CblasNoTrans, 101881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, BETA, C, 1 ); 101981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 102081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 102181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, INVALID, CblasNoTrans, 102281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, BETA, C, 1 ); 102381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 102481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 102581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasUpper, INVALID, 102681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, BETA, C, 1 ); 102781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 102881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 102981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans, 103081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); 103181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 103281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 103381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans, 103481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); 103581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 103681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 103781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans, 103881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); 103981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 104081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 104181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans, 104281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); 104381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 104481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 104581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans, 104681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); 104781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 104881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 104981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans, 105081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); 105181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 105281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 105381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans, 105481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); 105581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 105681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 105781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans, 105881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); 105981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 106081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 106181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasRowMajor, CblasUpper, CblasNoTrans, 106281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, BETA, C, 2 ); 106381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 106481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 106581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasRowMajor, CblasUpper, CblasTrans, 106681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 106781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 106881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 106981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasRowMajor, CblasLower, CblasNoTrans, 107081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, BETA, C, 2 ); 107181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 107281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 107381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasRowMajor, CblasLower, CblasTrans, 107481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 107581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 107681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 107781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans, 107881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 2 ); 107981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 108081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 108181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans, 108281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, BETA, C, 1 ); 108381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 108481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 108581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans, 108681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 2 ); 108781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 108881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 108981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans, 109081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, BETA, C, 1 ); 109181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 109281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 109381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasRowMajor, CblasUpper, CblasNoTrans, 109481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 109581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 109681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 109781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasRowMajor, CblasUpper, CblasTrans, 109881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, BETA, C, 1 ); 109981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 110081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 110181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasRowMajor, CblasLower, CblasNoTrans, 110281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 110381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 110481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 110581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasRowMajor, CblasLower, CblasTrans, 110681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, BETA, C, 1 ); 110781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 110881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 110981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasUpper, CblasNoTrans, 111081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, BETA, C, 1 ); 111181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 111281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 111381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasUpper, CblasTrans, 111481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 111581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 111681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 111781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasLower, CblasNoTrans, 111881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, BETA, C, 1 ); 111981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 112081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 112181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyrk( CblasColMajor, CblasLower, CblasTrans, 112281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 112381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 112481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 112581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } else if (strncmp( sf,"cblas_ssyr2k" ,12)==0) { 112681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_ssyr2k" ; 112781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 112881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 112981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( INVALID, CblasUpper, CblasNoTrans, 113081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 113181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 113281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 113381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, INVALID, CblasNoTrans, 113481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 113581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 113681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 113781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasUpper, INVALID, 113881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 113981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 114081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 114181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans, 114281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 114381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 114481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 114581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans, 114681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 114781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 114881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 114981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans, 115081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 115181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 115281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 115381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans, 115481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 115581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 115681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 115781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans, 115881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); 115981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 116081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 116181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans, 116281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); 116381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 116481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 116581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans, 116681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); 116781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 116881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 116981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans, 117081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); 117181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 117281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 117381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, 117481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); 117581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 117681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 117781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans, 117881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); 117981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 118081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 118181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans, 118281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); 118381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 118481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 118581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans, 118681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); 118781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 118881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 118981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans, 119081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); 119181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 119281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 119381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans, 119481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); 119581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 119681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 119781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans, 119881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); 119981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 120081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 120181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans, 120281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); 120381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 120481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 120581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, 120681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); 120781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 120881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 120981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans, 121081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); 121181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 121281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 121381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans, 121481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); 121581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 121681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 121781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans, 121881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); 121981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 122081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 122181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans, 122281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); 122381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 122481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 122581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans, 122681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); 122781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 122881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 122981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans, 123081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); 123181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 123281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 123381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans, 123481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); 123581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 123681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 123781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, 123881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 123981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 124081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 124181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasUpper, CblasTrans, 124281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); 124381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 124481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 124581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasLower, CblasNoTrans, 124681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 124781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 124881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 124981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasRowMajor, CblasLower, CblasTrans, 125081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); 125181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 125281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 125381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasUpper, CblasNoTrans, 125481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); 125581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 125681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 125781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasUpper, CblasTrans, 125881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 125981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 126081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 126181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasLower, CblasNoTrans, 126281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); 126381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 126481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 126581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_ssyr2k( CblasColMajor, CblasLower, CblasTrans, 126681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 126781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 126881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } 126981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray if (cblas_ok == TRUE ) 127081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); 127181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray else 127281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout); 127381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray} 1274