790 lines
31 KiB
C
790 lines
31 KiB
C
#include <stdio.h>
|
|
#include <string.h>
|
|
#include "cblas.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);
|
|
}
|