kusano 2b45e8
#include <stdio.h></stdio.h>
kusano 2b45e8
#include <string.h></string.h>
kusano 2b45e8
#include "common.h"
kusano 2b45e8
#include "cblas_test.h"
kusano 2b45e8
kusano 2b45e8
int cblas_ok, cblas_lerr, cblas_info;
kusano 2b45e8
int link_xerbla=TRUE;
kusano 2b45e8
char *cblas_rout;
kusano 2b45e8
kusano 2b45e8
#ifdef F77_Char
kusano 2b45e8
void F77_xerbla(F77_Char F77_srname, void *vinfo);
kusano 2b45e8
#else
kusano 2b45e8
void F77_xerbla(char *srname, void *vinfo);
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
void chkxer(void) {
kusano 2b45e8
   extern int cblas_ok, cblas_lerr, cblas_info;
kusano 2b45e8
   extern int link_xerbla;
kusano 2b45e8
   extern char *cblas_rout;
kusano 2b45e8
   if (cblas_lerr == 1 ) {
kusano 2b45e8
      printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);
kusano 2b45e8
      cblas_ok = 0 ;
kusano 2b45e8
   }
kusano 2b45e8
   cblas_lerr = 1 ;
kusano 2b45e8
}
kusano 2b45e8
kusano 2b45e8
void  F77_c3chke(char *  rout) {
kusano 2b45e8
   char *sf = ( rout ) ;
kusano 2b45e8
   float   A[4]     = {0.0,0.0,0.0,0.0},
kusano 2b45e8
           B[4]     = {0.0,0.0,0.0,0.0},
kusano 2b45e8
           C[4]     = {0.0,0.0,0.0,0.0},
kusano 2b45e8
           ALPHA[2] = {0.0,0.0},
kusano 2b45e8
           BETA[2]  = {0.0,0.0}, 
kusano 2b45e8
           RALPHA   = 0.0, RBETA = 0.0;
kusano 2b45e8
   extern int cblas_info, cblas_lerr, cblas_ok;
kusano 2b45e8
   extern int RowMajorStrg;
kusano 2b45e8
   extern char *cblas_rout;
kusano 2b45e8
kusano 2b45e8
   cblas_ok = TRUE ;
kusano 2b45e8
   cblas_lerr = PASSED ;
kusano 2b45e8
kusano 2b45e8
   if (link_xerbla) /* call these first to link */
kusano 2b45e8
   {
kusano 2b45e8
      cblas_xerbla(cblas_info,cblas_rout,"");
kusano 2b45e8
      F77_xerbla(cblas_rout,&cblas_info);
kusano 2b45e8
   }
kusano 2b45e8
kusano 2b45e8
   if (strncmp( sf,"cblas_cgemm"   ,11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_cgemm"   ;
kusano 2b45e8
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_cgemm( INVALID,  CblasNoTrans, CblasNoTrans, 0, 0, 0, 
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_cgemm( INVALID,  CblasNoTrans, CblasTrans, 0, 0, 0, 
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_cgemm( INVALID,  CblasTrans, CblasNoTrans, 0, 0, 0, 
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_cgemm( INVALID,  CblasTrans, CblasTrans, 0, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  INVALID, CblasNoTrans, 0, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  INVALID, CblasTrans, 0, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, INVALID, 0, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, INVALID, 0, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, INVALID, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, INVALID, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, INVALID, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 2, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 2, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 0, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 0, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 0, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 0, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 14; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasNoTrans, 2, 0, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 14; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasNoTrans, CblasTrans, 2, 0, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 14; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasNoTrans, 2, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 14; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cgemm( CblasColMajor,  CblasTrans, CblasTrans, 2, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, INVALID, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, INVALID, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, INVALID, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, INVALID, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9;  RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 2, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 2, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 14; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasNoTrans, 0, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 14; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasNoTrans, CblasTrans, 0, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 14; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasNoTrans, 0, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 14; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cgemm( CblasRowMajor,  CblasTrans, CblasTrans, 0, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
              
kusano 2b45e8
   } else if (strncmp( sf,"cblas_chemm"   ,11)==0) {
kusano 2b45e8
            cblas_rout = "cblas_chemm"   ;
kusano 2b45e8
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_chemm( INVALID,  CblasRight, CblasLower, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  INVALID, CblasUpper, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasLeft, INVALID, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasRight, CblasLower, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_chemm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_chemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
kusano 2b45e8
   } else if (strncmp( sf,"cblas_csymm"   ,11)==0) {
kusano 2b45e8
            cblas_rout = "cblas_csymm"   ;
kusano 2b45e8
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_csymm( INVALID,  CblasRight, CblasLower, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  INVALID, CblasUpper, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasLeft, INVALID, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasRight, CblasLower, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csymm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
kusano 2b45e8
   } else if (strncmp( sf,"cblas_ctrmm"   ,11)==0) {
kusano 2b45e8
            cblas_rout = "cblas_ctrmm"   ;
kusano 2b45e8
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_ctrmm( INVALID,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  INVALID, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, INVALID, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, INVALID,
kusano 2b45e8
                   CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   INVALID, 0, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrmm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrmm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
kusano 2b45e8
   } else if (strncmp( sf,"cblas_ctrsm"   ,11)==0) {
kusano 2b45e8
            cblas_rout = "cblas_ctrsm"   ;
kusano 2b45e8
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_ctrsm( INVALID,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  INVALID, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, INVALID, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, INVALID,
kusano 2b45e8
                   CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   INVALID, 0, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ctrsm( CblasColMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasUpper, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasLeft, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasNoTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ctrsm( CblasRowMajor,  CblasRight, CblasLower, CblasTrans,
kusano 2b45e8
                   CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
kusano 2b45e8
   } else if (strncmp( sf,"cblas_cherk"   ,11)==0) {
kusano 2b45e8
            cblas_rout = "cblas_cherk"   ;
kusano 2b45e8
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_cherk(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasUpper, CblasTrans, 0, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, INVALID, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, INVALID, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, INVALID,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 0, INVALID,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cherk(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cherk(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cherk(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cherk(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cherk(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cherk(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 2, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cherk(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cherk(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 2, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 2, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasUpper, CblasConjTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 2, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cherk(CblasColMajor,  CblasLower, CblasConjTrans, 2, 0,
kusano 2b45e8
                  RALPHA, A, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
kusano 2b45e8
   } else if (strncmp( sf,"cblas_csyrk"   ,11)==0) {
kusano 2b45e8
            cblas_rout = "cblas_csyrk"   ;
kusano 2b45e8
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_csyrk(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, INVALID, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, INVALID, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 0, INVALID,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 0, INVALID,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyrk(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyrk(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyrk(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyrk(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyrk(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyrk(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyrk(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyrk(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasUpper, CblasTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyrk(CblasColMajor,  CblasLower, CblasTrans, 2, 0,
kusano 2b45e8
                  ALPHA, A, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
kusano 2b45e8
   } else if (strncmp( sf,"cblas_cher2k"   ,12)==0) {
kusano 2b45e8
            cblas_rout = "cblas_cher2k"   ;
kusano 2b45e8
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_cher2k(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, RBETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasUpper, CblasConjTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_cher2k(CblasRowMajor,  CblasLower, CblasConjTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasUpper, CblasConjTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_cher2k(CblasColMajor,  CblasLower, CblasConjTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, RBETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
kusano 2b45e8
   } else if (strncmp( sf,"cblas_csyr2k"   ,12)==0) {
kusano 2b45e8
            cblas_rout = "cblas_csyr2k"   ;
kusano 2b45e8
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_csyr2k(INVALID,  CblasUpper, CblasNoTrans, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  INVALID, CblasNoTrans, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasUpper, CblasConjTrans, 0, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, INVALID, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, INVALID,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 2 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 0, 2,
kusano 2b45e8
                   ALPHA, A, 2, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasUpper, CblasTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_csyr2k(CblasRowMajor,  CblasLower, CblasTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasUpper, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasUpper, CblasTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasLower, CblasNoTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 2, B, 2, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 13; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_csyr2k(CblasColMajor,  CblasLower, CblasTrans, 2, 0,
kusano 2b45e8
                   ALPHA, A, 1, B, 1, BETA, C, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
 
kusano 2b45e8
   }
kusano 2b45e8
kusano 2b45e8
   if (cblas_ok == 1 )
kusano 2b45e8
       printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
kusano 2b45e8
   else
kusano 2b45e8
       printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
kusano 2b45e8
}