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_s2chke(char *rout) {
kusano 2b45e8
   char *sf = ( rout ) ;
kusano 2b45e8
   float  A[2] = {0.0,0.0}, 
kusano 2b45e8
          X[2] = {0.0,0.0}, 
kusano 2b45e8
          Y[2] = {0.0,0.0}, 
kusano 2b45e8
          ALPHA=0.0, BETA=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
   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
   cblas_ok = TRUE ;
kusano 2b45e8
   cblas_lerr = PASSED ;
kusano 2b45e8
kusano 2b45e8
   if (strncmp( sf,"cblas_sgemv",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_sgemv";
kusano 2b45e8
      cblas_info = 1;
kusano 2b45e8
      cblas_sgemv(INVALID, CblasNoTrans, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgemv(CblasColMajor, INVALID, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgemv(CblasColMajor, CblasNoTrans, INVALID, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgemv(CblasColMajor, CblasNoTrans, 0, INVALID, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgemv(CblasColMajor, CblasNoTrans, 2, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 0, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgemv(CblasRowMajor, INVALID, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 2, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 0, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_sgbmv",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_sgbmv";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 0, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 14; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 0, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 14; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_ssymv",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_ssymv";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssymv(INVALID, CblasUpper, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssymv(CblasColMajor, INVALID, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssymv(CblasColMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssymv(CblasColMajor, CblasUpper, 2, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssymv(CblasColMajor, CblasUpper, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 0, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssymv(CblasColMajor, CblasUpper, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssymv(CblasRowMajor, INVALID, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssymv(CblasRowMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssymv(CblasRowMajor, CblasUpper, 2, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssymv(CblasRowMajor, CblasUpper, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 0, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 11; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssymv(CblasRowMajor, CblasUpper, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_ssbmv",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_ssbmv";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssbmv(INVALID, CblasUpper, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssbmv(CblasColMajor, INVALID, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssbmv(CblasColMajor, CblasUpper, INVALID, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssbmv(CblasColMajor, CblasUpper, 0, INVALID, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssbmv(CblasColMajor, CblasUpper, 0, 1, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 0, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssbmv(CblasRowMajor, INVALID, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssbmv(CblasRowMajor, CblasUpper, INVALID, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssbmv(CblasRowMajor, CblasUpper, 0, INVALID, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 1, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 0, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 12; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0, 
kusano 2b45e8
                  ALPHA, A, 1, X, 1, BETA, Y, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_sspmv",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_sspmv";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspmv(INVALID, CblasUpper, 0, 
kusano 2b45e8
                  ALPHA, A, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspmv(CblasColMajor, INVALID, 0, 
kusano 2b45e8
                  ALPHA, A, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspmv(CblasColMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  ALPHA, A, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspmv(CblasColMajor, CblasUpper, 0, 
kusano 2b45e8
                  ALPHA, A, X, 0, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspmv(CblasColMajor, CblasUpper, 0, 
kusano 2b45e8
                  ALPHA, A, X, 1, BETA, Y, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sspmv(CblasRowMajor, INVALID, 0, 
kusano 2b45e8
                  ALPHA, A, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sspmv(CblasRowMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  ALPHA, A, X, 1, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sspmv(CblasRowMajor, CblasUpper, 0, 
kusano 2b45e8
                  ALPHA, A, X, 0, BETA, Y, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sspmv(CblasRowMajor, CblasUpper, 0, 
kusano 2b45e8
                  ALPHA, A, X, 1, BETA, Y, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_strmv",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_strmv";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strmv(INVALID, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strmv(CblasColMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strmv(CblasColMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 2, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strmv(CblasRowMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strmv(CblasRowMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 2, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_stbmv",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_stbmv";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbmv(INVALID, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbmv(CblasColMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbmv(CblasColMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, INVALID, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 1, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbmv(CblasRowMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbmv(CblasRowMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, INVALID, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 1, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_stpmv",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_stpmv";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpmv(INVALID, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpmv(CblasColMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpmv(CblasColMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stpmv(CblasRowMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stpmv(CblasRowMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_strsv",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_strsv";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strsv(INVALID, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strsv(CblasColMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strsv(CblasColMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 2, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strsv(CblasRowMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strsv(CblasRowMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 7; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 2, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 9; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, 1, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_stbsv",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_stbsv";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbsv(INVALID, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbsv(CblasColMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbsv(CblasColMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, INVALID, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 1, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbsv(CblasRowMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbsv(CblasRowMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, 0, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, INVALID, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 1, A, 1, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, 0, A, 1, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_stpsv",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_stpsv";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpsv(INVALID, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpsv(CblasColMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpsv(CblasColMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stpsv(CblasRowMajor, INVALID, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stpsv(CblasRowMajor, CblasUpper, INVALID, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 4; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  INVALID, 0, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 5; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, INVALID, A, X, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, 
kusano 2b45e8
                  CblasNonUnit, 0, A, X, 0 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_sger",10)==0) {
kusano 2b45e8
      cblas_rout = "cblas_sger";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sger(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sger(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sger(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sger(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sger(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sger(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sger(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sger(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sger(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sger(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sger(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_ssyr2",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_ssyr2";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssyr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssyr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssyr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssyr2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssyr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssyr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 10; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssyr2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_sspr2",11)==0) {
kusano 2b45e8
      cblas_rout = "cblas_sspr2";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sspr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sspr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_sspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_ssyr",10)==0) {
kusano 2b45e8
      cblas_rout = "cblas_ssyr";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssyr(INVALID, CblasUpper, 0, ALPHA, X, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssyr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssyr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssyr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_ssyr(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssyr(CblasRowMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssyr(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssyr(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 8; RowMajorStrg = TRUE;
kusano 2b45e8
      cblas_ssyr(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } else if (strncmp( sf,"cblas_sspr",10)==0) {
kusano 2b45e8
      cblas_rout = "cblas_sspr";
kusano 2b45e8
      cblas_info = 1; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr(INVALID, CblasUpper, 0, ALPHA, X, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 2; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 3; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
      cblas_info = 6; RowMajorStrg = FALSE;
kusano 2b45e8
      cblas_sspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
kusano 2b45e8
      chkxer();
kusano 2b45e8
   } 
kusano 2b45e8
   if (cblas_ok == TRUE)
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
}