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_d3chke(char *rout) { 2881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray char *sf = ( rout ) ; 2981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray double 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_dgemm" ,11)==0) { 4781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_dgemm" ; 4881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 4981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 5081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, 5181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 5281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 5381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 5481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, 5581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 5681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 5781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 5881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, 5981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 6081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 6181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 6281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0, 6381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 6481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 6581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 6681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0, 6781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 6881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 6981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 7081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0, 7181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 7281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 7381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 7481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, 7581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 7681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 7781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 7881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0, 7981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 8081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 8181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 8281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, 8381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 8481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 8581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 8681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, 8781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 8881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 8981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 9081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, 9181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 9281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 9381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 9481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0, 9581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 9681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 9781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 9881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, 9981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 10081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 10181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 10281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, 10381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 10481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 10581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 10681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, 10781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 10881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 10981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 11081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0, 11181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 11281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 11381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 11481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, 11581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 11681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 11781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 11881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, 11981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 12081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 12181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 12281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, 12381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 12481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 12581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 12681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID, 12781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 12881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 12981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = FALSE; 13081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, 13181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 2 ); 13281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 13381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = FALSE; 13481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, 13581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 2 ); 13681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 13781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = FALSE; 13881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, 13981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 14081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 14181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 9; RowMajorStrg = FALSE; 14281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2, 14381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 14481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 14581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 14681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, 14781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 14881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 14981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 15081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, 15181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 15281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 15381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 15481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0, 15581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 15681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 15781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 15881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0, 15981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 16081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 16181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = FALSE; 16281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, 16381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 16481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 16581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = FALSE; 16681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, 16781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 16881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 16981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = FALSE; 17081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0, 17181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 17281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 17381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 14; RowMajorStrg = FALSE; 17481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0, 17581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 17681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 17781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 17881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dgemm( 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_dsymm" ,11)==0) { 27581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_dsymm" ; 27681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 27781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 27881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( 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_dsymm( CblasColMajor, CblasRight, CblasLower, 2, 0, 36781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 36881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 36981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 37081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, 37181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 37281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 37381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 37481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, 37581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 37681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 37781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 37881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, 37981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 38081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 38181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = TRUE; 38281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, 38381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 38481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 38581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 38681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, 38781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 38881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 38981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 39081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, 39181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 39281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 39381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 39481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, 39581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 39681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 39781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = TRUE; 39881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, 39981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 40081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 40181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 40281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, 40381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 2 ); 40481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 40581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 40681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 40781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 40881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 40981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 41081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, 41181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 2 ); 41281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 41381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 41481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 41581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 1, BETA, C, 1 ); 41681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 41781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 41881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, 41981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 42081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 42181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 42281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 42381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 42481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 42581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 42681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, 42781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 42881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 42981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 43081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 43181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 1, BETA, C, 1 ); 43281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 43381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 43481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, 43581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 43681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 43781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 43881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, 43981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 2, BETA, C, 1 ); 44081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 44181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 44281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, 44381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 1, B, 2, BETA, C, 1 ); 44481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 44581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 44681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, 44781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray ALPHA, A, 2, B, 2, BETA, C, 1 ); 44881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 44981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 45081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } else if (strncmp( sf,"cblas_dtrmm" ,11)==0) { 45181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_dtrmm" ; 45281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 45381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 45481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans, 45581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 45681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 45781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 45881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, 45981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 46081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 46181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 46281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, 46381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 46481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 46581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 46681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 46781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 46881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 46981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 47081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 47181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, 0, ALPHA, A, 1, B, 1 ); 47281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 47381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 47481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 47581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 47681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 47781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 47881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 47981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 48081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 48181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 48281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 48381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 48481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 48581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 48681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 48781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 48881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 48981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 49081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 49181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 49281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 49381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 49481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 49581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 49681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 49781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 49881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 49981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 50081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 50181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 50281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 50381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 50481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 50581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 50681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 50781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 50881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 50981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 51081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 51181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 51281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 51381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 51481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 51581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 51681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 51781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 51881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 51981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 52081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 52181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 52281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 52381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 52481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 52581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 52681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 52781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 52881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 52981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 53081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 53181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 53281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 53381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 53481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 53581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 53681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 53781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 53881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 53981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 54081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 54181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 54281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 54381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 54481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 54581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 54681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 54781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 54881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 54981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 55081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 55181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 55281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 55381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 55481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 55581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 55681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 55781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 55881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 55981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 56081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 56181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 56281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 56381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 56481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 56581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 56681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 56781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 56881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 56981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 57081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 57181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 57281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 57381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 57481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 57581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 57681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 57781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 57881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 57981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 58081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 58181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 58281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 58381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 58481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 58581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 58681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 58781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 58881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 58981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 59081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 59181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 59281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 59381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 59481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 59581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 59681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 59781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 59881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 59981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 60081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 60181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 60281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 60381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 60481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 60581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 60681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 60781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 60881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 60981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 61081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 61181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 61281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 61381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 61481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 61581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 61681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 61781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 61881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 61981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 62081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 62181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 62281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 62381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 62481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 62581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 62681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 62781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 62881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 62981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 63081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 63181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 63281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 63381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 63481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 63581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 63681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 63781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 63881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 63981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 64081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 64181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 64281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 64381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 64481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 64581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 64681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 64781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 64881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 64981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 65081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 65181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 65281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 65381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 65481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 65581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 65681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 65781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 65881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 65981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 66081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 66181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 66281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 66381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 66481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 66581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 66681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 66781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 66881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 66981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 67081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 67181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 67281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 67381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 67481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 67581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 67681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 67781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 67881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 67981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 68081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 68181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 68281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 68381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 68481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 68581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 68681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 68781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 68881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 68981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 69081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 69181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 69281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 69381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 69481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 69581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 69681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 69781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 69881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 69981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 70081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 70181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 70281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 70381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 70481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 70581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 70681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 70781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 70881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 70981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 71081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 71181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 71281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 71381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 71481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 71581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 71681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 71781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 71881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 71981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 72081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 72181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 72281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 72381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 72481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 72581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 72681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 72781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 72881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 72981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 73081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } else if (strncmp( sf,"cblas_dtrsm" ,11)==0) { 73181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_dtrsm" ; 73281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 73381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 73481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans, 73581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 73681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 73781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 73881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, 73981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 74081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 74181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 74281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, 74381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 74481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 74581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 74681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 74781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); 74881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 74981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 75081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 75181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, 0, ALPHA, A, 1, B, 1 ); 75281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 75381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 75481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 75581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 75681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 75781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 75881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 75981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 76081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 76181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 76281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 76381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 76481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 76581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 76681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 76781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 76881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 76981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 77081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 77181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 77281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 77381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 77481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 77581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 77681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 77781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 77881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 77981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 78081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 78181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = FALSE; 78281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 78381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 78481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 78581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 78681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 78781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 78881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 78981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 79081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 79181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 79281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 79381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 79481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 79581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 79681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 79781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 79881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 79981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 80081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 80181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 80281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 80381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 80481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 80581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 80681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 80781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 80881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 80981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 81081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 81181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 81281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 81381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = FALSE; 81481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 81581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 81681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 81781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 81881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 81981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 82081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 82181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 82281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 82381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 82481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 82581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 82681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 82781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 82881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 82981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 83081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 83181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 83281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 83381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 83481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 83581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 83681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 83781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 83881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 83981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); 84081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 84181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 84281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 84381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 84481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 84581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 84681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 84781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 84881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 84981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 85081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, 85181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 85281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 85381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 85481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, 85581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 85681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 85781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 85881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, 85981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 86081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 86181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 86281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, 86381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 86481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 86581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 86681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, 86781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 86881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 86981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 87081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, 87181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); 87281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 87381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 87481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, 87581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 87681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 87781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = FALSE; 87881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, 87981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 88081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 88181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 88281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 88381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 88481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 88581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 88681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 88781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 88881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 88981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 89081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 89181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 89281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 89381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 89481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 89581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 89681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 89781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 89881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 89981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 90081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 90181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 90281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 90381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 90481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 90581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 90681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 90781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 90881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 90981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 91081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 6; RowMajorStrg = TRUE; 91181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 91281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); 91381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 91481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 91581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 91681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 91781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 91881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 91981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 92081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 92181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 92281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 92381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 92481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 92581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 92681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 92781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 92881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 92981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 93081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 93181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 93281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 93381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 93481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 93581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 93681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 93781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 93881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 93981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 94081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 94181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 94281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 7; RowMajorStrg = TRUE; 94381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 94481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); 94581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 94681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 94781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 94881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 94981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 95081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 95181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 95281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 95381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 95481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 95581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 95681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 95781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 95881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 95981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 96081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 96181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 96281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 96381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 96481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 96581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 96681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 96781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 96881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); 96981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 97081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 97181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 97281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 97381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 97481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 97581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 97681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); 97781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 97881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 97981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, 98081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 98181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 98281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 98381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, 98481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 98581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 98681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 98781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, 98881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 98981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 99081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 99181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, 99281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 99381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 99481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 99581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, 99681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 99781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 99881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 99981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, 100081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); 100181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 100281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 100381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, 100481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 100581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 100681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 12; RowMajorStrg = TRUE; 100781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, 100881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); 100981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 101081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 101181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } else if (strncmp( sf,"cblas_dsyrk" ,11)==0) { 101281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_dsyrk" ; 101381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 101481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 101581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( INVALID, CblasUpper, CblasNoTrans, 101681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, BETA, C, 1 ); 101781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 101881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 101981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, INVALID, CblasNoTrans, 102081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, BETA, C, 1 ); 102181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 102281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 102381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasUpper, INVALID, 102481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, BETA, C, 1 ); 102581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 102681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 102781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans, 102881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); 102981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 103081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 103181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans, 103281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); 103381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 103481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 103581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans, 103681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); 103781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 103881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 103981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans, 104081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); 104181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 104281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 104381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans, 104481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); 104581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 104681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 104781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans, 104881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); 104981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 105081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 105181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans, 105281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); 105381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 105481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 105581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans, 105681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); 105781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 105881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 105981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasRowMajor, CblasUpper, CblasNoTrans, 106081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, BETA, C, 2 ); 106181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 106281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 106381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasRowMajor, CblasUpper, CblasTrans, 106481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 106581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 106681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 106781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasRowMajor, CblasLower, CblasNoTrans, 106881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, BETA, C, 2 ); 106981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 107081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 107181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasRowMajor, CblasLower, CblasTrans, 107281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 107381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 107481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 107581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans, 107681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 2 ); 107781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 107881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 107981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans, 108081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, BETA, C, 1 ); 108181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 108281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 108381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans, 108481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 2 ); 108581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 108681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 108781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans, 108881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, BETA, C, 1 ); 108981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 109081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 109181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasRowMajor, CblasUpper, CblasNoTrans, 109281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 109381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 109481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 109581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasRowMajor, CblasUpper, CblasTrans, 109681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, BETA, C, 1 ); 109781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 109881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 109981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasRowMajor, CblasLower, CblasNoTrans, 110081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 110181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 110281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = TRUE; 110381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasRowMajor, CblasLower, CblasTrans, 110481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, BETA, C, 1 ); 110581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 110681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 110781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans, 110881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, BETA, C, 1 ); 110981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 111081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 111181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans, 111281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 111381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 111481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 111581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans, 111681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, BETA, C, 1 ); 111781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 111881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 11; RowMajorStrg = FALSE; 111981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans, 112081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, BETA, C, 1 ); 112181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 112281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 112381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } else if (strncmp( sf,"cblas_dsyr2k" ,12)==0) { 112481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_rout = "cblas_dsyr2k" ; 112581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 112681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 1; 112781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( INVALID, CblasUpper, CblasNoTrans, 112881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 112981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 113081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 2; RowMajorStrg = FALSE; 113181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, INVALID, CblasNoTrans, 113281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 113381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 113481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 3; RowMajorStrg = FALSE; 113581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasUpper, INVALID, 113681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 113781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 113881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 113981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, 114081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 114181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 114281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 114381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans, 114481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 114581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 114681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 114781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans, 114881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 114981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 115081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 4; RowMajorStrg = FALSE; 115181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans, 115281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 115381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 115481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 115581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, 115681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); 115781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 115881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 115981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans, 116081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); 116181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 116281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 116381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans, 116481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); 116581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 116681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 5; RowMajorStrg = FALSE; 116781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans, 116881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); 116981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 117081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 117181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, 117281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); 117381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 117481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 117581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans, 117681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); 117781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 117881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 117981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans, 118081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); 118181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 118281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = TRUE; 118381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans, 118481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); 118581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 118681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 118781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, 118881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); 118981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 119081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 119181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans, 119281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); 119381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 119481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 119581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans, 119681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); 119781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 119881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 8; RowMajorStrg = FALSE; 119981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans, 120081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); 120181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 120281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 120381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, 120481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); 120581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 120681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 120781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans, 120881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); 120981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 121081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 121181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans, 121281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); 121381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 121481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = TRUE; 121581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans, 121681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); 121781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 121881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 121981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, 122081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); 122181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 122281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 122381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans, 122481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); 122581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 122681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 122781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans, 122881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); 122981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 123081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 10; RowMajorStrg = FALSE; 123181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans, 123281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); 123381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 123481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 123581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, 123681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 123781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 123881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 123981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans, 124081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); 124181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 124281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 124381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans, 124481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 124581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 124681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = TRUE; 124781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans, 124881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); 124981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 125081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 125181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, 125281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); 125381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 125481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 125581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans, 125681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 125781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 125881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 125981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans, 126081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); 126181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 126281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_info = 13; RowMajorStrg = FALSE; 126381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans, 126481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); 126581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray chkxer(); 126681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray } 126781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray if (cblas_ok == TRUE ) 126881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); 126981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray else 127081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout); 127181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray} 1272