#include <stdio.h></stdio.h>

#include <string.h></string.h>

#include "common.h"

#include "cblas_test.h"

int cblas_ok, cblas_lerr, cblas_info;

int link_xerbla=TRUE;

char *cblas_rout;

#ifdef F77_Char

void F77_xerbla(F77_Char F77_srname, void *vinfo);

#else

void F77_xerbla(char *srname, void *vinfo);

#endif

void chkxer(void) {

   extern int cblas_ok, cblas_lerr, cblas_info;

   extern int link_xerbla;

   extern char *cblas_rout;

   if (cblas_lerr == 1 ) {

      printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", cblas_info, cblas_rout);

      cblas_ok = 0 ;

   }

   cblas_lerr = 1 ;

}

void F77_d2chke(char *rout) {

   char *sf = ( rout ) ;

   double A[2] = {0.0,0.0}, 

          X[2] = {0.0,0.0}, 

          Y[2] = {0.0,0.0}, 

          ALPHA=0.0, BETA=0.0;

   extern int cblas_info, cblas_lerr, cblas_ok;

   extern int RowMajorStrg;

   extern char *cblas_rout;

   if (link_xerbla) /* call these first to link */

   {

      cblas_xerbla(cblas_info,cblas_rout,"");

      F77_xerbla(cblas_rout,&cblas_info);

   }

   cblas_ok = TRUE ;

   cblas_lerr = PASSED ;

   if (strncmp( sf,"cblas_dgemv",11)==0) {

      cblas_rout = "cblas_dgemv";

      cblas_info = 1;

      cblas_dgemv(INVALID, CblasNoTrans, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dgemv(CblasColMajor, INVALID, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dgemv(CblasColMajor, CblasNoTrans, INVALID, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = FALSE;

      cblas_dgemv(CblasColMajor, CblasNoTrans, 0, INVALID, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 7; RowMajorStrg = FALSE;

      cblas_dgemv(CblasColMajor, CblasNoTrans, 2, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 9; RowMajorStrg = FALSE;

      cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, 

                  ALPHA, A, 1, X, 0, BETA, Y, 1 );

      chkxer();

      cblas_info = 12; RowMajorStrg = FALSE;

      cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 0 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;

      cblas_dgemv(CblasRowMajor, INVALID, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = TRUE;

      cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 7; RowMajorStrg = TRUE;

      cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 2, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 9; RowMajorStrg = TRUE;

      cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, 

                  ALPHA, A, 1, X, 0, BETA, Y, 1 );

      chkxer();

      cblas_info = 12; RowMajorStrg = TRUE;

      cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 0 );

      chkxer();

   } else if (strncmp( sf,"cblas_dgbmv",11)==0) {

      cblas_rout = "cblas_dgbmv";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = FALSE;

      cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = FALSE;

      cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = FALSE;

      cblas_dgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 9; RowMajorStrg = FALSE;

      cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 11; RowMajorStrg = FALSE;

      cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, 

                  ALPHA, A, 1, X, 0, BETA, Y, 1 );

      chkxer();

      cblas_info = 14; RowMajorStrg = FALSE;

      cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 0 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = TRUE;

      cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = TRUE;

      cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = TRUE;

      cblas_dgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 9; RowMajorStrg = TRUE;

      cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 11; RowMajorStrg = TRUE;

      cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, 

                  ALPHA, A, 1, X, 0, BETA, Y, 1 );

      chkxer();

      cblas_info = 14; RowMajorStrg = TRUE;

      cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 0 );

      chkxer();

   } else if (strncmp( sf,"cblas_dsymv",11)==0) {

      cblas_rout = "cblas_dsymv";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dsymv(INVALID, CblasUpper, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dsymv(CblasColMajor, INVALID, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dsymv(CblasColMajor, CblasUpper, INVALID, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = FALSE;

      cblas_dsymv(CblasColMajor, CblasUpper, 2, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = FALSE;

      cblas_dsymv(CblasColMajor, CblasUpper, 0, 

                  ALPHA, A, 1, X, 0, BETA, Y, 1 );

      chkxer();

      cblas_info = 11; RowMajorStrg = FALSE;

      cblas_dsymv(CblasColMajor, CblasUpper, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 0 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dsymv(CblasRowMajor, INVALID, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dsymv(CblasRowMajor, CblasUpper, INVALID, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = TRUE;

      cblas_dsymv(CblasRowMajor, CblasUpper, 2, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = TRUE;

      cblas_dsymv(CblasRowMajor, CblasUpper, 0, 

                  ALPHA, A, 1, X, 0, BETA, Y, 1 );

      chkxer();

      cblas_info = 11; RowMajorStrg = TRUE;

      cblas_dsymv(CblasRowMajor, CblasUpper, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 0 );

      chkxer();

   } else if (strncmp( sf,"cblas_dsbmv",11)==0) {

      cblas_rout = "cblas_dsbmv";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dsbmv(INVALID, CblasUpper, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dsbmv(CblasColMajor, INVALID, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dsbmv(CblasColMajor, CblasUpper, INVALID, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = FALSE;

      cblas_dsbmv(CblasColMajor, CblasUpper, 0, INVALID, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 7; RowMajorStrg = FALSE;

      cblas_dsbmv(CblasColMajor, CblasUpper, 0, 1, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 9; RowMajorStrg = FALSE;

      cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, 

                  ALPHA, A, 1, X, 0, BETA, Y, 1 );

      chkxer();

      cblas_info = 12; RowMajorStrg = FALSE;

      cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 0 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dsbmv(CblasRowMajor, INVALID, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dsbmv(CblasRowMajor, CblasUpper, INVALID, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = TRUE;

      cblas_dsbmv(CblasRowMajor, CblasUpper, 0, INVALID, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 7; RowMajorStrg = TRUE;

      cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 1, 

                  ALPHA, A, 1, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 9; RowMajorStrg = TRUE;

      cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, 

                  ALPHA, A, 1, X, 0, BETA, Y, 1 );

      chkxer();

      cblas_info = 12; RowMajorStrg = TRUE;

      cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, 

                  ALPHA, A, 1, X, 1, BETA, Y, 0 );

      chkxer();

   } else if (strncmp( sf,"cblas_dspmv",11)==0) {

      cblas_rout = "cblas_dspmv";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dspmv(INVALID, CblasUpper, 0, 

                  ALPHA, A, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dspmv(CblasColMajor, INVALID, 0, 

                  ALPHA, A, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dspmv(CblasColMajor, CblasUpper, INVALID, 

                  ALPHA, A, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 7; RowMajorStrg = FALSE;

      cblas_dspmv(CblasColMajor, CblasUpper, 0, 

                  ALPHA, A, X, 0, BETA, Y, 1 );

      chkxer();

      cblas_info = 10; RowMajorStrg = FALSE;

      cblas_dspmv(CblasColMajor, CblasUpper, 0, 

                  ALPHA, A, X, 1, BETA, Y, 0 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dspmv(CblasRowMajor, INVALID, 0, 

                  ALPHA, A, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dspmv(CblasRowMajor, CblasUpper, INVALID, 

                  ALPHA, A, X, 1, BETA, Y, 1 );

      chkxer();

      cblas_info = 7; RowMajorStrg = TRUE;

      cblas_dspmv(CblasRowMajor, CblasUpper, 0, 

                  ALPHA, A, X, 0, BETA, Y, 1 );

      chkxer();

      cblas_info = 10; RowMajorStrg = TRUE;

      cblas_dspmv(CblasRowMajor, CblasUpper, 0, 

                  ALPHA, A, X, 1, BETA, Y, 0 );

      chkxer();

   } else if (strncmp( sf,"cblas_dtrmv",11)==0) {

      cblas_rout = "cblas_dtrmv";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dtrmv(CblasColMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = FALSE;

      cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = FALSE;

      cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, A, 1, X, 1 );

      chkxer();

      cblas_info = 7; RowMajorStrg = FALSE;

      cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 2, A, 1, X, 1 );

      chkxer();

      cblas_info = 9; RowMajorStrg = FALSE;

      cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, 1, X, 0 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = TRUE;

      cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = TRUE;

      cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, A, 1, X, 1 );

      chkxer();

      cblas_info = 7; RowMajorStrg = TRUE;

      cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 2, A, 1, X, 1 );

      chkxer();

      cblas_info = 9; RowMajorStrg = TRUE;

      cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, 1, X, 0 );

      chkxer();

   } else if (strncmp( sf,"cblas_dtbmv",11)==0) {

      cblas_rout = "cblas_dtbmv";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dtbmv(CblasColMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = FALSE;

      cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = FALSE;

      cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = FALSE;

      cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, INVALID, A, 1, X, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = FALSE;

      cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, 1, A, 1, X, 1 );

      chkxer();

      cblas_info = 10; RowMajorStrg = FALSE;

      cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, 0, A, 1, X, 0 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = TRUE;

      cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = TRUE;

      cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = TRUE;

      cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, INVALID, A, 1, X, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = TRUE;

      cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, 1, A, 1, X, 1 );

      chkxer();

      cblas_info = 10; RowMajorStrg = TRUE;

      cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, 0, A, 1, X, 0 );

      chkxer();

   } else if (strncmp( sf,"cblas_dtpmv",11)==0) {

      cblas_rout = "cblas_dtpmv";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, X, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, A, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dtpmv(CblasColMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, A, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = FALSE;

      cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, A, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = FALSE;

      cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, A, X, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = FALSE;

      cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, X, 0 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, A, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, A, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = TRUE;

      cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, A, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = TRUE;

      cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, A, X, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = TRUE;

      cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, X, 0 );

      chkxer();

   } else if (strncmp( sf,"cblas_dtrsv",11)==0) {

      cblas_rout = "cblas_dtrsv";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dtrsv(CblasColMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = FALSE;

      cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = FALSE;

      cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, A, 1, X, 1 );

      chkxer();

      cblas_info = 7; RowMajorStrg = FALSE;

      cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 2, A, 1, X, 1 );

      chkxer();

      cblas_info = 9; RowMajorStrg = FALSE;

      cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, 1, X, 0 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = TRUE;

      cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = TRUE;

      cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, A, 1, X, 1 );

      chkxer();

      cblas_info = 7; RowMajorStrg = TRUE;

      cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 2, A, 1, X, 1 );

      chkxer();

      cblas_info = 9; RowMajorStrg = TRUE;

      cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, 1, X, 0 );

      chkxer();

   } else if (strncmp( sf,"cblas_dtbsv",11)==0) {

      cblas_rout = "cblas_dtbsv";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dtbsv(CblasColMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = FALSE;

      cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = FALSE;

      cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = FALSE;

      cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, INVALID, A, 1, X, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = FALSE;

      cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, 1, A, 1, X, 1 );

      chkxer();

      cblas_info = 10; RowMajorStrg = FALSE;

      cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, 0, A, 1, X, 0 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = TRUE;

      cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = TRUE;

      cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, 0, A, 1, X, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = TRUE;

      cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, INVALID, A, 1, X, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = TRUE;

      cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, 1, A, 1, X, 1 );

      chkxer();

      cblas_info = 10; RowMajorStrg = TRUE;

      cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, 0, A, 1, X, 0 );

      chkxer();

   } else if (strncmp( sf,"cblas_dtpsv",11)==0) {

      cblas_rout = "cblas_dtpsv";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, X, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, A, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dtpsv(CblasColMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, A, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = FALSE;

      cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, A, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = FALSE;

      cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, A, X, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = FALSE;

      cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, X, 0 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans, 

                  CblasNonUnit, 0, A, X, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID, 

                  CblasNonUnit, 0, A, X, 1 );

      chkxer();

      cblas_info = 4; RowMajorStrg = TRUE;

      cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  INVALID, 0, A, X, 1 );

      chkxer();

      cblas_info = 5; RowMajorStrg = TRUE;

      cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, INVALID, A, X, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = TRUE;

      cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, 

                  CblasNonUnit, 0, A, X, 0 );

      chkxer();

   } else if (strncmp( sf,"cblas_dger",10)==0) {

      cblas_rout = "cblas_dger";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dger(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dger(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dger(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = FALSE;

      cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = FALSE;

      cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );

      chkxer();

      cblas_info = 10; RowMajorStrg = FALSE;

      cblas_dger(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dger(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dger(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = TRUE;

      cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = TRUE;

      cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );

      chkxer();

      cblas_info = 10; RowMajorStrg = TRUE;

      cblas_dger(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

   } else if (strncmp( sf,"cblas_dsyr2",11)==0) {

      cblas_rout = "cblas_dsyr2";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dsyr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dsyr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dsyr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = FALSE;

      cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = FALSE;

      cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );

      chkxer();

      cblas_info = 10; RowMajorStrg = FALSE;

      cblas_dsyr2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dsyr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dsyr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = TRUE;

      cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = TRUE;

      cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );

      chkxer();

      cblas_info = 10; RowMajorStrg = TRUE;

      cblas_dsyr2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );

      chkxer();

   } else if (strncmp( sf,"cblas_dspr2",11)==0) {

      cblas_rout = "cblas_dspr2";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dspr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dspr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dspr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );

      chkxer();

      cblas_info = 6; RowMajorStrg = FALSE;

      cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );

      chkxer();

      cblas_info = 8; RowMajorStrg = FALSE;

      cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dspr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dspr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );

      chkxer();

      cblas_info = 6; RowMajorStrg = TRUE;

      cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );

      chkxer();

      cblas_info = 8; RowMajorStrg = TRUE;

      cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );

      chkxer();

   } else if (strncmp( sf,"cblas_dsyr",10)==0) {

      cblas_rout = "cblas_dsyr";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dsyr(INVALID, CblasUpper, 0, ALPHA, X, 1, A, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dsyr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dsyr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = FALSE;

      cblas_dsyr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = FALSE;

      cblas_dsyr(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );

      chkxer();

      cblas_info = 2; RowMajorStrg = TRUE;

      cblas_dsyr(CblasRowMajor, INVALID, 0, ALPHA, X, 1, A, 1 );

      chkxer();

      cblas_info = 3; RowMajorStrg = TRUE;

      cblas_dsyr(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );

      chkxer();

      cblas_info = 6; RowMajorStrg = TRUE;

      cblas_dsyr(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );

      chkxer();

      cblas_info = 8; RowMajorStrg = TRUE;

      cblas_dsyr(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );

      chkxer();

   } else if (strncmp( sf,"cblas_dspr",10)==0) {

      cblas_rout = "cblas_dspr";

      cblas_info = 1; RowMajorStrg = FALSE;

      cblas_dspr(INVALID, CblasUpper, 0, ALPHA, X, 1, A );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );

      chkxer();

      cblas_info = 6; RowMajorStrg = FALSE;

      cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );

      chkxer();

      cblas_info = 2; RowMajorStrg = FALSE;

      cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );

      chkxer();

      cblas_info = 3; RowMajorStrg = FALSE;

      cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );

      chkxer();

      cblas_info = 6; RowMajorStrg = FALSE;

      cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );

      chkxer();

   } 

   if (cblas_ok == TRUE)

       printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);

   else

       printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);

}