JNIEXPORT void JNICALL Java_uncomplicate_neanderthal_CBLAS_stpsv
(JNIEnv *env, jclass clazz,
jint Order, jint Uplo, jint TransA, jint Diag,
jint N,
jobject Ap,
jobject X, jint offsetX, jint incX) {
float *cAp = (float *) (*env)->GetDirectBufferAddress(env, Ap);
float *cX = (float *) (*env)->GetDirectBufferAddress(env, X);
cblas_stpsv(Order, Uplo, TransA, Diag, N, cAp, cX + offsetX, incX);
};
void F77_stpsv(int *order, char *uplow, char *transp, char *diagn,
int *n, float *ap, float *x, int *incx) {
float *A, *AP;
int i, j, k, LDA;
enum CBLAS_TRANSPOSE trans;
enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag;
get_transpose_type(transp,&trans);
get_uplo_type(uplow,&uplo);
get_diag_type(diagn,&diag);
if (*order == TEST_ROW_MJR) {
LDA = *n;
A = ( float* )malloc( LDA*LDA*sizeof( float ) );
AP = ( float* )malloc( (((LDA+1)*LDA)/2)*sizeof( float ) );
if (uplo == CblasUpper) {
for( j=0, k=0; j<*n; j++ )
for( i=0; i<j+1; i++, k++ )
A[ LDA*i+j ]=ap[ k ];
for( i=0, k=0; i<*n; i++ )
for( j=i; j<*n; j++, k++ )
AP[ k ]=A[ LDA*i+j ];
}
else {
for( j=0, k=0; j<*n; j++ )
for( i=j; i<*n; i++, k++ )
A[ LDA*i+j ]=ap[ k ];
for( i=0, k=0; i<*n; i++ )
for( j=0; j<i+1; j++, k++ )
AP[ k ]=A[ LDA*i+j ];
}
cblas_stpsv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );
free(A); free(AP);
}
else
cblas_stpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
}
/* f77 interface */
void stpsv_(char *uplo, char *transa, char *diag, int *n, float *Ap, float *X, int *incx)
{
Blasx_Debug_Output("Calling ztpsv_ interface\n");
enum CBLAS_TRANSPOSE TransA; enum CBLAS_UPLO Uplo;
enum CBLAS_DIAG Diag;
int info = 0;
if (F77DiagToCBLASDiag(diag, &Diag) < 0) info = 3;
if (F77TransToCBLASTrans(transa,&TransA) < 0) info = 2;
if (F77UploToCBlasUplo(uplo,&Uplo) < 0) info = 1;
if (info != 0) {
xerbla_(ERROR_NAME, &info);
return;
}
cblas_stpsv(CblasColMajor, Uplo,
TransA, Diag,
*n, Ap, X, *incx);
}
inline void tpsv( const Order, const UpLo, const Trans, const Diag,
const int n, const float* ap, float* x, const int incx ) {
cblas_stpsv( cblas_option< Order >::value, cblas_option< UpLo >::value,
cblas_option< Trans >::value, cblas_option< Diag >::value, n, ap,
x, incx );
}
void F77_s2chke(char *rout) {
char *sf = ( rout ) ;
float 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_sgemv",11)==0) {
cblas_rout = "cblas_sgemv";
cblas_info = 1;
cblas_sgemv(INVALID, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_sgemv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_sgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
cblas_sgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
cblas_sgemv(CblasColMajor, CblasNoTrans, 2, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
cblas_sgemv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_sgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_sgbmv",11)==0) {
cblas_rout = "cblas_sgbmv";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_sgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_sgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_sgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
cblas_sgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = FALSE;
cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_sgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_sgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
cblas_sgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = TRUE;
cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ssymv",11)==0) {
cblas_rout = "cblas_ssymv";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_ssymv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_ssymv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_ssymv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
cblas_ssymv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
cblas_ssymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
cblas_ssymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_ssymv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_ssymv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
cblas_ssymv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
cblas_ssymv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
cblas_ssymv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ssbmv",11)==0) {
cblas_rout = "cblas_ssbmv";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_ssbmv(INVALID, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_ssbmv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_ssbmv(CblasColMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
cblas_ssbmv(CblasColMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
cblas_ssbmv(CblasColMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_ssbmv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_ssbmv(CblasRowMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
cblas_ssbmv(CblasRowMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_sspmv",11)==0) {
cblas_rout = "cblas_sspmv";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_sspmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_sspmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_sspmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
cblas_sspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
cblas_sspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_sspmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_sspmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
cblas_sspmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
cblas_sspmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_strmv",11)==0) {
cblas_rout = "cblas_strmv";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_strmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_stbmv",11)==0) {
cblas_rout = "cblas_stbmv";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_stbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_stpmv",11)==0) {
cblas_rout = "cblas_stpmv";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_stpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_stpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_stpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_stpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_stpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_strsv",11)==0) {
cblas_rout = "cblas_strsv";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_strsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_stbsv",11)==0) {
cblas_rout = "cblas_stbsv";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_stbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_stpsv",11)==0) {
cblas_rout = "cblas_stpsv";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_stpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_stpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_stpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_stpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_stpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_sger",10)==0) {
cblas_rout = "cblas_sger";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_sger(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_sger(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_sger(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
cblas_sger(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
cblas_sger(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
cblas_sger(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_sger(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_sger(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
cblas_sger(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
cblas_sger(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
cblas_sger(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
} else if (strncmp( sf,"cblas_ssyr2",11)==0) {
cblas_rout = "cblas_ssyr2";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_ssyr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_ssyr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_ssyr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
cblas_ssyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
cblas_ssyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
cblas_ssyr2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_ssyr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_ssyr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
cblas_ssyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
cblas_ssyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
cblas_ssyr2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
chkxer();
} else if (strncmp( sf,"cblas_sspr2",11)==0) {
cblas_rout = "cblas_sspr2";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_sspr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_sspr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_sspr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
cblas_sspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
cblas_sspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_sspr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_sspr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
cblas_sspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
cblas_sspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
chkxer();
} else if (strncmp( sf,"cblas_ssyr",10)==0) {
cblas_rout = "cblas_ssyr";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_ssyr(INVALID, CblasUpper, 0, ALPHA, X, 1, A, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_ssyr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_ssyr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
cblas_ssyr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
cblas_ssyr(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
cblas_ssyr(CblasRowMajor, INVALID, 0, ALPHA, X, 1, A, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
cblas_ssyr(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
cblas_ssyr(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
cblas_ssyr(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 );
chkxer();
} else if (strncmp( sf,"cblas_sspr",10)==0) {
cblas_rout = "cblas_sspr";
cblas_info = 1; RowMajorStrg = FALSE;
cblas_sspr(INVALID, CblasUpper, 0, ALPHA, X, 1, A );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_sspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_sspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
cblas_sspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
cblas_sspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
cblas_sspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
cblas_sspr(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);
}
void
test_tpsv (void) {
const double flteps = 1e-4, dbleps = 1e-6;
{
int order = 101;
int trans = 111;
int uplo = 121;
int diag = 131;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.31929f, 0.360168f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1310)");
}
};
};
{
int order = 101;
int trans = 111;
int uplo = 121;
int diag = 132;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.144f, -0.04432f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1311)");
}
};
};
{
int order = 101;
int trans = 111;
int uplo = 122;
int diag = 131;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.417992f, -0.0839895f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1312)");
}
};
};
{
int order = 101;
int trans = 111;
int uplo = 122;
int diag = 132;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.12704f, 0.032f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1313)");
}
};
};
{
int order = 102;
int trans = 111;
int uplo = 121;
int diag = 131;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.31929f, 0.360168f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1314)");
}
};
};
{
int order = 102;
int trans = 111;
int uplo = 121;
int diag = 132;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.144f, -0.04432f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1315)");
}
};
};
{
int order = 102;
int trans = 111;
int uplo = 122;
int diag = 131;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.417992f, -0.0839895f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1316)");
}
};
};
{
int order = 102;
int trans = 111;
int uplo = 122;
int diag = 132;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.12704f, 0.032f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1317)");
}
};
};
{
int order = 101;
int trans = 112;
int uplo = 121;
int diag = 131;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.417992f, -0.0839895f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1318)");
}
};
};
{
int order = 101;
int trans = 112;
int uplo = 121;
int diag = 132;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.12704f, 0.032f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1319)");
}
};
};
{
int order = 101;
int trans = 112;
int uplo = 122;
int diag = 131;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.31929f, 0.360168f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1320)");
}
};
};
{
int order = 101;
int trans = 112;
int uplo = 122;
int diag = 132;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.144f, -0.04432f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1321)");
}
};
};
{
int order = 102;
int trans = 112;
int uplo = 121;
int diag = 131;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.417992f, -0.0839895f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1322)");
}
};
};
{
int order = 102;
int trans = 112;
int uplo = 121;
int diag = 132;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.12704f, 0.032f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1323)");
}
};
};
{
int order = 102;
int trans = 112;
int uplo = 122;
int diag = 131;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.31929f, 0.360168f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1324)");
}
};
};
{
int order = 102;
int trans = 112;
int uplo = 122;
int diag = 132;
int N = 2;
float A[] = { -0.381f, 0.53f, 0.451f };
float X[] = { 0.144f, 0.032f };
int incX = -1;
float x_expected[] = { 0.144f, -0.04432f };
cblas_stpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], flteps, "stpsv(case 1325)");
}
};
};
{
int order = 101;
int trans = 111;
int uplo = 121;
int diag = 131;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { 1.67142857143, 1.42438631791 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1326)");
}
};
};
{
int order = 101;
int trans = 111;
int uplo = 121;
int diag = 132;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { -0.702, -1.150996 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1327)");
}
};
};
{
int order = 101;
int trans = 111;
int uplo = 122;
int diag = 131;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { 4.76584842388, -1.86197183099 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1328)");
}
};
};
{
int order = 101;
int trans = 111;
int uplo = 122;
int diag = 132;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { -1.163378, -0.661 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1329)");
}
};
};
{
int order = 102;
int trans = 111;
int uplo = 121;
int diag = 131;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { 1.67142857143, 1.42438631791 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1330)");
}
};
};
{
int order = 102;
int trans = 111;
int uplo = 121;
int diag = 132;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { -0.702, -1.150996 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1331)");
}
};
};
{
int order = 102;
int trans = 111;
int uplo = 122;
int diag = 131;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { 4.76584842388, -1.86197183099 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1332)");
}
};
};
{
int order = 102;
int trans = 111;
int uplo = 122;
int diag = 132;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { -1.163378, -0.661 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1333)");
}
};
};
{
int order = 101;
int trans = 112;
int uplo = 121;
int diag = 131;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { 4.76584842388, -1.86197183099 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1334)");
}
};
};
{
int order = 101;
int trans = 112;
int uplo = 121;
int diag = 132;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { -1.163378, -0.661 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1335)");
}
};
};
{
int order = 101;
int trans = 112;
int uplo = 122;
int diag = 131;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { 1.67142857143, 1.42438631791 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1336)");
}
};
};
{
int order = 101;
int trans = 112;
int uplo = 122;
int diag = 132;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { -0.702, -1.150996 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1337)");
}
};
};
{
int order = 102;
int trans = 112;
int uplo = 121;
int diag = 131;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { 4.76584842388, -1.86197183099 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1338)");
}
};
};
{
int order = 102;
int trans = 112;
int uplo = 121;
int diag = 132;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { -1.163378, -0.661 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1339)");
}
};
};
{
int order = 102;
int trans = 112;
int uplo = 122;
int diag = 131;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { 1.67142857143, 1.42438631791 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1340)");
}
};
};
{
int order = 102;
int trans = 112;
int uplo = 122;
int diag = 132;
int N = 2;
double A[] = { 0.355, -0.698, -0.42 };
double X[] = { -0.702, -0.661 };
int incX = -1;
double x_expected[] = { -0.702, -1.150996 };
cblas_dtpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[i], x_expected[i], dbleps, "dtpsv(case 1341)");
}
};
};
{
int order = 101;
int trans = 111;
int uplo = 121;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -1.05533f, 0.0529057f, -3.93625f, 1.36003f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1342) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1342) imag");
};
};
};
{
int order = 101;
int trans = 111;
int uplo = 121;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -0.133f, 0.998f, 0.818576f, 0.163438f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1343) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1343) imag");
};
};
};
{
int order = 101;
int trans = 111;
int uplo = 122;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -2.48362f, 1.13085f, -1.67581f, -0.273264f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1344) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1344) imag");
};
};
};
{
int order = 101;
int trans = 111;
int uplo = 122;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { 0.431924f, 0.679112f, -0.072f, 0.642f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1345) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1345) imag");
};
};
};
{
int order = 102;
int trans = 111;
int uplo = 121;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -1.05533f, 0.0529057f, -3.93625f, 1.36003f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1346) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1346) imag");
};
};
};
{
int order = 102;
int trans = 111;
int uplo = 121;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -0.133f, 0.998f, 0.818576f, 0.163438f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1347) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1347) imag");
};
};
};
{
int order = 102;
int trans = 111;
int uplo = 122;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -2.48362f, 1.13085f, -1.67581f, -0.273264f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1348) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1348) imag");
};
};
};
{
int order = 102;
int trans = 111;
int uplo = 122;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { 0.431924f, 0.679112f, -0.072f, 0.642f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1349) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1349) imag");
};
};
};
{
int order = 101;
int trans = 112;
int uplo = 121;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -2.48362f, 1.13085f, -1.67581f, -0.273264f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1350) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1350) imag");
};
};
};
{
int order = 101;
int trans = 112;
int uplo = 121;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { 0.431924f, 0.679112f, -0.072f, 0.642f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1351) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1351) imag");
};
};
};
{
int order = 101;
int trans = 112;
int uplo = 122;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -1.05533f, 0.0529057f, -3.93625f, 1.36003f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1352) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1352) imag");
};
};
};
{
int order = 101;
int trans = 112;
int uplo = 122;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -0.133f, 0.998f, 0.818576f, 0.163438f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1353) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1353) imag");
};
};
};
{
int order = 102;
int trans = 112;
int uplo = 121;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -2.48362f, 1.13085f, -1.67581f, -0.273264f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1354) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1354) imag");
};
};
};
{
int order = 102;
int trans = 112;
int uplo = 121;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { 0.431924f, 0.679112f, -0.072f, 0.642f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1355) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1355) imag");
};
};
};
{
int order = 102;
int trans = 112;
int uplo = 122;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -1.05533f, 0.0529057f, -3.93625f, 1.36003f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1356) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1356) imag");
};
};
};
{
int order = 102;
int trans = 112;
int uplo = 122;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -0.133f, 0.998f, 0.818576f, 0.163438f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1357) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1357) imag");
};
};
};
{
int order = 101;
int trans = 113;
int uplo = 121;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { 2.15867f, 1.69498f, 1.69471f, 0.104738f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1358) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1358) imag");
};
};
};
{
int order = 101;
int trans = 113;
int uplo = 121;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -0.613252f, 0.561896f, -0.072f, 0.642f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1359) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1359) imag");
};
};
};
{
int order = 101;
int trans = 113;
int uplo = 122;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { 1.00465f, 0.327432f, 3.44853f, 2.273f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1360) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1360) imag");
};
};
};
{
int order = 101;
int trans = 113;
int uplo = 122;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -0.133f, 0.998f, -0.806168f, -0.053086f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1361) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1361) imag");
};
};
};
{
int order = 102;
int trans = 113;
int uplo = 121;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { 2.15867f, 1.69498f, 1.69471f, 0.104738f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1362) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1362) imag");
};
};
};
{
int order = 102;
int trans = 113;
int uplo = 121;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -0.613252f, 0.561896f, -0.072f, 0.642f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1363) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1363) imag");
};
};
};
{
int order = 102;
int trans = 113;
int uplo = 122;
int diag = 131;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { 1.00465f, 0.327432f, 3.44853f, 2.273f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1364) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1364) imag");
};
};
};
{
int order = 102;
int trans = 113;
int uplo = 122;
int diag = 132;
int N = 2;
float A[] = { -0.019f, -0.38f, 0.588f, 0.814f, 0.173f, -0.937f };
float X[] = { -0.133f, 0.998f, -0.072f, 0.642f };
int incX = -1;
float x_expected[] = { -0.133f, 0.998f, -0.806168f, -0.053086f };
cblas_ctpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctpsv(case 1365) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctpsv(case 1365) imag");
};
};
};
{
int order = 101;
int trans = 111;
int uplo = 121;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.430509772467, -0.0927067365535, -0.611144484555, 0.999982608216 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1366) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1366) imag");
};
};
};
{
int order = 101;
int trans = 111;
int uplo = 121;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.344, -0.143, -0.795928, -0.523879 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1367) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1367) imag");
};
};
};
{
int order = 101;
int trans = 111;
int uplo = 122;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 1.00136463678, -1.84591534629, -1.12140892769, 0.696784840869 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1368) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1368) imag");
};
};
};
{
int order = 101;
int trans = 111;
int uplo = 122;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 1.707508, -0.042521, -0.668, -0.945 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1369) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1369) imag");
};
};
};
{
int order = 102;
int trans = 111;
int uplo = 121;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.430509772467, -0.0927067365535, -0.611144484555, 0.999982608216 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1370) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1370) imag");
};
};
};
{
int order = 102;
int trans = 111;
int uplo = 121;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.344, -0.143, -0.795928, -0.523879 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1371) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1371) imag");
};
};
};
{
int order = 102;
int trans = 111;
int uplo = 122;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 1.00136463678, -1.84591534629, -1.12140892769, 0.696784840869 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1372) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1372) imag");
};
};
};
{
int order = 102;
int trans = 111;
int uplo = 122;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 1.707508, -0.042521, -0.668, -0.945 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1373) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1373) imag");
};
};
};
{
int order = 101;
int trans = 112;
int uplo = 121;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 1.00136463678, -1.84591534629, -1.12140892769, 0.696784840869 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1374) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1374) imag");
};
};
};
{
int order = 101;
int trans = 112;
int uplo = 121;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 1.707508, -0.042521, -0.668, -0.945 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1375) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1375) imag");
};
};
};
{
int order = 101;
int trans = 112;
int uplo = 122;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.430509772467, -0.0927067365535, -0.611144484555, 0.999982608216 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1376) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1376) imag");
};
};
};
{
int order = 101;
int trans = 112;
int uplo = 122;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.344, -0.143, -0.795928, -0.523879 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1377) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1377) imag");
};
};
};
{
int order = 102;
int trans = 112;
int uplo = 121;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 1.00136463678, -1.84591534629, -1.12140892769, 0.696784840869 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1378) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1378) imag");
};
};
};
{
int order = 102;
int trans = 112;
int uplo = 121;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 1.707508, -0.042521, -0.668, -0.945 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1379) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1379) imag");
};
};
};
{
int order = 102;
int trans = 112;
int uplo = 122;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.430509772467, -0.0927067365535, -0.611144484555, 0.999982608216 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1380) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1380) imag");
};
};
};
{
int order = 102;
int trans = 112;
int uplo = 122;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.344, -0.143, -0.795928, -0.523879 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1381) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1381) imag");
};
};
};
{
int order = 101;
int trans = 113;
int uplo = 121;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { -1.47384781823, -0.286556198408, 1.03098932879, -0.824698794397 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1382) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1382) imag");
};
};
};
{
int order = 101;
int trans = 113;
int uplo = 121;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { -0.016172, 1.175911, -0.668, -0.945 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1383) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1383) imag");
};
};
};
{
int order = 101;
int trans = 113;
int uplo = 122;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.369363905801, -0.239798891331, 1.1759505739, -1.40027235656 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1384) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1384) imag");
};
};
};
{
int order = 101;
int trans = 113;
int uplo = 122;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.344, -0.143, -1.05676, -1.151335 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1385) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1385) imag");
};
};
};
{
int order = 102;
int trans = 113;
int uplo = 121;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { -1.47384781823, -0.286556198408, 1.03098932879, -0.824698794397 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1386) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1386) imag");
};
};
};
{
int order = 102;
int trans = 113;
int uplo = 121;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { -0.016172, 1.175911, -0.668, -0.945 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1387) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1387) imag");
};
};
};
{
int order = 102;
int trans = 113;
int uplo = 122;
int diag = 131;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.369363905801, -0.239798891331, 1.1759505739, -1.40027235656 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1388) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1388) imag");
};
};
};
{
int order = 102;
int trans = 113;
int uplo = 122;
int diag = 132;
int N = 2;
double A[] = { 0.052, 0.875, 0.751, -0.912, 0.832, -0.153 };
double X[] = { 0.344, -0.143, -0.668, -0.945 };
int incX = -1;
double x_expected[] = { 0.344, -0.143, -1.05676, -1.151335 };
cblas_ztpsv(order, uplo, trans, diag, N, A, X, incX);
{
int i;
for (i = 0; i < 2; i++) {
gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztpsv(case 1389) real");
gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztpsv(case 1389) imag");
};
};
};
}
