This is mostly a long term maintenance improvement.
Many coding styles require elimination of trailing whitespace, and
many editors and source code management configurations automatically
gobble up whitespace. When these tools gobble up whitespace, it
complicates reviewing the meaningful code changes.
By removing whitespace on one patch, it makes future
code reviews much easier.
=SCRIPT====================================================================
if which tempfile &>/dev/null; then
TEMPMAKER=tempfile
elif which mktemp &>/dev/null; then
TEMPMAKER=mktemp
else
echo "Cannot find tempfile program." 2>&1
exit 1
fi
MYTEMP=$($TEMPMAKER)
trap 'rm -f $MYTEMP' SIGINT SIGTERM
stripit() {
echo "stripping $1"
sed 's/[ \t]*$//' "$1" > $MYTEMP
cp $MYTEMP "$1"
}
if [ $# -gt 0 ]; then
while [ "$1" != "" ]; do
stripit $1
shift
done
else
while read -t 2; do
stripit $REPLY
done
fi
rm $MYTEMP
=================================================
a[m+3] = 1;
/* The elements of the third column */
a[m*2] = 3;
- a[m*2+1] = 4;
+ a[m*2+1] = 4;
a[m*2+2] = 5;
a[m*2+3] = 6;
/* The elements of the fourth column */
a[m*3+1] = 6;
a[m*3+2] = 7;
a[m*3+3] = 8;
- /* The elemetns of x and y */
+ /* The elemetns of x and y */
x[0] = 1;
x[1] = 2;
x[2] = 1;
y[1] = 0;
y[2] = 0;
y[3] = 0;
-
+
cblas_dgemv( Layout, transa, m, n, alpha, a, lda, x, incx, beta,
y, incy );
/* Print y */
- for( i = 0; i < n; i++ )
+ for( i = 0; i < n; i++ )
printf(" y%d = %f\n", i, y[i]);
free(a);
free(x);
int main (int argc, char **argv )
{
int rout=-1,info=0,m,n,k,lda,ldb,ldc;
- double A[2] = {0.0,0.0},
- B[2] = {0.0,0.0},
- C[2] = {0.0,0.0},
+ double A[2] = {0.0,0.0},
+ B[2] = {0.0,0.0},
+ C[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0;
-
+
if (argc > 2){
rout = atoi(argv[1]);
info = atoi(argv[2]);
}
-
+
if (rout == 1) {
if (info==0) {
printf("Checking if cblas_dgemm fails on parameter 4\n");
&ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc );
}
}
-
+
return 0;
}
* ===========================================================================
*/
-/*
+/*
* Routines with standard 4 prefixes (s, d, c, z)
*/
-void cblas_sswap(const int N, float *X, const int incX,
+void cblas_sswap(const int N, float *X, const int incX,
float *Y, const int incY);
-void cblas_scopy(const int N, const float *X, const int incX,
+void cblas_scopy(const int N, const float *X, const int incX,
float *Y, const int incY);
void cblas_saxpy(const int N, const float alpha, const float *X,
const int incX, float *Y, const int incY);
-void cblas_dswap(const int N, double *X, const int incX,
+void cblas_dswap(const int N, double *X, const int incX,
double *Y, const int incY);
-void cblas_dcopy(const int N, const double *X, const int incX,
+void cblas_dcopy(const int N, const double *X, const int incX,
double *Y, const int incY);
void cblas_daxpy(const int N, const double alpha, const double *X,
const int incX, double *Y, const int incY);
-void cblas_cswap(const int N, void *X, const int incX,
+void cblas_cswap(const int N, void *X, const int incX,
void *Y, const int incY);
-void cblas_ccopy(const int N, const void *X, const int incX,
+void cblas_ccopy(const int N, const void *X, const int incX,
void *Y, const int incY);
void cblas_caxpy(const int N, const void *alpha, const void *X,
const int incX, void *Y, const int incY);
-void cblas_zswap(const int N, void *X, const int incX,
+void cblas_zswap(const int N, void *X, const int incX,
void *Y, const int incY);
-void cblas_zcopy(const int N, const void *X, const int incX,
+void cblas_zcopy(const int N, const void *X, const int incX,
void *Y, const int incY);
void cblas_zaxpy(const int N, const void *alpha, const void *X,
const int incX, void *Y, const int incY);
-/*
+/*
* Routines with S and D prefix only
*/
void cblas_srotg(float *a, float *b, float *c, float *s);
double *Y, const int incY, const double *P);
-/*
+/*
* Routines with S D C Z CS and ZD prefixes
*/
void cblas_sscal(const int N, const float alpha, float *X, const int incX);
* ===========================================================================
*/
-/*
+/*
* Routines with standard 4 prefixes (S, D, C, Z)
*/
void cblas_sgemv(const CBLAS_LAYOUT layout,
const int incX, const float beta, float *Y, const int incY);
void cblas_strmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
- const int N, const float *A, const int lda,
+ const int N, const float *A, const int lda,
float *X, const int incX);
void cblas_stbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
- const int N, const int K, const float *A, const int lda,
+ const int N, const int K, const float *A, const int lda,
float *X, const int incX);
void cblas_stpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
const int incX, const double beta, double *Y, const int incY);
void cblas_dtrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
- const int N, const double *A, const int lda,
+ const int N, const double *A, const int lda,
double *X, const int incX);
void cblas_dtbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
- const int N, const int K, const double *A, const int lda,
+ const int N, const int K, const double *A, const int lda,
double *X, const int incX);
void cblas_dtpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
const int incX, const void *beta, void *Y, const int incY);
void cblas_ctrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
- const int N, const void *A, const int lda,
+ const int N, const void *A, const int lda,
void *X, const int incX);
void cblas_ctbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
- const int N, const int K, const void *A, const int lda,
+ const int N, const int K, const void *A, const int lda,
void *X, const int incX);
void cblas_ctpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
const int incX, const void *beta, void *Y, const int incY);
void cblas_ztrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
- const int N, const void *A, const int lda,
+ const int N, const void *A, const int lda,
void *X, const int incX);
void cblas_ztbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
- const int N, const int K, const void *A, const int lda,
+ const int N, const int K, const void *A, const int lda,
void *X, const int incX);
void cblas_ztpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag,
const int N, const void *Ap, void *X, const int incX);
-/*
+/*
* Routines with S and D prefixes only
*/
void cblas_ssymv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
const int incX, const double *Y, const int incY, double *A);
-/*
+/*
* Routines with C and Z prefixes only
*/
void cblas_chemv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo,
* ===========================================================================
*/
-/*
+/*
* Routines with standard 4 prefixes (S, D, C, Z)
*/
void cblas_sgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA,
void *B, const int ldb);
-/*
+/*
* Routines with prefixes C and Z only
*/
void cblas_chemm(CBLAS_LAYOUT layout, CBLAS_SIDE Side,
/* Single Precision */
void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *);
- void F77_srotg(float *,float *,float *,float *);
+ void F77_srotg(float *,float *,float *,float *);
void F77_srotm( FINT, float *, FINT, float *, FINT, const float *);
void F77_srotmg(float *,float *,float *,const float *, float *);
void F77_sswap( FINT, float *, FINT, float *, FINT);
/* Double Precision */
void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *);
- void F77_drotg(double *,double *,double *,double *);
+ void F77_drotg(double *,double *,double *,double *);
void F77_drotm( FINT, double *, FINT, double *, FINT, const double *);
void F77_drotmg(double *,double *,double *,const double *, double *);
void F77_dswap( FINT, double *, FINT, double *, FINT);
void F77_stpsv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
void F77_sger( FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT);
- void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *);
- void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *);
+ void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *);
+ void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *);
void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
/* Double Precision */
void F77_dtpsv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
void F77_dger( FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT);
- void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *);
- void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *);
+ void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *);
+ void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *);
void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
/* Single Complex Precision */
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
#endif
F77_caxpy( &F77_N, alpha, X, &F77_incX, Y, &F77_incY);
-}
+}
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
/*
* cblas_cgbmv.c
* The program is a C interface of cgbmv
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#ifdef F77_CHAR
F77_CHAR F77_TA;
#else
- #define F77_TA &TA
+ #define F77_TA &TA
#endif
#ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
- F77_cgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha,
+ F77_cgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha,
A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
tincY = -incY;
y++;
-
+
if (N > 0)
{
i = tincY << 1;
}
else x = (float *) X;
-
+
}
- else
+ else
{
cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
F77_TA = C2F_CHAR(&TA);
#endif
if (TransA == CblasConjTrans)
- F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, ALPHA,
+ F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, ALPHA,
A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
else
- F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha,
+ F77_cgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha,
A ,&F77_lda, x,&F77_incX, beta, Y, &F77_incY);
if (TransA == CblasConjTrans)
{
const int lda, const void *B, const int ldb,
const void *beta, void *C, const int ldc)
{
- char TA, TB;
+ char TA, TB;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_TB;
#else
- #define F77_TA &TA
- #define F77_TB &TB
+ #define F77_TA &TA
+ #define F77_TB &TB
#endif
#ifdef F77_INT
if(TransA == CblasTrans) TA='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if(TransB == CblasTrans) TB='T';
else if ( TransB == CblasConjTrans ) TB='C';
else if ( TransB == CblasNoTrans ) TB='N';
- else
+ else
{
cblas_xerbla(3, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
if(TransA == CblasTrans) TB='T';
else if ( TransA == CblasConjTrans ) TB='C';
else if ( TransA == CblasNoTrans ) TB='N';
- else
+ else
{
cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if(TransB == CblasTrans) TA='T';
else if ( TransB == CblasConjTrans ) TA='C';
else if ( TransB == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(2, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
F77_cgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, alpha, B,
&F77_ldb, A, &F77_lda, beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_cgemm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
* cblas_cgemv.c
* The program is a C interface of cgemv
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#ifdef F77_CHAR
F77_CHAR F77_TA;
#else
- #define F77_TA &TA
+ #define F77_TA &TA
#endif
#ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
- F77_cgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
+ F77_cgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
-
+
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans)
i = incX << 1 ;
tincx = 2;
st= x+n;
- } else {
+ } else {
i = incX *(-2);
tincx = -2;
- st = x-2;
- x +=(n-2);
+ st = x-2;
+ x +=(n-2);
}
do
F77_incX = 1;
if(incY > 0)
- tincY = incY;
+ tincY = incY;
else
- tincY = -incY;
+ tincY = -incY;
y++;
do {
*y = -(*y);
y += i;
- } while(y != st);
+ } while(y != st);
y -= n;
}
stx = x;
}
else stx = (const float *)X;
}
- else
+ else
{
cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
/*
* cblas_cgerc.c
* The program is a C interface to cgerc.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#define F77_N N
#define F77_incX incX
#define F77_incY incy
- #define F77_lda lda
+ #define F77_lda lda
#endif
int n, i, tincy, incy=incY;
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
- F77_cgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
+ F77_cgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
&F77_lda);
- } else if (layout == CblasRowMajor)
+ } else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if (N > 0)
i = incY << 1;
tincy = 2;
st= y+n;
- } else {
+ } else {
i = incY *(-2);
tincy = -2;
- st = y-2;
- y +=(n-2);
+ st = y-2;
+ y +=(n-2);
}
do
{
}
else y = (float *) Y;
- F77_cgeru( &F77_N, &F77_M, alpha, y, &F77_incY, X, &F77_incX, A,
+ F77_cgeru( &F77_N, &F77_M, alpha, y, &F77_incY, X, &F77_incX, A,
&F77_lda);
if(Y!=y)
free(y);
/*
* cblas_cgeru.c
* The program is a C interface to cgeru.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
- F77_cgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A,
+ F77_cgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A,
&F77_lda);
}
else cblas_xerbla(1, "cblas_cgeru","Illegal layout setting, %d\n", layout);
/*
* cblas_chbmv.c
* The program is a C interface to chbmv
- *
+ *
* Keita Teranishi 5/18/98
*
*/
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_chbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X,
+ F77_chbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X,
&F77_incX, beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
{
n = N << 1;
x = malloc(n*sizeof(float));
-
+
tx = x;
if( incX > 0 ) {
i = incX << 1 ;
#else
incx = 1;
#endif
-
+
if(incY > 0)
tincY = incY;
else
} while(y != st);
y -= n;
} else
- x = (float *) X;
+ x = (float *) X;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_chbmv(F77_UL, &F77_N, &F77_K, ALPHA,
+ F77_chbmv(F77_UL, &F77_N, &F77_K, ALPHA,
A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
}
- else
+ else
{
cblas_xerbla(1, "cblas_chbmv","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
const void *B, const int ldb, const void *beta,
void *C, const int ldc)
{
- char SD, UL;
+ char SD, UL;
#ifdef F77_CHAR
F77_CHAR F77_SD, F77_UL;
#else
- #define F77_SD &SD
- #define F77_UL &UL
+ #define F77_SD &SD
+ #define F77_UL &UL
#endif
#ifdef F77_INT
{
if( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
F77_SD = C2F_CHAR(&SD);
#endif
- F77_chemm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda,
+ F77_chemm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda,
B, &F77_ldb, beta, C, &F77_ldc);
} else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
F77_chemm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A,
&F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_chemm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
* cblas_chemv.c
* The program is a C interface to chemv
- *
+ *
* Keita Teranishi 5/18/98
*
*/
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_chemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
+ F77_chemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
{
n = N << 1;
x = malloc(n*sizeof(float));
-
+
tx = x;
if( incX > 0 ) {
i = incX << 1 ;
#else
incx = 1;
#endif
-
+
if(incY > 0)
tincY = incY;
else
} else
x = (float *) X;
-
+
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_chemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX,
+ F77_chemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX,
BETA, Y, &F77_incY);
}
- else
+ else
{
cblas_xerbla(1, "cblas_chemv","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
/*
* cblas_cher.c
* The program is a C interface to cher.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
RowMajorStrg = 0;
-
+
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
i = incX << 1 ;
tincx = 2;
st= x+n;
- } else {
+ } else {
i = incX *(-2);
tincx = -2;
- st = x-2;
- x +=(n-2);
+ st = x-2;
+ x +=(n-2);
}
do
{
}
else x = (float *) X;
F77_cher(F77_UL, &F77_N, &alpha, x, &F77_incX, A, &F77_lda);
- } else
+ } else
{
cblas_xerbla(1, "cblas_cher","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
}
- if(X!=x)
+ if(X!=x)
free(x);
-
+
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
/*
* cblas_cher2.c
* The program is a C interface to cher2.
- *
+ *
* Keita Teranishi 3/23/98
*
*/
#define F77_incY incy
#endif
int n, i, j, tincx, tincy, incx=incX, incy=incY;
- float *x=(float *)X, *xx=(float *)X, *y=(float *)Y,
+ float *x=(float *)X, *xx=(float *)X, *y=(float *)Y,
*yy=(float *)Y, *tx, *ty, *stx, *sty;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
RowMajorStrg = 0;
-
+
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
F77_UL = C2F_CHAR(&UL);
#endif
- F77_cher2(F77_UL, &F77_N, alpha, X, &F77_incX,
+ F77_cher2(F77_UL, &F77_N, alpha, X, &F77_incX,
Y, &F77_incY, A, &F77_lda);
} else if (layout == CblasRowMajor)
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
{
n = N << 1;
x = malloc(n*sizeof(float));
- y = malloc(n*sizeof(float));
+ y = malloc(n*sizeof(float));
tx = x;
ty = y;
if( incX > 0 ) {
i = incX << 1 ;
tincx = 2;
stx= x+n;
- } else {
+ } else {
i = incX *(-2);
tincx = -2;
- stx = x-2;
- x +=(n-2);
+ stx = x-2;
+ x +=(n-2);
}
-
+
if( incY > 0 ) {
j = incY << 1;
tincy = 2;
sty= y+n;
- } else {
+ } else {
j = incY *(-2);
tincy = -2;
- sty = y-2;
- y +=(n-2);
+ sty = y-2;
+ y +=(n-2);
}
do
incx = 1;
incy = 1;
#endif
- } else
+ } else
{
x = (float *) X;
y = (float *) Y;
}
- F77_cher2(F77_UL, &F77_N, alpha, y, &F77_incY, x,
+ F77_cher2(F77_UL, &F77_N, alpha, y, &F77_incY, x,
&F77_incX, A, &F77_lda);
- } else
+ } else
{
cblas_xerbla(1, "cblas_cher2","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
const void *B, const int ldb, const float beta,
void *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TR, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
- float ALPHA[2];
+ float ALPHA[2];
const float *alp=(float *)alpha;
CBLAS_CallFromC = 1;
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
} else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
-
+
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='C';
- else
+ else
{
cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
ALPHA[0]= *alp;
ALPHA[1]= -alp[1];
F77_cher2k(F77_UL,F77_TR, &F77_N, &F77_K, ALPHA, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_cher2k", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
const float alpha, const void *A, const int lda,
const float beta, void *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TR, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
{
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(2, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='C';
- else
+ else
{
cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
F77_cherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
&beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_cherk", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
* cblas_chpmv.c
* The program is a C interface of chpmv
- *
+ *
* Keita Teranishi 5/18/98
*
*/
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
extern int RowMajorStrg;
RowMajorStrg = 0;
- CBLAS_CallFromC = 1;
+ CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
- {
+ {
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_chpmv(F77_UL, &F77_N, alpha, AP, X,
+ F77_chpmv(F77_UL, &F77_N, alpha, AP, X,
&F77_incX, beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
{
n = N << 1;
x = malloc(n*sizeof(float));
-
+
tx = x;
if( incX > 0 ) {
i = incX << 1;
#else
incx = 1;
#endif
-
+
if(incY > 0)
tincY = incY;
else
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n", Uplo );
CBLAS_CallFromC = 0;
F77_UL = C2F_CHAR(&UL);
#endif
- F77_chpmv(F77_UL, &F77_N, ALPHA,
+ F77_chpmv(F77_UL, &F77_N, ALPHA,
AP, x, &F77_incX, BETA, Y, &F77_incY);
}
- else
+ else
{
cblas_xerbla(1, "cblas_chpmv","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
}
- if ( layout == CblasRowMajor )
+ if ( layout == CblasRowMajor )
{
RowMajorStrg = 1;
if(X!=x)
/*
* cblas_chpr.c
* The program is a C interface to chpr.
- *
+ *
* Keita Teranishi 3/23/98
*
*/
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
RowMajorStrg = 0;
-
+
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
i = incX << 1;
tincx = 2;
st= x+n;
- } else {
+ } else {
i = incX *(-2);
tincx = -2;
- st = x-2;
- x +=(n-2);
+ st = x-2;
+ x +=(n-2);
}
do
{
F77_chpr(F77_UL, &F77_N, &alpha, x, &F77_incX, A);
- } else
+ } else
{
cblas_xerbla(1, "cblas_chpr","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
/*
* cblas_chpr2.c
* The program is a C interface to chpr2.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
- const int N,const void *alpha, const void *X,
+ const int N,const void *alpha, const void *X,
const int incX,const void *Y, const int incY, void *Ap)
{
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
RowMajorStrg = 0;
-
+
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
stx = x-2;
x +=(n-2);
}
-
+
if( incY > 0 ) {
j = incY << 1;
tincy = 2;
sty = y-2;
y +=(n-2);
}
-
+
do
{
*x = *xx;
yy += j;
}
while (y != sty);
-
+
x=tx;
y=ty;
-
+
#ifdef F77_INT
F77_incX = 1;
F77_incY = 1;
incy = 1;
#endif
- } else
+ } else
{
x = (float *) X;
y = (void *) Y;
}
F77_chpr2(F77_UL, &F77_N, alpha, y, &F77_incY, x, &F77_incX, Ap);
- } else
+ } else
{
cblas_xerbla(1, "cblas_chpr2","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
*/
#include "cblas.h"
#include "cblas_f77.h"
-void cblas_cscal( const int N, const void *alpha, void *X,
+void cblas_cscal( const int N, const void *alpha, void *X,
const int incX)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
const void *B, const int ldb, const void *beta,
void *C, const int ldc)
{
- char SD, UL;
+ char SD, UL;
#ifdef F77_CHAR
F77_CHAR F77_SD, F77_UL;
#else
- #define F77_SD &SD
- #define F77_UL &UL
+ #define F77_SD &SD
+ #define F77_UL &UL
#endif
#ifdef F77_INT
{
if( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
F77_csymm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda,
B, &F77_ldb, beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_csymm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
-}
+}
const void *B, const int ldb, const void *beta,
void *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TR, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(2, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='T';
- else
+ else
{
cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
#endif
F77_csyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_csyr2k", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
const void *alpha, const void *A, const int lda,
const void *beta, void *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TR, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(2, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='T';
- else
+ else
{
cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
F77_csyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda,
beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_csyrk", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
* cblas_ctbmv.c
* The program is a C interface to ctbmv.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
#define F77_lda lda
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
float *st=0, *x=(float *)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctbmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
/*
* cblas_ctbsv.c
* The program is a C interface to ctbsv.
- *
+ *
* Keita Teranishi 3/23/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
#define F77_lda lda
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
float *st=0,*x=(float *)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
tincX = incX;
else
tincX = -incX;
-
+
n = N*2*(tincX);
-
+
x++;
st=x+n;
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
/*
* cblas_ctpmv.c
* The program is a C interface to ctpmv.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
#define F77_N N
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
float *st=0,*x=(float *)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
/*
* cblas_ctpsv.c
* The program is a C interface to ctpsv.
- *
+ *
* Keita Teranishi 3/23/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
#define F77_N N
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
float *st=0, *x=(float*)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
tincX = incX;
else
tincX = -incX;
-
+
n = N*2*(tincX);
-
+
x++;
st=x+n;
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
const void *alpha, const void *A, const int lda,
void *B, const int ldb)
{
- char UL, TA, SD, DI;
+ char UL, TA, SD, DI;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
#else
- #define F77_TA &TA
- #define F77_UL &UL
+ #define F77_TA &TA
+ #define F77_UL &UL
#define F77_SD &SD
#define F77_DI &DI
#endif
{
if( Side == CblasRight ) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
}
if( Uplo == CblasUpper ) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans ) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else cblas_xerbla(5, "cblas_ctrmm",
+ else cblas_xerbla(5, "cblas_ctrmm",
"Illegal Diag setting, %d\n", Diag);
#ifdef F77_CHAR
RowMajorStrg = 1;
if( Side == CblasRight ) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper ) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans ) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_ctrmm", "Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
#endif
F77_ctrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb);
- }
+ }
else cblas_xerbla(1, "cblas_ctrmm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
* cblas_ctrmv.c
* The program is a C interface to ctrmv.
- *
+ *
* Keita Teranishi 3/23/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
#define F77_lda lda
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
float *st=0,*x=(float *)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
if( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
if( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
F77_ctrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A,
&F77_lda, B, &F77_ldb);
- }
+ }
else cblas_xerbla(1, "cblas_ctrsm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
* cblas_ctrsv.c
* The program is a C interface to ctrsv.
- *
+ *
* Keita Teranishi 3/23/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
#define F77_lda lda
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
float *st=0,*x=(float *)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
tincX = incX;
else
tincX = -incX;
-
+
n = N*2*(tincX);
x++;
- st=x+n;
+ st=x+n;
i = tincX << 1;
do
{
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
*/
#include "cblas.h"
#include "cblas_f77.h"
-double cblas_dasum( const int N, const double *X, const int incX)
+double cblas_dasum( const int N, const double *X, const int incX)
{
double asum;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
#endif
F77_daxpy( &F77_N, &alpha, X, &F77_incX, Y, &F77_incY);
-}
+}
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
double dot;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
#endif
F77_ddot_sub( &F77_N, X, &F77_incX, Y, &F77_incY, &dot);
return dot;
-}
+}
#ifdef F77_CHAR
F77_CHAR F77_TA;
#else
- #define F77_TA &TA
+ #define F77_TA &TA
#endif
#ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
- F77_dgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, &alpha,
+ F77_dgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, &alpha,
A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
- F77_dgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha,
+ F77_dgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha,
A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
}
else cblas_xerbla(1, "cblas_dgbmv", "Illegal layout setting, %d\n", layout);
const int lda, const double *B, const int ldb,
const double beta, double *C, const int ldc)
{
- char TA, TB;
+ char TA, TB;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_TB;
#else
- #define F77_TA &TA
- #define F77_TB &TB
+ #define F77_TA &TA
+ #define F77_TB &TB
#endif
#ifdef F77_INT
if(TransA == CblasTrans) TA='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if(TransB == CblasTrans) TB='T';
else if ( TransB == CblasConjTrans ) TB='C';
else if ( TransB == CblasNoTrans ) TB='N';
- else
+ else
{
cblas_xerbla(3, "cblas_dgemm","Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
if(TransA == CblasTrans) TB='T';
else if ( TransA == CblasConjTrans ) TB='C';
else if ( TransA == CblasNoTrans ) TB='N';
- else
+ else
{
cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if(TransB == CblasTrans) TA='T';
else if ( TransB == CblasConjTrans ) TA='C';
else if ( TransB == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(2, "cblas_dgemm","Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
F77_dgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, &alpha, B,
&F77_ldb, A, &F77_lda, &beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_dgemm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
#ifdef F77_CHAR
F77_CHAR F77_TA;
#else
- #define F77_TA &TA
+ #define F77_TA &TA
#endif
#ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
- F77_dgemv(F77_TA, &F77_M, &F77_N, &alpha, A, &F77_lda, X, &F77_incX,
+ F77_dgemv(F77_TA, &F77_M, &F77_N, &alpha, A, &F77_lda, X, &F77_incX,
&beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
- F77_dger( &F77_M, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
+ F77_dger( &F77_M, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
&F77_lda);
}
else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
- F77_dger( &F77_N, &F77_M ,&alpha, Y, &F77_incY, X, &F77_incX, A,
+ F77_dger( &F77_N, &F77_M ,&alpha, Y, &F77_incY, X, &F77_incX, A,
&F77_lda);
}
*/
#include "cblas.h"
#include "cblas_f77.h"
-double cblas_dnrm2( const int N, const double *X, const int incX)
+double cblas_dnrm2( const int N, const double *X, const int incX)
{
double nrm2;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
#else
- #define F77_N N
- #define F77_incX incX
- #define F77_incY incY
+ #define F77_N N
+ #define F77_incX incX
+ #define F77_incY incY
#endif
F77_drot(&F77_N, X, &F77_incX, Y, &F77_incY, &c, &s);
return;
#include "cblas_f77.h"
void cblas_drotg( double *a, double *b, double *c, double *s)
{
- F77_drotg(a,b,c,s);
+ F77_drotg(a,b,c,s);
}
#include "cblas.h"
#include "cblas_f77.h"
-void cblas_drotm( const int N, double *X, const int incX, double *Y,
+void cblas_drotm( const int N, double *X, const int incX, double *Y,
const int incY, const double *P)
{
#ifdef F77_INT
#define F77_incY incY
#endif
F77_drotm( &F77_N, X, &F77_incX, Y, &F77_incY, P);
-}
+}
*/
#include "cblas.h"
#include "cblas_f77.h"
-void cblas_drotmg( double *d1, double *d2, double *b1,
+void cblas_drotmg( double *d1, double *d2, double *b1,
const double b2, double *p)
{
F77_drotmg(d1,d2,b1,&b2,p);
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha, A, &F77_lda, X,
+ F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha, A, &F77_lda, X,
&F77_incX, &beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha,
+ F77_dsbmv(F77_UL, &F77_N, &F77_K, &alpha,
A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
}
else cblas_xerbla(1, "cblas_dsbmv", "Illegal layout setting, %d\n", layout);
*/
#include "cblas.h"
#include "cblas_f77.h"
-void cblas_dscal( const int N, const double alpha, double *X,
+void cblas_dscal( const int N, const double alpha, double *X,
const int incX)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
double dot;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
#endif
F77_dsdot_sub( &F77_N, X, &F77_incX, Y, &F77_incY, &dot);
return dot;
-}
+}
* 4/6/1998
*
*/
-
+
#include "cblas.h"
#include "cblas_f77.h"
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_dspmv(F77_UL, &F77_N, &alpha, AP, X,
+ F77_dspmv(F77_UL, &F77_N, &alpha, AP, X,
&F77_incX, &beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_dspmv(F77_UL, &F77_N, &alpha,
+ F77_dspmv(F77_UL, &F77_N, &alpha,
AP, X,&F77_incX, &beta, Y, &F77_incY);
}
else cblas_xerbla(1, "cblas_dspmv", "Illegal layout setting, %d\n", layout);
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
F77_dspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
- } else if (layout == CblasRowMajor)
+ } else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if (Uplo == CblasLower) UL = 'U';
else if (Uplo == CblasUpper) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
}
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
- #endif
- F77_dspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
+ #endif
+ F77_dspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
} else cblas_xerbla(1, "cblas_dspr", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
F77_dspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
- } else if (layout == CblasRowMajor)
+ } else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if (Uplo == CblasLower) UL = 'U';
else if (Uplo == CblasUpper) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
}
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
- #endif
- F77_dspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
+ #endif
+ F77_dspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
} else cblas_xerbla(1, "cblas_dspr2", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
const double *B, const int ldb, const double beta,
double *C, const int ldc)
{
- char SD, UL;
+ char SD, UL;
#ifdef F77_CHAR
F77_CHAR F77_SD, F77_UL;
#else
- #define F77_SD &SD
- #define F77_UL &UL
+ #define F77_SD &SD
+ #define F77_UL &UL
#endif
#ifdef F77_INT
{
if( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
F77_dsymm(F77_SD, F77_UL, &F77_N, &F77_M, &alpha, A, &F77_lda, B,
&F77_ldb, &beta, C, &F77_ldc);
- }
- else cblas_xerbla(1, "cblas_dsymm","Illegal layout setting, %d\n", layout);
+ }
+ else cblas_xerbla(1, "cblas_dsymm","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
-}
+}
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_dsymv(F77_UL, &F77_N, &alpha, A, &F77_lda, X,
+ F77_dsymv(F77_UL, &F77_N, &alpha, A, &F77_lda, X,
&F77_incX, &beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_dsymv(F77_UL, &F77_N, &alpha,
+ F77_dsymv(F77_UL, &F77_N, &alpha,
A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
}
else cblas_xerbla(1, "cblas_dsymv", "Illegal layout setting, %d\n", layout);
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
F77_dsyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
- } else if (layout == CblasRowMajor)
+ } else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if (Uplo == CblasLower) UL = 'U';
else if (Uplo == CblasUpper) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
}
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
- #endif
- F77_dsyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
+ #endif
+ F77_dsyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
} else cblas_xerbla(1, "cblas_dsyr", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
-}
+}
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
F77_UL = C2F_CHAR(&UL);
#endif
- F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
+ F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
&F77_lda);
- } else if (layout == CblasRowMajor)
+ } else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if (Uplo == CblasLower) UL = 'U';
else if (Uplo == CblasUpper) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
}
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
- #endif
- F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
- &F77_lda);
+ #endif
+ F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
+ &F77_lda);
} else cblas_xerbla(1, "cblas_dsyr2", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
const double *B, const int ldb, const double beta,
double *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(2, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='T';
- else
+ else
{
cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
F77_TR = C2F_CHAR(&TR);
#endif
- F77_dsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, B,
+ F77_dsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, B,
&F77_ldb, &beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_dsyr2k","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
const double alpha, const double *A, const int lda,
const double beta, double *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TR, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(2, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='T';
- else
+ else
{
cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
F77_dsyrk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
&beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_dsyrk","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtbmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
const double alpha, const double *A, const int lda,
double *B, const int ldb)
{
- char UL, TA, SD, DI;
+ char UL, TA, SD, DI;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
#else
- #define F77_TA &TA
- #define F77_UL &UL
+ #define F77_TA &TA
+ #define F77_UL &UL
#define F77_SD &SD
#define F77_DI &DI
#endif
{
if( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
}
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
F77_DI = C2F_CHAR(&DI);
#endif
F77_dtrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb);
- }
+ }
else cblas_xerbla(1, "cblas_dtrmm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
* 4/6/1998
*
*/
-
+
#include "cblas.h"
#include "cblas_f77.h"
void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
double *B, const int ldb)
{
- char UL, TA, SD, DI;
+ char UL, TA, SD, DI;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
#else
- #define F77_TA &TA
- #define F77_UL &UL
+ #define F77_TA &TA
+ #define F77_UL &UL
#define F77_SD &SD
#define F77_DI &DI
#endif
{
if ( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
}
if ( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if ( TransA == CblasTrans ) TA='T';
else if ( TransA == CblasConjTrans) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if ( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
F77_dtrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_M, &F77_N, &alpha,
A, &F77_lda, B, &F77_ldb);
- }
+ }
else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if ( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if ( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if ( TransA == CblasTrans ) TA='T';
else if ( TransA == CblasConjTrans) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if ( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
F77_DI = C2F_CHAR(&DI);
#endif
- F77_dtrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A,
+ F77_dtrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A,
&F77_lda, B, &F77_ldb);
- }
+ }
else cblas_xerbla(1, "cblas_dtrsm","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
*/
#include "cblas.h"
#include "cblas_f77.h"
-double cblas_dzasum( const int N, const void *X, const int incX)
+double cblas_dzasum( const int N, const void *X, const int incX)
{
double asum;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
*/
#include "cblas.h"
#include "cblas_f77.h"
-double cblas_dznrm2( const int N, const void *X, const int incX)
+double cblas_dznrm2( const int N, const void *X, const int incX)
{
double nrm2;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
CBLAS_INDEX iamax;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
CBLAS_INDEX iamax;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
CBLAS_INDEX iamax;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
CBLAS_INDEX iamax;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
*/
#include "cblas.h"
#include "cblas_f77.h"
-float cblas_sasum( const int N, const float *X, const int incX)
+float cblas_sasum( const int N, const float *X, const int incX)
{
float asum;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
#endif
F77_saxpy( &F77_N, &alpha, X, &F77_incX, Y, &F77_incY);
-}
+}
*/
#include "cblas.h"
#include "cblas_f77.h"
-float cblas_scasum( const int N, const void *X, const int incX)
+float cblas_scasum( const int N, const void *X, const int incX)
{
float asum;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
*/
#include "cblas.h"
#include "cblas_f77.h"
-float cblas_scnrm2( const int N, const void *X, const int incX)
+float cblas_scnrm2( const int N, const void *X, const int incX)
{
float nrm2;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
float dot;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
#endif
F77_sdot_sub( &F77_N, X, &F77_incX, Y, &F77_incY, &dot);
return dot;
-}
+}
float dot;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
#endif
F77_sdsdot_sub( &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, &dot);
return dot;
-}
+}
#ifdef F77_CHAR
F77_CHAR F77_TA;
#else
- #define F77_TA &TA
+ #define F77_TA &TA
#endif
#ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
- F77_sgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, &alpha,
+ F77_sgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, &alpha,
A, &F77_lda, X, &F77_incX, &beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
- F77_sgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha,
+ F77_sgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, &alpha,
A ,&F77_lda, X, &F77_incX, &beta, Y, &F77_incY);
}
else cblas_xerbla(1, "cblas_sgbmv", "Illegal layout setting, %d\n", layout);
const int lda, const float *B, const int ldb,
const float beta, float *C, const int ldc)
{
- char TA, TB;
+ char TA, TB;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_TB;
#else
- #define F77_TA &TA
- #define F77_TB &TB
+ #define F77_TA &TA
+ #define F77_TB &TB
#endif
#ifdef F77_INT
#define F77_ldb ldb
#define F77_ldc ldc
#endif
-
+
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
RowMajorStrg = 0;
if(TransA == CblasTrans) TA='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
- cblas_xerbla(2, "cblas_sgemm",
+ cblas_xerbla(2, "cblas_sgemm",
"Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
if(TransB == CblasTrans) TB='T';
else if ( TransB == CblasConjTrans ) TB='C';
else if ( TransB == CblasNoTrans ) TB='N';
- else
+ else
{
- cblas_xerbla(3, "cblas_sgemm",
+ cblas_xerbla(3, "cblas_sgemm",
"Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
if(TransA == CblasTrans) TB='T';
else if ( TransA == CblasConjTrans ) TB='C';
else if ( TransA == CblasNoTrans ) TB='N';
- else
+ else
{
- cblas_xerbla(2, "cblas_sgemm",
+ cblas_xerbla(2, "cblas_sgemm",
"Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
if(TransB == CblasTrans) TA='T';
else if ( TransB == CblasConjTrans ) TA='C';
else if ( TransB == CblasNoTrans ) TA='N';
- else
+ else
{
- cblas_xerbla(2, "cblas_sgemm",
+ cblas_xerbla(2, "cblas_sgemm",
"Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
#endif
F77_sgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, &alpha, B, &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc);
- } else
+ } else
cblas_xerbla(1, "cblas_sgemm",
"Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
* This program is a C interface to sgemv.
* Written by Keita Teranishi
* 4/6/1998
- *
+ *
*/
#include "cblas.h"
#include "cblas_f77.h"
#ifdef F77_CHAR
F77_CHAR F77_TA;
#else
- #define F77_TA &TA
+ #define F77_TA &TA
#endif
#ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(2, "cblas_sgemv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
- F77_sgemv(F77_TA, &F77_M, &F77_N, &alpha, A, &F77_lda, X, &F77_incX,
+ F77_sgemv(F77_TA, &F77_M, &F77_N, &alpha, A, &F77_lda, X, &F77_incX,
&beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(2, "cblas_sgemv", "Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
- F77_sger( &F77_N, &F77_M, &alpha, Y, &F77_incY, X, &F77_incX, A,
+ F77_sger( &F77_N, &F77_M, &alpha, Y, &F77_incY, X, &F77_incX, A,
&F77_lda);
}
else cblas_xerbla(1, "cblas_sger", "Illegal layout setting, %d\n", layout);
*/
#include "cblas.h"
#include "cblas_f77.h"
-float cblas_snrm2( const int N, const float *X, const int incX)
+float cblas_snrm2( const int N, const float *X, const int incX)
{
float nrm2;
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
*/
#include "cblas.h"
#include "cblas_f77.h"
-void cblas_srot( const int N, float *X, const int incX, float *Y,
+void cblas_srot( const int N, float *X, const int incX, float *Y,
const int incY, const float c, const float s)
{
#ifdef F77_INT
#define F77_incY incY
#endif
F77_srot(&F77_N, X, &F77_incX, Y, &F77_incY, &c, &s);
-}
+}
#include "cblas_f77.h"
void cblas_srotg( float *a, float *b, float *c, float *s)
{
- F77_srotg(a,b,c,s);
+ F77_srotg(a,b,c,s);
}
*/
#include "cblas.h"
#include "cblas_f77.h"
-void cblas_srotm( const int N, float *X, const int incX, float *Y,
+void cblas_srotm( const int N, float *X, const int incX, float *Y,
const int incY, const float *P)
{
#ifdef F77_INT
#define F77_incY incY
#endif
F77_srotm( &F77_N, X, &F77_incX, Y, &F77_incY, P);
-}
+}
*/
#include "cblas.h"
#include "cblas_f77.h"
-void cblas_srotmg( float *d1, float *d2, float *b1,
+void cblas_srotmg( float *d1, float *d2, float *b1,
const float b2, float *p)
{
F77_srotmg(d1,d2,b1,&b2,p);
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
-
+
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
*/
#include "cblas.h"
#include "cblas_f77.h"
-void cblas_sscal( const int N, const float alpha, float *X,
+void cblas_sscal( const int N, const float alpha, float *X,
const int incX)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_sspmv(F77_UL, &F77_N, &alpha, AP, X,
+ F77_sspmv(F77_UL, &F77_N, &alpha, AP, X,
&F77_incX, &beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_sspmv(F77_UL, &F77_N, &alpha,
+ F77_sspmv(F77_UL, &F77_N, &alpha,
AP, X,&F77_incX, &beta, Y, &F77_incY);
}
else cblas_xerbla(1, "cblas_sspmv", "Illegal layout setting, %d\n", layout);
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
F77_sspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
- } else if (layout == CblasRowMajor)
+ } else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if (Uplo == CblasLower) UL = 'U';
else if (Uplo == CblasUpper) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
}
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
- #endif
- F77_sspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
+ #endif
+ F77_sspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
} else cblas_xerbla(1, "cblas_sspr", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
F77_sspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
- } else if (layout == CblasRowMajor)
+ } else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if (Uplo == CblasLower) UL = 'U';
else if (Uplo == CblasUpper) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
}
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
- #endif
- F77_sspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
+ #endif
+ F77_sspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
} else cblas_xerbla(1, "cblas_sspr2", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
const float *B, const int ldb, const float beta,
float *C, const int ldc)
{
- char SD, UL;
+ char SD, UL;
#ifdef F77_CHAR
F77_CHAR F77_SD, F77_UL;
#else
- #define F77_SD &SD
- #define F77_UL &UL
+ #define F77_SD &SD
+ #define F77_UL &UL
#endif
#ifdef F77_INT
{
if( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
- cblas_xerbla(2, "cblas_ssymm",
+ cblas_xerbla(2, "cblas_ssymm",
"Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
- cblas_xerbla(3, "cblas_ssymm",
+ cblas_xerbla(3, "cblas_ssymm",
"Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
RowMajorStrg = 1;
if( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
- cblas_xerbla(2, "cblas_ssymm",
+ cblas_xerbla(2, "cblas_ssymm",
"Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
- cblas_xerbla(3, "cblas_ssymm",
+ cblas_xerbla(3, "cblas_ssymm",
"Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
-}
+}
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_ssymv(F77_UL, &F77_N, &alpha, A, &F77_lda, X,
+ F77_ssymv(F77_UL, &F77_N, &alpha, A, &F77_lda, X,
&F77_incX, &beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_ssymv(F77_UL, &F77_N, &alpha,
+ F77_ssymv(F77_UL, &F77_N, &alpha,
A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
}
else cblas_xerbla(1, "cblas_ssymv", "Illegal layout setting, %d\n", layout);
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
F77_ssyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
- } else if (layout == CblasRowMajor)
+ } else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if (Uplo == CblasLower) UL = 'U';
else if (Uplo == CblasUpper) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
}
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
- #endif
- F77_ssyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
+ #endif
+ F77_ssyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
} else cblas_xerbla(1, "cblas_ssyr", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
-}
+}
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
F77_UL = C2F_CHAR(&UL);
#endif
- F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
+ F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
&F77_lda);
- } else if (layout == CblasRowMajor)
+ } else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if (Uplo == CblasLower) UL = 'U';
else if (Uplo == CblasUpper) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
}
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
- #endif
- F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
- &F77_lda);
+ #endif
+ F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
+ &F77_lda);
} else cblas_xerbla(1, "cblas_ssyr2", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
const float *B, const int ldb, const float beta,
float *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
- cblas_xerbla(2, "cblas_ssyr2k",
+ cblas_xerbla(2, "cblas_ssyr2k",
"Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
- cblas_xerbla(3, "cblas_ssyr2k",
+ cblas_xerbla(3, "cblas_ssyr2k",
"Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
RowMajorStrg = 1;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
- cblas_xerbla(3, "cblas_ssyr2k",
+ cblas_xerbla(3, "cblas_ssyr2k",
"Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='T';
- else
+ else
{
- cblas_xerbla(3, "cblas_ssyr2k",
+ cblas_xerbla(3, "cblas_ssyr2k",
"Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
const float alpha, const float *A, const int lda,
const float beta, float *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TR, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
- cblas_xerbla(2, "cblas_ssyrk",
+ cblas_xerbla(2, "cblas_ssyrk",
"Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
- cblas_xerbla(3, "cblas_ssyrk",
+ cblas_xerbla(3, "cblas_ssyrk",
"Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
RowMajorStrg = 1;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
- cblas_xerbla(3, "cblas_ssyrk",
+ cblas_xerbla(3, "cblas_ssyrk",
"Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='T';
- else
+ else
{
- cblas_xerbla(3, "cblas_ssyrk",
+ cblas_xerbla(3, "cblas_ssyrk",
"Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
- * cblas_stbmv.c
+ * cblas_stbmv.c
* This program is a C interface to stbmv.
* Written by Keita Teranishi
* 3/3/1998
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_stbmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
const float alpha, const float *A, const int lda,
float *B, const int ldb)
{
- char UL, TA, SD, DI;
+ char UL, TA, SD, DI;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
#else
- #define F77_TA &TA
- #define F77_UL &UL
+ #define F77_TA &TA
+ #define F77_UL &UL
#define F77_SD &SD
#define F77_DI &DI
#endif
{
if( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
}
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_strmm","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_strmm","Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_strmm", "Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_strmm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_strmm", "Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_strmm","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
#endif
F77_strmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A,
&F77_lda, B, &F77_ldb);
- }
+ }
else cblas_xerbla(1, "cblas_strmm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
float *B, const int ldb)
{
- char UL, TA, SD, DI;
+ char UL, TA, SD, DI;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
#else
- #define F77_TA &TA
- #define F77_UL &UL
+ #define F77_TA &TA
+ #define F77_UL &UL
#define F77_SD &SD
#define F77_DI &DI
#endif
{
if( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
}
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
}
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
#endif
F77_strsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb);
- }
+ }
else cblas_xerbla(1, "cblas_strsm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans) TA = 'N';
- else
+ else
{
cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
fprintf(stderr, "Parameter %d to routine %s was incorrect\n", info, rout);
vfprintf(stderr, form, argptr);
va_end(argptr);
- if (info && !info)
+ if (info && !info)
F77_xerbla(empty, &info); /* Force link of our F77 error handler */
exit(-1);
}
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
#endif
F77_zaxpy( &F77_N, alpha, X, &F77_incX, Y, &F77_incY);
-}
+}
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
/*
* cblas_zgbmv.c
* The program is a C interface of zgbmv
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#ifdef F77_CHAR
F77_CHAR F77_TA;
#else
- #define F77_TA &TA
+ #define F77_TA &TA
#endif
#ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
- F77_zgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha,
+ F77_zgbmv(F77_TA, &F77_M, &F77_N, &F77_KL, &F77_KU, alpha,
A, &F77_lda, X, &F77_incX, beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
tincY = -incY;
y++;
-
+
if (N > 0)
{
i = tincY << 1;
}
else x = (double *) X;
-
+
}
- else
+ else
{
cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
F77_TA = C2F_CHAR(&TA);
#endif
if (TransA == CblasConjTrans)
- F77_zgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, ALPHA,
+ F77_zgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, ALPHA,
A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
else
- F77_zgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha,
+ F77_zgbmv(F77_TA, &F77_N, &F77_M, &F77_KU, &F77_KL, alpha,
A ,&F77_lda, x,&F77_incX, beta, Y, &F77_incY);
if (TransA == CblasConjTrans)
{
const int lda, const void *B, const int ldb,
const void *beta, void *C, const int ldc)
{
- char TA, TB;
+ char TA, TB;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_TB;
#else
- #define F77_TA &TA
- #define F77_TB &TB
+ #define F77_TA &TA
+ #define F77_TB &TB
#endif
#ifdef F77_INT
if(TransA == CblasTrans) TA='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if(TransB == CblasTrans) TB='T';
else if ( TransB == CblasConjTrans ) TB='C';
else if ( TransB == CblasNoTrans ) TB='N';
- else
+ else
{
cblas_xerbla(3, "cblas_zgemm","Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
if(TransA == CblasTrans) TB='T';
else if ( TransA == CblasConjTrans ) TB='C';
else if ( TransA == CblasNoTrans ) TB='N';
- else
+ else
{
cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if(TransB == CblasTrans) TA='T';
else if ( TransB == CblasConjTrans ) TA='C';
else if ( TransB == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(2, "cblas_zgemm","Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
F77_zgemm(F77_TA, F77_TB, &F77_N, &F77_M, &F77_K, alpha, B,
&F77_ldb, A, &F77_lda, beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_zgemm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
* cblas_zgemv.c
* The program is a C interface of zgemv
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#ifdef F77_CHAR
F77_CHAR F77_TA;
#else
- #define F77_TA &TA
+ #define F77_TA &TA
#endif
#ifdef F77_INT
F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_TA = C2F_CHAR(&TA);
#endif
- F77_zgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
+ F77_zgemv(F77_TA, &F77_M, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
-
+
if (TransA == CblasNoTrans) TA = 'T';
else if (TransA == CblasTrans) TA = 'N';
else if (TransA == CblasConjTrans)
i = incX << 1 ;
tincx = 2;
st= x+n;
- } else {
+ } else {
i = incX *(-2);
tincx = -2;
- st = x-2;
- x +=(n-2);
+ st = x-2;
+ x +=(n-2);
}
do
#endif
if(incY > 0)
- tincY = incY;
+ tincY = incY;
else
- tincY = -incY;
+ tincY = -incY;
y++;
do {
*y = -(*y);
y += i;
- } while(y != st);
+ } while(y != st);
y -= n;
}
}
else x = (double *) X;
}
- else
+ else
{
cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
/*
* cblas_zgerc.c
* The program is a C interface to zgerc.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#define F77_N N
#define F77_incX incX
#define F77_incY incy
- #define F77_lda lda
+ #define F77_lda lda
#endif
int n, i, tincy, incy=incY;
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
- F77_zgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
+ F77_zgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
&F77_lda);
- } else if (layout == CblasRowMajor)
+ } else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if (N > 0)
i = incY << 1;
tincy = 2;
st= y+n;
- } else {
+ } else {
i = incY *(-2);
tincy = -2;
- st = y-2;
- y +=(n-2);
+ st = y-2;
+ y +=(n-2);
}
do
{
}
else y = (double *) Y;
- F77_zgeru( &F77_N, &F77_M, alpha, y, &F77_incY, X, &F77_incX, A,
+ F77_zgeru( &F77_N, &F77_M, alpha, y, &F77_incY, X, &F77_incX, A,
&F77_lda);
if(Y!=y)
free(y);
/*
* cblas_zgeru.c
* The program is a C interface to zgeru.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
- F77_zgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A,
+ F77_zgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A,
&F77_lda);
}
else cblas_xerbla(1, "cblas_zgeru", "Illegal layout setting, %d\n", layout);
/*
* cblas_zhbmv.c
* The program is a C interface to zhbmv
- *
+ *
* Keita Teranishi 5/18/98
*
*/
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_K=K, F77_lda=lda, F77_incX=incX, F77_incY=incY;
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_zhbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X,
+ F77_zhbmv(F77_UL, &F77_N, &F77_K, alpha, A, &F77_lda, X,
&F77_incX, beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
{
n = N << 1;
x = malloc(n*sizeof(double));
-
+
tx = x;
if( incX > 0 ) {
i = incX << 1 ;
#else
incx = 1;
#endif
-
+
if(incY > 0)
tincY = incY;
else
} while(y != st);
y -= n;
} else
- x = (double *) X;
+ x = (double *) X;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_zhbmv(F77_UL, &F77_N, &F77_K, ALPHA,
+ F77_zhbmv(F77_UL, &F77_N, &F77_K, ALPHA,
A ,&F77_lda, x,&F77_incX, BETA, Y, &F77_incY);
}
- else
+ else
{
cblas_xerbla(1, "cblas_zhbmv","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
const void *B, const int ldb, const void *beta,
void *C, const int ldc)
{
- char SD, UL;
+ char SD, UL;
#ifdef F77_CHAR
F77_CHAR F77_SD, F77_UL;
#else
- #define F77_SD &SD
- #define F77_UL &UL
+ #define F77_SD &SD
+ #define F77_UL &UL
#endif
#ifdef F77_INT
{
if( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
F77_SD = C2F_CHAR(&SD);
#endif
- F77_zhemm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda,
+ F77_zhemm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda,
B, &F77_ldb, beta, C, &F77_ldc);
} else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
if( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
F77_zhemm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A,
&F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_zhemm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
-}
+}
/*
* cblas_zhemv.c
* The program is a C interface to zhemv
- *
+ *
* Keita Teranishi 5/18/98
*
*/
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_zhemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
+ F77_zhemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
{
n = N << 1;
x = malloc(n*sizeof(double));
-
+
tx = x;
if( incX > 0 ) {
i = incX << 1 ;
#else
incx = 1;
#endif
-
+
if(incY > 0)
tincY = incY;
else
} else
x = (double *) X;
-
+
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_zhemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX,
+ F77_zhemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX,
BETA, Y, &F77_incY);
}
- else
+ else
{
cblas_xerbla(1, "cblas_zhemv","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
/*
* cblas_zher.c
* The program is a C interface to zher.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
RowMajorStrg = 0;
-
+
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
i = incX << 1 ;
tincx = 2;
st= x+n;
- } else {
+ } else {
i = incX *(-2);
tincx = -2;
- st = x-2;
- x +=(n-2);
+ st = x-2;
+ x +=(n-2);
}
do
{
else x = (double *) X;
F77_zher(F77_UL, &F77_N, &alpha, x, &F77_incX, A, &F77_lda);
} else cblas_xerbla(1, "cblas_zher", "Illegal layout setting, %d\n", layout);
- if(X!=x)
+ if(X!=x)
free(x);
-
+
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
/*
* cblas_zher2.c
* The program is a C interface to zher2.
- *
+ *
* Keita Teranishi 3/23/98
*
*/
#define F77_incY incy
#endif
int n, i, j, tincx, tincy, incx=incX, incy=incY;
- double *x=(double *)X, *xx=(double *)X, *y=(double *)Y,
+ double *x=(double *)X, *xx=(double *)X, *y=(double *)Y,
*yy=(double *)Y, *tx, *ty, *stx, *sty;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
RowMajorStrg = 0;
-
+
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
F77_UL = C2F_CHAR(&UL);
#endif
- F77_zher2(F77_UL, &F77_N, alpha, X, &F77_incX,
+ F77_zher2(F77_UL, &F77_N, alpha, X, &F77_incX,
Y, &F77_incY, A, &F77_lda);
} else if (layout == CblasRowMajor)
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
{
n = N << 1;
x = malloc(n*sizeof(double));
- y = malloc(n*sizeof(double));
+ y = malloc(n*sizeof(double));
tx = x;
ty = y;
if( incX > 0 ) {
i = incX << 1 ;
tincx = 2;
stx= x+n;
- } else {
+ } else {
i = incX *(-2);
tincx = -2;
- stx = x-2;
- x +=(n-2);
+ stx = x-2;
+ x +=(n-2);
}
-
+
if( incY > 0 ) {
j = incY << 1;
tincy = 2;
sty= y+n;
- } else {
+ } else {
j = incY *(-2);
tincy = -2;
- sty = y-2;
- y +=(n-2);
+ sty = y-2;
+ y +=(n-2);
}
do
incx = 1;
incy = 1;
#endif
- } else
+ } else
{
x = (double *) X;
y = (double *) Y;
}
- F77_zher2(F77_UL, &F77_N, alpha, y, &F77_incY, x,
+ F77_zher2(F77_UL, &F77_N, alpha, y, &F77_incY, x,
&F77_incX, A, &F77_lda);
- }
- else
+ }
+ else
{
cblas_xerbla(1, "cblas_zher2", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
const void *B, const int ldb, const double beta,
void *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TR, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
- double ALPHA[2];
+ double ALPHA[2];
const double *alp=(double *)alpha;
CBLAS_CallFromC = 1;
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
} else if (layout == CblasRowMajor)
{
RowMajorStrg = 1;
-
+
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='C';
- else
+ else
{
cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
const double alpha, const void *A, const int lda,
const double beta, void *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TR, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
{
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(2, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='C';
- else
+ else
{
cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
F77_zherk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda,
&beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_zherk", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
* cblas_zhpmv.c
* The program is a C interface of zhpmv
- *
+ *
* Keita Teranishi 5/18/98
*
*/
#ifdef F77_CHAR
F77_CHAR F77_UL;
#else
- #define F77_UL &UL
+ #define F77_UL &UL
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
extern int RowMajorStrg;
RowMajorStrg = 0;
- CBLAS_CallFromC = 1;
+ CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
- {
+ {
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
#ifdef F77_CHAR
F77_UL = C2F_CHAR(&UL);
#endif
- F77_zhpmv(F77_UL, &F77_N, alpha, AP, X,
+ F77_zhpmv(F77_UL, &F77_N, alpha, AP, X,
&F77_incX, beta, Y, &F77_incY);
}
else if (layout == CblasRowMajor)
{
n = N << 1;
x = malloc(n*sizeof(double));
-
+
tx = x;
if( incX > 0 ) {
i = incX << 1;
#else
incx = 1;
#endif
-
+
if(incY > 0)
tincY = incY;
else
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n", Uplo );
CBLAS_CallFromC = 0;
F77_UL = C2F_CHAR(&UL);
#endif
- F77_zhpmv(F77_UL, &F77_N, ALPHA,
+ F77_zhpmv(F77_UL, &F77_N, ALPHA,
AP, x, &F77_incX, BETA, Y, &F77_incY);
}
- else
+ else
{
cblas_xerbla(1, "cblas_zhpmv","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
}
- if ( layout == CblasRowMajor )
+ if ( layout == CblasRowMajor )
{
RowMajorStrg = 1;
if(X!=x)
/*
* cblas_zhpr.c
* The program is a C interface to zhpr.
- *
+ *
* Keita Teranishi 3/23/98
*
*/
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
RowMajorStrg = 0;
-
+
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
i = incX << 1;
tincx = 2;
st= x+n;
- } else {
+ } else {
i = incX *(-2);
tincx = -2;
- st = x-2;
- x +=(n-2);
+ st = x-2;
+ x +=(n-2);
}
do
{
F77_zhpr(F77_UL, &F77_N, &alpha, x, &F77_incX, A);
- } else
+ } else
{
cblas_xerbla(1, "cblas_zhpr","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
/*
* cblas_zhpr2.c
* The program is a C interface to zhpr2.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#include "cblas.h"
#include "cblas_f77.h"
void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo,
- const int N,const void *alpha, const void *X,
+ const int N,const void *alpha, const void *X,
const int incX,const void *Y, const int incY, void *Ap)
{
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
RowMajorStrg = 0;
-
+
CBLAS_CallFromC = 1;
if (layout == CblasColMajor)
{
if (Uplo == CblasLower) UL = 'L';
else if (Uplo == CblasUpper) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n",Uplo );
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
{
n = N << 1;
x = malloc(n*sizeof(double));
- y = malloc(n*sizeof(double));
+ y = malloc(n*sizeof(double));
stx = x + n;
sty = y + n;
if( incX > 0 )
i = incX << 1;
else
i = incX *(-2);
-
+
if( incY > 0 )
j = incY << 1;
else
F77_incX = 1;
else
F77_incX = -1;
-
+
if(incY > 0 )
F77_incY = 1;
else
F77_incY = -1;
-
+
#else
if(incX > 0 )
incx = 1;
else
incx = -1;
-
+
if(incY > 0 )
incy = 1;
else
incy = -1;
#endif
- } else
+ } else
{
x = (double *) X;
y = (void *) Y;
}
F77_zhpr2(F77_UL, &F77_N, alpha, y, &F77_incY, x, &F77_incX, Ap);
- }
- else
+ }
+ else
{
cblas_xerbla(1, "cblas_zhpr2","Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
*/
#include "cblas.h"
#include "cblas_f77.h"
-void cblas_zscal( const int N, const void *alpha, void *X,
+void cblas_zscal( const int N, const void *alpha, void *X,
const int incX)
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
-#else
+#else
#define F77_N N
#define F77_incX incX
#endif
{
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
-#else
+#else
#define F77_N N
#define F77_incX incX
#define F77_incY incY
const void *B, const int ldb, const void *beta,
void *C, const int ldc)
{
- char SD, UL;
+ char SD, UL;
#ifdef F77_CHAR
F77_CHAR F77_SD, F77_UL;
#else
- #define F77_SD &SD
- #define F77_UL &UL
+ #define F77_SD &SD
+ #define F77_UL &UL
#endif
#ifdef F77_INT
{
if( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
F77_zsymm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda,
B, &F77_ldb, beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_zsymm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;
-}
+}
const void *B, const int ldb, const void *beta,
void *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TR, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(2, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='T';
- else
+ else
{
cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
#endif
F77_zsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_zsyr2k", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
const void *alpha, const void *A, const int lda,
const void *beta, void *C, const int ldc)
{
- char UL, TR;
+ char UL, TR;
#ifdef F77_CHAR
F77_CHAR F77_TR, F77_UL;
#else
- #define F77_TR &TR
- #define F77_UL &UL
+ #define F77_TR &TR
+ #define F77_UL &UL
#endif
#ifdef F77_INT
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(2, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='T';
else if ( Trans == CblasConjTrans ) TR='C';
else if ( Trans == CblasNoTrans ) TR='N';
- else
+ else
{
cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( Trans == CblasTrans) TR ='N';
else if ( Trans == CblasConjTrans ) TR='N';
else if ( Trans == CblasNoTrans ) TR='T';
- else
+ else
{
cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans);
CBLAS_CallFromC = 0;
F77_zsyrk(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda,
beta, C, &F77_ldc);
- }
+ }
else cblas_xerbla(1, "cblas_zsyrk", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
* cblas_ztbmv.c
* The program is a C interface to ztbmv.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
#define F77_lda lda
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
double *st=0, *x=(double *)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztbmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
/*
* cblas_ztbsv.c
* The program is a C interface to ztbsv.
- *
+ *
* Keita Teranishi 3/23/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_K=K, F77_incX=incX;
#define F77_lda lda
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
double *st=0,*x=(double *)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
tincX = incX;
else
tincX = -incX;
-
+
n = N*2*(tincX);
-
+
x++;
st=x+n;
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
/*
* cblas_ztpmv.c
* The program is a C interface to ztpmv.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
#define F77_N N
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
double *st=0,*x=(double *)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
/*
* cblas_ztpsv.c
* The program is a C interface to ztpsv.
- *
+ *
* Keita Teranishi 3/23/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_incX=incX;
#define F77_N N
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
double *st=0, *x=(double*)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
tincX = incX;
else
tincX = -incX;
-
+
n = N*2*(tincX);
-
+
x++;
st=x+n;
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
const void *alpha, const void *A, const int lda,
void *B, const int ldb)
{
- char UL, TA, SD, DI;
+ char UL, TA, SD, DI;
#ifdef F77_CHAR
F77_CHAR F77_TA, F77_UL, F77_SD, F77_DI;
#else
- #define F77_TA &TA
- #define F77_UL &UL
+ #define F77_TA &TA
+ #define F77_UL &UL
#define F77_SD &SD
#define F77_DI &DI
#endif
{
if( Side == CblasRight ) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
}
if( Uplo == CblasUpper ) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans ) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if( Side == CblasRight ) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper ) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans ) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
#endif
F77_ztrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb);
- }
+ }
else cblas_xerbla(1, "cblas_ztrmm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
* cblas_ztrmv.c
* The program is a C interface to ztrmv.
- *
+ *
* Keita Teranishi 5/20/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
#define F77_lda lda
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
double *st=0,*x=(double *)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
if( Side == CblasRight) SD='R';
else if ( Side == CblasLeft ) SD='L';
- else
+ else
{
cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='U';
else if ( Uplo == CblasLower ) UL='L';
- else
+ else
{
cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
if( Side == CblasRight) SD='L';
else if ( Side == CblasLeft ) SD='R';
- else
+ else
{
cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side);
CBLAS_CallFromC = 0;
if( Uplo == CblasUpper) UL='L';
else if ( Uplo == CblasLower ) UL='U';
- else
+ else
{
cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if( TransA == CblasTrans) TA ='T';
else if ( TransA == CblasConjTrans ) TA='C';
else if ( TransA == CblasNoTrans ) TA='N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if( Diag == CblasUnit ) DI='U';
else if ( Diag == CblasNonUnit ) DI='N';
- else
+ else
{
cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
F77_ztrsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A,
&F77_lda, B, &F77_ldb);
- }
+ }
else cblas_xerbla(1, "cblas_ztrsm", "Illegal layout setting, %d\n", layout);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
/*
* cblas_ztrsv.c
* The program is a C interface to ztrsv.
- *
+ *
* Keita Teranishi 3/23/98
*
*/
#else
#define F77_TA &TA
#define F77_UL &UL
- #define F77_DI &DI
+ #define F77_DI &DI
#endif
#ifdef F77_INT
F77_INT F77_N=N, F77_lda=lda, F77_incX=incX;
#define F77_lda lda
#define F77_incX incX
#endif
- int n, i=0, tincX;
+ int n, i=0, tincX;
double *st=0,*x=(double *)X;
extern int CBLAS_CallFromC;
extern int RowMajorStrg;
{
if (Uplo == CblasUpper) UL = 'U';
else if (Uplo == CblasLower) UL = 'L';
- else
+ else
{
cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
if (TransA == CblasNoTrans) TA = 'N';
else if (TransA == CblasTrans) TA = 'T';
else if (TransA == CblasConjTrans) TA = 'C';
- else
+ else
{
cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
}
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
RowMajorStrg = 1;
if (Uplo == CblasUpper) UL = 'L';
else if (Uplo == CblasLower) UL = 'U';
- else
+ else
{
cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo);
CBLAS_CallFromC = 0;
tincX = incX;
else
tincX = -incX;
-
+
n = N*2*(tincX);
x++;
- st=x+n;
+ st=x+n;
i = tincX << 1;
do
{
x -= n;
}
}
- else
+ else
{
cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA);
CBLAS_CallFromC = 0;
if (Diag == CblasUnit) DI = 'U';
else if (Diag == CblasNonUnit) DI = 'N';
- else
+ else
{
cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag);
CBLAS_CallFromC = 0;
void F77_c2chke(char *rout) {
char *sf = ( rout ) ;
- float A[2] = {0.0,0.0},
- X[2] = {0.0,0.0},
- Y[2] = {0.0,0.0},
+ float A[2] = {0.0,0.0},
+ X[2] = {0.0,0.0},
+ Y[2] = {0.0,0.0},
ALPHA[2] = {0.0,0.0},
- BETA[2] = {0.0,0.0},
+ BETA[2] = {0.0,0.0},
RALPHA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
if (strncmp( sf,"cblas_cgemv",11)==0) {
cblas_rout = "cblas_cgemv";
cblas_info = 1;
- cblas_cgemv(INVALID, CblasNoTrans, 0, 0,
+ cblas_cgemv(INVALID, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, INVALID, 0, 0,
+ cblas_cgemv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
+ cblas_cgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
+ cblas_cgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, CblasNoTrans, 2, 0,
+ cblas_cgemv(CblasColMajor, CblasNoTrans, 2, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, INVALID, 0, 0,
+ cblas_cgemv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
+ cblas_cgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
+ cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 2,
+ cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_cgbmv",11)==0) {
cblas_rout = "cblas_cgbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_cgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
+ cblas_cgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
+ cblas_cgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = FALSE;
- cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
+ cblas_cgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = TRUE;
- cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_chemv",11)==0) {
cblas_rout = "cblas_chemv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_chemv(INVALID, CblasUpper, 0,
+ cblas_chemv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_chemv(CblasColMajor, INVALID, 0,
+ cblas_chemv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_chemv(CblasColMajor, CblasUpper, INVALID,
+ cblas_chemv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_chemv(CblasColMajor, CblasUpper, 2,
+ cblas_chemv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_chemv(CblasColMajor, CblasUpper, 0,
+ cblas_chemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_chemv(CblasColMajor, CblasUpper, 0,
+ cblas_chemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_chemv(CblasRowMajor, INVALID, 0,
+ cblas_chemv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_chemv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_chemv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_chemv(CblasRowMajor, CblasUpper, 2,
+ cblas_chemv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_chemv(CblasRowMajor, CblasUpper, 0,
+ cblas_chemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_chemv(CblasRowMajor, CblasUpper, 0,
+ cblas_chemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_chbmv",11)==0) {
cblas_rout = "cblas_chbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_chbmv(INVALID, CblasUpper, 0, 0,
+ cblas_chbmv(INVALID, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, INVALID, 0, 0,
+ cblas_chbmv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, CblasUpper, INVALID, 0,
+ cblas_chbmv(CblasColMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, CblasUpper, 0, INVALID,
+ cblas_chbmv(CblasColMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, CblasUpper, 0, 1,
+ cblas_chbmv(CblasColMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_chbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_chbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_chbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, INVALID, 0, 0,
+ cblas_chbmv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, CblasUpper, INVALID, 0,
+ cblas_chbmv(CblasRowMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, CblasUpper, 0, INVALID,
+ cblas_chbmv(CblasRowMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, CblasUpper, 0, 1,
+ cblas_chbmv(CblasRowMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0,
+ cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0,
+ cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_chpmv",11)==0) {
cblas_rout = "cblas_chpmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_chpmv(INVALID, CblasUpper, 0,
+ cblas_chpmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_chpmv(CblasColMajor, INVALID, 0,
+ cblas_chpmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_chpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_chpmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_chpmv(CblasColMajor, CblasUpper, 0,
+ cblas_chpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_chpmv(CblasColMajor, CblasUpper, 0,
+ cblas_chpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_chpmv(CblasRowMajor, INVALID, 0,
+ cblas_chpmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_chpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_chpmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_chpmv(CblasRowMajor, CblasUpper, 0,
+ cblas_chpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_chpmv(CblasRowMajor, CblasUpper, 0,
+ cblas_chpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctrmv",11)==0) {
cblas_rout = "cblas_ctrmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctrmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctbmv",11)==0) {
cblas_rout = "cblas_ctbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctpmv",11)==0) {
cblas_rout = "cblas_ctpmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctrsv",11)==0) {
cblas_rout = "cblas_ctrsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctrsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctbsv",11)==0) {
cblas_rout = "cblas_ctbsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ctpsv",11)==0) {
cblas_rout = "cblas_ctpsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ctpsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ctpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_cgeru",10)==0) {
cblas_info = 6; RowMajorStrg = FALSE;
cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
chkxer();
- }
+ }
if (cblas_ok == TRUE)
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
else
B[4] = {0.0,0.0,0.0,0.0},
C[4] = {0.0,0.0,0.0,0.0},
ALPHA[2] = {0.0,0.0},
- BETA[2] = {0.0,0.0},
+ BETA[2] = {0.0,0.0},
RALPHA = 0.0, RBETA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
cblas_rout = "cblas_cgemm" ;
cblas_info = 1;
- cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
+ cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
+ cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
+ cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
-
+
} else if (strncmp( sf,"cblas_chemm" ,11)==0) {
cblas_rout = "cblas_chemm" ;
cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
-
+
}
if (cblas_ok == 1 )
return;
}
-void F77_ccopy(const int *N, void *X, const int *incX,
+void F77_ccopy(const int *N, void *X, const int *incX,
void *Y, const int *incY)
{
cblas_ccopy(*N, X, *incX, Y, *incY);
return;
}
-void F77_cdotc(const int *N, void *X, const int *incX,
+void F77_cdotc(const int *N, void *X, const int *incX,
void *Y, const int *incY, void *dotc)
{
cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);
return;
}
-void F77_cdotu(const int *N, void *X, const int *incX,
+void F77_cdotu(const int *N, void *X, const int *incX,
void *Y, const int *incY,void *dotu)
{
cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);
#include "cblas.h"
#include "cblas_test.h"
-void F77_cgemv(int *layout, char *transp, int *m, int *n,
+void F77_cgemv(int *layout, char *transp, int *m, int *n,
const void *alpha,
- CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx,
+ CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx,
const void *beta, void *y, int *incy) {
CBLAS_TEST_COMPLEX *A;
*m, *n, alpha, a, *lda, x, *incx, beta, y, *incy );
}
-void F77_cgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
- CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
- CBLAS_TEST_COMPLEX *x, int *incx,
+void F77_cgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
+ CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
+ CBLAS_TEST_COMPLEX *x, int *incx,
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) {
CBLAS_TEST_COMPLEX *A;
*incx, beta, y, *incy );
}
-void F77_cgeru(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha,
- CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy,
+void F77_cgeru(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha,
+ CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy,
CBLAS_TEST_COMPLEX *a, int *lda){
CBLAS_TEST_COMPLEX *A;
cblas_cgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda );
}
-void F77_cgerc(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha,
- CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy,
+void F77_cgerc(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha,
+ CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy,
CBLAS_TEST_COMPLEX *a, int *lda) {
CBLAS_TEST_COMPLEX *A;
int i,j,LDA;
free(A);
}
else if (*layout == TEST_COL_MJR)
- cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx,
+ cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx,
beta, y, *incy );
else
cblas_chemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx,
}
void F77_chbmv(int *layout, char *uplow, int *n, int *k,
- CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
+ CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta,
CBLAS_TEST_COMPLEX *y, int *incy){
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x,
+ cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x,
*incx, beta, y, *incy );
else {
LDA = *k+2;
}
void F77_chpmv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
- CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, int *incx,
+ CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, int *incx,
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy){
CBLAS_TEST_COMPLEX *A, *AP;
get_uplo_type(uplow,&uplo);
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_chpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx,
+ cblas_chpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx,
beta, y, *incy);
else {
LDA = *n;
}
}
}
- cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x,
+ cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x,
*incx);
free(A);
}
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x,
+ cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x,
*incx);
else {
LDA = *k+2;
}
}
}
- cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA,
+ cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA,
x, *incx);
free(A);
}
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_chpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y,
+ cblas_chpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y,
*incy, ap );
else {
LDA = *n;
LDA = *n+1;
A=(CBLAS_TEST_COMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_COMPLEX ));
- for( i=0; i<*n; i++ )
+ for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
LDA = *n+1;
A= ( CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX ) );
- for( i=0; i<*n; i++ )
+ for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
#define TEST_ROW_MJR 1
#define UNDEFINED -1
-void F77_cgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
+void F77_cgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
int *k, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
- CBLAS_TEST_COMPLEX *b, int *ldb, CBLAS_TEST_COMPLEX *beta,
+ CBLAS_TEST_COMPLEX *b, int *ldb, CBLAS_TEST_COMPLEX *beta,
CBLAS_TEST_COMPLEX *c, int *ldc ) {
CBLAS_TEST_COMPLEX *A, *B, *C;
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_chemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
+ cblas_chemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_chemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_chemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
else
- cblas_chemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_chemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
}
void F77_csymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_csymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
+ cblas_csymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_csymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_csymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
else
- cblas_csymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_csymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
}
void F77_cherk(int *layout, char *uplow, char *transp, int *n, int *k,
- float *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
+ float *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
float *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) {
int i,j,LDA,LDC;
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_cherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
+ cblas_cherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_cherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_cherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
else
- cblas_cherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_cherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
}
void F77_csyrk(int *layout, char *uplow, char *transp, int *n, int *k,
- CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
+ CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) {
int i,j,LDA,LDC;
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_csyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta,
+ cblas_csyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_csyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta,
+ cblas_csyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta,
c, *ldc );
else
- cblas_csyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta,
+ cblas_csyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta,
c, *ldc );
}
void F77_cher2k(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_cher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
+ cblas_cher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_cher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_cher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
else
- cblas_cher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_cher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
}
void F77_csyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_csyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
+ cblas_csyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
B, LDB, beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_csyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_csyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, beta, c, *ldc );
else
- cblas_csyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_csyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, beta, c, *ldc );
}
void F77_ctrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
+ int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
int *lda, CBLAS_TEST_COMPLEX *b, int *ldb) {
int i,j,LDA,LDB;
CBLAS_TEST_COMPLEX *A, *B;
B[i*LDB+j].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag;
}
- cblas_ctrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_ctrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
else
- cblas_ctrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
}
void F77_ctrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
+ int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a,
int *lda, CBLAS_TEST_COMPLEX *b, int *ldb) {
int i,j,LDA,LDB;
CBLAS_TEST_COMPLEX *A, *B;
B[i*LDB+j].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag;
}
- cblas_ctrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_ctrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
else
- cblas_ctrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ctrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
}
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},
+ 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;
if (strncmp( sf,"cblas_dgemv",11)==0) {
cblas_rout = "cblas_dgemv";
cblas_info = 1;
- cblas_dgemv(INVALID, CblasNoTrans, 0, 0,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ cblas_dsymv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dsymv(CblasColMajor, INVALID, 0,
+ cblas_dsymv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dsymv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dsymv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_dsymv(CblasColMajor, CblasUpper, 2,
+ cblas_dsymv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_dsymv(CblasColMajor, CblasUpper, 0,
+ cblas_dsymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_dsymv(CblasColMajor, CblasUpper, 0,
+ cblas_dsymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dsymv(CblasRowMajor, INVALID, 0,
+ cblas_dsymv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dsymv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dsymv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_dsymv(CblasRowMajor, CblasUpper, 2,
+ cblas_dsymv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_dsymv(CblasRowMajor, CblasUpper, 0,
+ cblas_dsymv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_dsymv(CblasRowMajor, CblasUpper, 0,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ cblas_dspmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dspmv(CblasColMajor, INVALID, 0,
+ cblas_dspmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dspmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dspmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_dspmv(CblasColMajor, CblasUpper, 0,
+ cblas_dspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_dspmv(CblasColMajor, CblasUpper, 0,
+ cblas_dspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dspmv(CblasRowMajor, INVALID, 0,
+ cblas_dspmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dspmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dspmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_dspmv(CblasRowMajor, CblasUpper, 0,
+ cblas_dspmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_dspmv(CblasRowMajor, CblasUpper, 0,
+ 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,
+ cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtrmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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,
+ cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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,
+ cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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,
+ cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtrsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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,
+ cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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,
+ cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_dtpsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_dtpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_dger",10)==0) {
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
void F77_d3chke(char *rout) {
char *sf = ( rout ) ;
- double A[2] = {0.0,0.0},
- B[2] = {0.0,0.0},
- C[2] = {0.0,0.0},
+ double A[2] = {0.0,0.0},
+ B[2] = {0.0,0.0},
+ C[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
cblas_xerbla(cblas_info,cblas_rout,"");
F77_xerbla(cblas_rout,&cblas_info);
}
-
+
cblas_ok = TRUE ;
cblas_lerr = PASSED ;
cblas_rout = "cblas_dgemm" ;
cblas_info = 1;
- cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
+ cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
+ cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
+ cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
return;
}
-void F77_dcopy(const int *N, double *X, const int *incX,
+void F77_dcopy(const int *N, double *X, const int *incX,
double *Y, const int *incY)
{
cblas_dcopy(*N, X, *incX, Y, *incY);
#include "cblas.h"
#include "cblas_test.h"
-void F77_dgemv(int *layout, char *transp, int *m, int *n, double *alpha,
- double *a, int *lda, double *x, int *incx, double *beta,
+void F77_dgemv(int *layout, char *transp, int *m, int *n, double *alpha,
+ double *a, int *lda, double *x, int *incx, double *beta,
double *y, int *incy ) {
double *A;
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
A[ LDA*i+j ]=a[ (*lda)*j+i ];
- cblas_dgemv( CblasRowMajor, trans,
+ cblas_dgemv( CblasRowMajor, trans,
*m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
free(A);
}
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n+1;
}
}
-void F77_dtrsv(int *layout, char *uplow, char *transp, char *diagn,
+void F77_dtrsv(int *layout, char *uplow, char *transp, char *diagn,
int *n, double *a, int *lda, double *x, int *incx ) {
double *A;
int i,j,LDA;
else
cblas_dtrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx );
}
-void F77_dsymv(int *layout, char *uplow, int *n, double *alpha, double *a,
+void F77_dsymv(int *layout, char *uplow, int *n, double *alpha, double *a,
int *lda, double *x, int *incx, double *beta, double *y,
int *incy) {
double *A;
*beta, y, *incy );
}
-void F77_dsyr(int *layout, char *uplow, int *n, double *alpha, double *x,
+void F77_dsyr(int *layout, char *uplow, int *n, double *alpha, double *x,
int *incx, double *a, int *lda) {
double *A;
int i,j,LDA;
cblas_dsyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda);
}
-void F77_dsyr2(int *layout, char *uplow, int *n, double *alpha, double *x,
+void F77_dsyr2(int *layout, char *uplow, int *n, double *alpha, double *x,
int *incx, double *y, int *incy, double *a, int *lda) {
double *A;
int i,j,LDA;
}
void F77_dgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
- double *alpha, double *a, int *lda, double *x, int *incx,
+ double *alpha, double *a, int *lda, double *x, int *incx,
double *beta, double *y, int *incy ) {
double *A;
for( j=jcol; j<(*n+*kl); j++ )
A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];
}
- cblas_dgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha,
+ cblas_dgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha,
A, LDA, x, *incx, *beta, y, *incy );
free(A);
}
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *k+1;
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *k+1;
}
void F77_dsbmv(int *layout, char *uplow, int *n, int *k, double *alpha,
- double *a, int *lda, double *x, int *incx, double *beta,
+ double *a, int *lda, double *x, int *incx, double *beta,
double *y, int *incy) {
double *A;
int i,j,irow,jcol,LDA;
for( j=0; j<i+1; j++, k++ )
AP[ k ]=A[ LDA*i+j ];
}
- cblas_dspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,
+ cblas_dspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,
*incy );
free(A);
free(AP);
}
else
- cblas_dspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
+ cblas_dspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
*incy );
}
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n;
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n;
cblas_dtpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
}
-void F77_dspr(int *layout, char *uplow, int *n, double *alpha, double *x,
+void F77_dspr(int *layout, char *uplow, int *n, double *alpha, double *x,
int *incx, double *ap ){
double *A, *AP;
int i,j,k,LDA;
cblas_dspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap );
}
-void F77_dspr2(int *layout, char *uplow, int *n, double *alpha, double *x,
+void F77_dspr2(int *layout, char *uplow, int *n, double *alpha, double *x,
int *incx, double *y, int *incy, double *ap ){
double *A, *AP;
int i,j,k,LDA;
#define TEST_ROW_MJR 1
#define UNDEFINED -1
-void F77_dgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
+void F77_dgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
int *k, double *alpha, double *a, int *lda, double *b, int *ldb,
double *beta, double *c, int *ldc ) {
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_dsymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB,
+ cblas_dsymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB,
*beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_dsymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
+ cblas_dsymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
*beta, c, *ldc );
else
- cblas_dsymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
+ cblas_dsymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
*beta, c, *ldc );
}
void F77_dsyrk(int *layout, char *uplow, char *transp, int *n, int *k,
- double *alpha, double *a, int *lda,
+ double *alpha, double *a, int *lda,
double *beta, double *c, int *ldc ) {
int i,j,LDA,LDC;
for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_dsyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
+ cblas_dsyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ )
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_dsyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_dsyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
else
- cblas_dsyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_dsyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
}
for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_dsyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA,
+ cblas_dsyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA,
B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ )
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_dsyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda,
+ cblas_dsyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
else
- cblas_dsyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda,
+ cblas_dsyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
}
void F77_dtrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, double *alpha, double *a, int *lda, double *b,
+ int *m, int *n, double *alpha, double *a, int *lda, double *b,
int *ldb) {
int i,j,LDA,LDB;
double *A, *B;
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i];
- cblas_dtrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_dtrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
else
- cblas_dtrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
}
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i];
- cblas_dtrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_dtrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
else
- cblas_dtrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_dtrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
}
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},
+ 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;
if (strncmp( sf,"cblas_sgemv",11)==0) {
cblas_rout = "cblas_sgemv";
cblas_info = 1;
- cblas_sgemv(INVALID, CblasNoTrans, 0, 0,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ cblas_ssymv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ssymv(CblasColMajor, INVALID, 0,
+ cblas_ssymv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ssymv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ssymv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_ssymv(CblasColMajor, CblasUpper, 2,
+ cblas_ssymv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ssymv(CblasColMajor, CblasUpper, 0,
+ cblas_ssymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_ssymv(CblasColMajor, CblasUpper, 0,
+ cblas_ssymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ssymv(CblasRowMajor, INVALID, 0,
+ cblas_ssymv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ssymv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ssymv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_ssymv(CblasRowMajor, CblasUpper, 2,
+ cblas_ssymv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ssymv(CblasRowMajor, CblasUpper, 0,
+ cblas_ssymv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_ssymv(CblasRowMajor, CblasUpper, 0,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ 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,
+ cblas_sspmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_sspmv(CblasColMajor, INVALID, 0,
+ cblas_sspmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_sspmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_sspmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_sspmv(CblasColMajor, CblasUpper, 0,
+ cblas_sspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_sspmv(CblasColMajor, CblasUpper, 0,
+ cblas_sspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_sspmv(CblasRowMajor, INVALID, 0,
+ cblas_sspmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_sspmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_sspmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_sspmv(CblasRowMajor, CblasUpper, 0,
+ cblas_sspmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_sspmv(CblasRowMajor, CblasUpper, 0,
+ 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,
+ cblas_strmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_strmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_strmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_strmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_strmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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,
+ cblas_stbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_stbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_stbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_stbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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,
+ cblas_stpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_stpmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_stpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_stpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_stpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_stpmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_stpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_stpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_stpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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,
+ cblas_strsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_strsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_strsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_strsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_strsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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,
+ cblas_stbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_stbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_stbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_stbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ 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,
+ cblas_stpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_stpsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_stpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_stpsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_stpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_stpsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_stpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_stpsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_stpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_sger",10)==0) {
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
void F77_s3chke(char *rout) {
char *sf = ( rout ) ;
- float A[2] = {0.0,0.0},
- B[2] = {0.0,0.0},
- C[2] = {0.0,0.0},
+ float A[2] = {0.0,0.0},
+ B[2] = {0.0,0.0},
+ C[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
cblas_xerbla(cblas_info,cblas_rout,"");
F77_xerbla(cblas_rout,&cblas_info);
}
-
+
cblas_ok = TRUE ;
cblas_lerr = PASSED ;
if (strncmp( sf,"cblas_sgemm" ,11)==0) {
cblas_rout = "cblas_sgemm" ;
cblas_info = 1;
- cblas_sgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
+ cblas_sgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_sgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
+ cblas_sgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_sgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
+ cblas_sgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
return cblas_scnrm2(*N, X, *incX);
}
-void F77_scopy(const int *N, const float *X, const int *incX,
+void F77_scopy(const int *N, const float *X, const int *incX,
float *Y, const int *incY)
{
cblas_scopy(*N, X, *incX, Y, *incY);
return;
}
-float F77_sdot(const int *N, const float *X, const int *incX,
+float F77_sdot(const int *N, const float *X, const int *incX,
const float *Y, const int *incY)
{
return cblas_sdot(*N, X, *incX, Y, *incY);
#include "cblas.h"
#include "cblas_test.h"
-void F77_sgemv(int *layout, char *transp, int *m, int *n, float *alpha,
- float *a, int *lda, float *x, int *incx, float *beta,
+void F77_sgemv(int *layout, char *transp, int *m, int *n, float *alpha,
+ float *a, int *lda, float *x, int *incx, float *beta,
float *y, int *incy ) {
float *A;
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
A[ LDA*i+j ]=a[ (*lda)*j+i ];
- cblas_sgemv( CblasRowMajor, trans,
+ cblas_sgemv( CblasRowMajor, trans,
*m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
free(A);
}
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n+1;
}
}
-void F77_strsv(int *layout, char *uplow, char *transp, char *diagn,
+void F77_strsv(int *layout, char *uplow, char *transp, char *diagn,
int *n, float *a, int *lda, float *x, int *incx ) {
float *A;
int i,j,LDA;
else
cblas_strsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx );
}
-void F77_ssymv(int *layout, char *uplow, int *n, float *alpha, float *a,
+void F77_ssymv(int *layout, char *uplow, int *n, float *alpha, float *a,
int *lda, float *x, int *incx, float *beta, float *y,
int *incy) {
float *A;
*beta, y, *incy );
}
-void F77_ssyr(int *layout, char *uplow, int *n, float *alpha, float *x,
+void F77_ssyr(int *layout, char *uplow, int *n, float *alpha, float *x,
int *incx, float *a, int *lda) {
float *A;
int i,j,LDA;
cblas_ssyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda);
}
-void F77_ssyr2(int *layout, char *uplow, int *n, float *alpha, float *x,
+void F77_ssyr2(int *layout, char *uplow, int *n, float *alpha, float *x,
int *incx, float *y, int *incy, float *a, int *lda) {
float *A;
int i,j,LDA;
}
void F77_sgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
- float *alpha, float *a, int *lda, float *x, int *incx,
+ float *alpha, float *a, int *lda, float *x, int *incx,
float *beta, float *y, int *incy ) {
float *A;
for( j=jcol; j<(*n+*kl); j++ )
A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ];
}
- cblas_sgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha,
+ cblas_sgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha,
A, LDA, x, *incx, *beta, y, *incy );
free(A);
}
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *k+1;
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *k+1;
}
void F77_ssbmv(int *layout, char *uplow, int *n, int *k, float *alpha,
- float *a, int *lda, float *x, int *incx, float *beta,
+ float *a, int *lda, float *x, int *incx, float *beta,
float *y, int *incy) {
float *A;
int i,j,irow,jcol,LDA;
for( j=0; j<i+1; j++, k++ )
AP[ k ]=A[ LDA*i+j ];
}
- cblas_sspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,
+ cblas_sspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y,
*incy );
free(A); free(AP);
}
else
- cblas_sspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
+ cblas_sspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
*incy );
}
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n;
CBLAS_UPLO uplo;
CBLAS_DIAG diag;
- get_transpose_type(transp,&trans);
- get_uplo_type(uplow,&uplo);
- get_diag_type(diagn,&diag);
+ get_transpose_type(transp,&trans);
+ get_uplo_type(uplow,&uplo);
+ get_diag_type(diagn,&diag);
if (*layout == TEST_ROW_MJR) {
LDA = *n;
cblas_stpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx );
}
-void F77_sspr(int *layout, char *uplow, int *n, float *alpha, float *x,
+void F77_sspr(int *layout, char *uplow, int *n, float *alpha, float *x,
int *incx, float *ap ){
float *A, *AP;
int i,j,k,LDA;
cblas_sspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap );
}
-void F77_sspr2(int *layout, char *uplow, int *n, float *alpha, float *x,
+void F77_sspr2(int *layout, char *uplow, int *n, float *alpha, float *x,
int *incx, float *y, int *incy, float *ap ){
float *A, *AP;
int i,j,k,LDA;
#include "cblas.h"
#include "cblas_test.h"
-void F77_sgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
+void F77_sgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
int *k, float *alpha, float *a, int *lda, float *b, int *ldb,
float *beta, float *c, int *ldc ) {
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_ssymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB,
+ cblas_ssymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB,
*beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_ssymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
+ cblas_ssymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
*beta, c, *ldc );
else
- cblas_ssymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
+ cblas_ssymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb,
*beta, c, *ldc );
}
void F77_ssyrk(int *layout, char *uplow, char *transp, int *n, int *k,
- float *alpha, float *a, int *lda,
+ float *alpha, float *a, int *lda,
float *beta, float *c, int *ldc ) {
int i,j,LDA,LDC;
for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_ssyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
+ cblas_ssyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ )
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_ssyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_ssyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
else
- cblas_ssyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_ssyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
}
for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_ssyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA,
+ cblas_ssyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA,
B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ )
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_ssyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda,
+ cblas_ssyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
else
- cblas_ssyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda,
+ cblas_ssyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
}
void F77_strmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, float *alpha, float *a, int *lda, float *b,
+ int *m, int *n, float *alpha, float *a, int *lda, float *b,
int *ldb) {
int i,j,LDA,LDB;
float *A, *B;
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i];
- cblas_strmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_strmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
else
- cblas_strmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
}
for( i=0; i<*m; i++ )
for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i];
- cblas_strsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_strsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
else
- cblas_strsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
+ cblas_strsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha,
a, *lda, b, *ldb);
}
extern int link_xerbla;
extern int RowMajorStrg;
extern char *cblas_rout;
-
- /* Initially, c__3chke will call this routine with
- * global variable link_xerbla=1, and F77_xerbla will set link_xerbla=0.
- * This is done to fool the linker into loading these subroutines first
+
+ /* Initially, c__3chke will call this routine with
+ * global variable link_xerbla=1, and F77_xerbla will set link_xerbla=0.
+ * This is done to fool the linker into loading these subroutines first
* instead of ones in the CBLAS or the legacy BLAS library.
*/
if (link_xerbla) return;
if (RowMajorStrg)
{
- /* To properly check leading dimension problems in cblas__gemm, we
- * need to do the following trick. When cblas__gemm is called with
- * CblasRowMajor, the arguments A and B switch places in the call to
- * f77__gemm. Thus when we test for bad leading dimension problems
- * for A and B, lda is in position 11 instead of 9, and ldb is in
+ /* To properly check leading dimension problems in cblas__gemm, we
+ * need to do the following trick. When cblas__gemm is called with
+ * CblasRowMajor, the arguments A and B switch places in the call to
+ * f77__gemm. Thus when we test for bad leading dimension problems
+ * for A and B, lda is in position 11 instead of 9, and ldb is in
* position 9 instead of 11.
*/
if (strstr(rout,"gemm") != 0)
}
for(i=0; i < 6; i++) rout[i+6] = tolower(srname[i]);
for(i=11; i >= 9; i--) if (rout[i] == ' ') rout[i] = '\0';
-
+
/* We increment *info by 1 since the CBLAS interface adds one more
* argument to all level 2 and 3 routines.
*/
void F77_z2chke(char *rout) {
char *sf = ( rout ) ;
- double A[2] = {0.0,0.0},
- X[2] = {0.0,0.0},
- Y[2] = {0.0,0.0},
+ double A[2] = {0.0,0.0},
+ X[2] = {0.0,0.0},
+ Y[2] = {0.0,0.0},
ALPHA[2] = {0.0,0.0},
- BETA[2] = {0.0,0.0},
+ BETA[2] = {0.0,0.0},
RALPHA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
if (strncmp( sf,"cblas_zgemv",11)==0) {
cblas_rout = "cblas_zgemv";
cblas_info = 1;
- cblas_zgemv(INVALID, CblasNoTrans, 0, 0,
+ cblas_zgemv(INVALID, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, INVALID, 0, 0,
+ cblas_zgemv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
+ cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
+ cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0,
+ cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
+ cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, INVALID, 0, 0,
+ cblas_zgemv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
+ cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
+ cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2,
+ cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
+ cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_zgbmv",11)==0) {
cblas_rout = "cblas_zgbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
+ cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
+ cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = FALSE;
- cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
+ cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 14; RowMajorStrg = TRUE;
- cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
+ cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_zhemv",11)==0) {
cblas_rout = "cblas_zhemv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_zhemv(INVALID, CblasUpper, 0,
+ cblas_zhemv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_zhemv(CblasColMajor, INVALID, 0,
+ cblas_zhemv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_zhemv(CblasColMajor, CblasUpper, INVALID,
+ cblas_zhemv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_zhemv(CblasColMajor, CblasUpper, 2,
+ cblas_zhemv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_zhemv(CblasColMajor, CblasUpper, 0,
+ cblas_zhemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = FALSE;
- cblas_zhemv(CblasColMajor, CblasUpper, 0,
+ cblas_zhemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_zhemv(CblasRowMajor, INVALID, 0,
+ cblas_zhemv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_zhemv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_zhemv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_zhemv(CblasRowMajor, CblasUpper, 2,
+ cblas_zhemv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_zhemv(CblasRowMajor, CblasUpper, 0,
+ cblas_zhemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 11; RowMajorStrg = TRUE;
- cblas_zhemv(CblasRowMajor, CblasUpper, 0,
+ cblas_zhemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_zhbmv",11)==0) {
cblas_rout = "cblas_zhbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_zhbmv(INVALID, CblasUpper, 0, 0,
+ cblas_zhbmv(INVALID, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, INVALID, 0, 0,
+ cblas_zhbmv(CblasColMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0,
+ cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID,
+ cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1,
+ cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = FALSE;
- cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
+ cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, INVALID, 0, 0,
+ cblas_zhbmv(CblasRowMajor, INVALID, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0,
+ cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID,
+ cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1,
+ cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1,
ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
+ cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 12; RowMajorStrg = TRUE;
- cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
+ cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_zhpmv",11)==0) {
cblas_rout = "cblas_zhpmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_zhpmv(INVALID, CblasUpper, 0,
+ cblas_zhpmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_zhpmv(CblasColMajor, INVALID, 0,
+ cblas_zhpmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_zhpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_zhpmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_zhpmv(CblasColMajor, CblasUpper, 0,
+ cblas_zhpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_zhpmv(CblasColMajor, CblasUpper, 0,
+ cblas_zhpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_zhpmv(CblasRowMajor, INVALID, 0,
+ cblas_zhpmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
+ cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
+ cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztrmv",11)==0) {
cblas_rout = "cblas_ztrmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztrmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztbmv",11)==0) {
cblas_rout = "cblas_ztbmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztpmv",11)==0) {
cblas_rout = "cblas_ztpmv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztpmv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztrsv",11)==0) {
cblas_rout = "cblas_ztrsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztrsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = FALSE;
- cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 7; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 );
chkxer();
cblas_info = 9; RowMajorStrg = TRUE;
- cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztbsv",11)==0) {
cblas_rout = "cblas_ztbsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = FALSE;
- cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer();
cblas_info = 6; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer();
cblas_info = 10; RowMajorStrg = TRUE;
- cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_ztpsv",11)==0) {
cblas_rout = "cblas_ztpsv";
cblas_info = 1; RowMajorStrg = FALSE;
- cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 2; RowMajorStrg = FALSE;
- cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans,
+ cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = FALSE;
- cblas_ztpsv(CblasColMajor, CblasUpper, INVALID,
+ cblas_ztpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = FALSE;
- cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = FALSE;
- cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = FALSE;
- cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
cblas_info = 2; RowMajorStrg = TRUE;
- cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans,
+ cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 3; RowMajorStrg = TRUE;
- cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID,
+ cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 );
chkxer();
cblas_info = 4; RowMajorStrg = TRUE;
- cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 );
chkxer();
cblas_info = 5; RowMajorStrg = TRUE;
- cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 );
chkxer();
cblas_info = 8; RowMajorStrg = TRUE;
- cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
+ cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 );
chkxer();
} else if (strncmp( sf,"cblas_zgeru",10)==0) {
cblas_info = 6; RowMajorStrg = FALSE;
cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
chkxer();
- }
+ }
if (cblas_ok == TRUE)
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
else
B[4] = {0.0,0.0,0.0,0.0},
C[4] = {0.0,0.0,0.0,0.0},
ALPHA[2] = {0.0,0.0},
- BETA[2] = {0.0,0.0},
+ BETA[2] = {0.0,0.0},
RALPHA = 0.0, RBETA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg;
cblas_rout = "cblas_zgemm" ;
cblas_info = 1;
- cblas_zgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
+ cblas_zgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_zgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
+ cblas_zgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
- cblas_zgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
+ cblas_zgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
cblas_info = 1;
cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
-
+
} else if (strncmp( sf,"cblas_zhemm" ,11)==0) {
cblas_rout = "cblas_zhemm" ;
cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer();
-
+
}
if (cblas_ok == 1 )
return;
}
-void F77_zcopy(const int *N, void *X, const int *incX,
+void F77_zcopy(const int *N, void *X, const int *incX,
void *Y, const int *incY)
{
cblas_zcopy(*N, X, *incX, Y, *incY);
return;
}
-void F77_zdotc(const int *N, const void *X, const int *incX,
+void F77_zdotc(const int *N, const void *X, const int *incX,
const void *Y, const int *incY,void *dotc)
{
cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc);
return;
}
-void F77_zdotu(const int *N, void *X, const int *incX,
+void F77_zdotu(const int *N, void *X, const int *incX,
void *Y, const int *incY,void *dotu)
{
cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu);
#include "cblas.h"
#include "cblas_test.h"
-void F77_zgemv(int *layout, char *transp, int *m, int *n,
+void F77_zgemv(int *layout, char *transp, int *m, int *n,
const void *alpha,
- CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx,
+ CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx,
const void *beta, void *y, int *incy) {
CBLAS_TEST_ZOMPLEX *A;
*m, *n, alpha, a, *lda, x, *incx, beta, y, *incy );
}
-void F77_zgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
- CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
- CBLAS_TEST_ZOMPLEX *x, int *incx,
+void F77_zgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku,
+ CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
+ CBLAS_TEST_ZOMPLEX *x, int *incx,
CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy) {
CBLAS_TEST_ZOMPLEX *A;
*incx, beta, y, *incy );
}
-void F77_zgeru(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha,
- CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy,
+void F77_zgeru(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha,
+ CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy,
CBLAS_TEST_ZOMPLEX *a, int *lda){
CBLAS_TEST_ZOMPLEX *A;
cblas_zgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda );
}
-void F77_zgerc(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha,
- CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy,
+void F77_zgerc(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha,
+ CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy,
CBLAS_TEST_ZOMPLEX *a, int *lda) {
CBLAS_TEST_ZOMPLEX *A;
int i,j,LDA;
free(A);
}
else if (*layout == TEST_COL_MJR)
- cblas_zhemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx,
+ cblas_zhemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx,
beta, y, *incy );
else
cblas_zhemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx,
}
void F77_zhbmv(int *layout, char *uplow, int *n, int *k,
- CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
+ CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *beta,
CBLAS_TEST_ZOMPLEX *y, int *incy){
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_zhbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x,
+ cblas_zhbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x,
*incx, beta, y, *incy );
else {
LDA = *k+2;
}
void F77_zhpmv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha,
- CBLAS_TEST_ZOMPLEX *ap, CBLAS_TEST_ZOMPLEX *x, int *incx,
+ CBLAS_TEST_ZOMPLEX *ap, CBLAS_TEST_ZOMPLEX *x, int *incx,
CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy){
CBLAS_TEST_ZOMPLEX *A, *AP;
get_uplo_type(uplow,&uplo);
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_zhpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx,
+ cblas_zhpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx,
beta, y, *incy);
else {
LDA = *n;
}
}
}
- cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x,
+ cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x,
*incx);
free(A);
}
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_ztbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x,
+ cblas_ztbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x,
*incx);
else {
LDA = *k+2;
}
}
}
- cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA,
+ cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA,
x, *incx);
free(A);
}
if (*layout == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower )
- cblas_zhpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y,
+ cblas_zhpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y,
*incy, ap );
else {
LDA = *n;
LDA = *n+1;
A=(CBLAS_TEST_ZOMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_ZOMPLEX ));
- for( i=0; i<*n; i++ )
+ for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
LDA = *n+1;
A= ( CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );
- for( i=0; i<*n; i++ )
+ for( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;
#define TEST_ROW_MJR 1
#define UNDEFINED -1
-void F77_zgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
+void F77_zgemm(int *layout, char *transpa, char *transpb, int *m, int *n,
int *k, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
- CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta,
+ CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta,
CBLAS_TEST_ZOMPLEX *c, int *ldc ) {
CBLAS_TEST_ZOMPLEX *A, *B, *C;
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_zhemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
+ cblas_zhemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zhemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_zhemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
else
- cblas_zhemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_zhemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
}
void F77_zsymm(int *layout, char *rtlf, char *uplow, int *m, int *n,
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+i];
- cblas_zsymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
+ cblas_zsymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB,
beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ )
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zsymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_zsymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
else
- cblas_zsymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
+ cblas_zsymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb,
beta, c, *ldc );
}
void F77_zherk(int *layout, char *uplow, char *transp, int *n, int *k,
- double *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
+ double *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
double *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) {
int i,j,LDA,LDC;
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_zherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
+ cblas_zherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_zherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
else
- cblas_zherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
+ cblas_zherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta,
c, *ldc );
}
void F77_zsyrk(int *layout, char *uplow, char *transp, int *n, int *k,
- CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
+ CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) {
int i,j,LDA,LDC;
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_zsyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta,
+ cblas_zsyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta,
C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zsyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta,
+ cblas_zsyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta,
c, *ldc );
else
- cblas_zsyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta,
+ cblas_zsyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta,
c, *ldc );
}
void F77_zher2k(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_zher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
+ cblas_zher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_zher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
else
- cblas_zher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_zher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, *beta, c, *ldc );
}
void F77_zsyr2k(int *layout, char *uplow, char *transp, int *n, int *k,
C[i*LDC+j].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag;
}
- cblas_zsyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
+ cblas_zsyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA,
B, LDB, beta, C, LDC );
for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) {
free(C);
}
else if (*layout == TEST_COL_MJR)
- cblas_zsyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_zsyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, beta, c, *ldc );
else
- cblas_zsyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
+ cblas_zsyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda,
b, *ldb, beta, c, *ldc );
}
void F77_ztrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a,
+ int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a,
int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) {
int i,j,LDA,LDB;
CBLAS_TEST_ZOMPLEX *A, *B;
B[i*LDB+j].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag;
}
- cblas_ztrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_ztrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
else
- cblas_ztrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
}
void F77_ztrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn,
- int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a,
+ int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a,
int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) {
int i,j,LDA,LDB;
CBLAS_TEST_ZOMPLEX *A, *B;
B[i*LDB+j].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag;
}
- cblas_ztrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha,
A, LDA, B, LDB );
for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) {
free(B);
}
else if (*layout == TEST_COL_MJR)
- cblas_ztrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
else
- cblas_ztrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
+ cblas_ztrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha,
a, *lda, b, *ldb);
}
/*
LAPACKE Example : Calling DGELS using col-major layout
=====================================================
-
+
The program computes the solution to the system of linear
equations with a square matrix A and multiple
right-hand sides B, where A is the coefficient matrix
and b is the right-hand side matrix:
-
+
Description
===========
-
- In this example, we wish solve the least squares problem min_x || B - Ax ||
+
+ In this example, we wish solve the least squares problem min_x || B - Ax ||
for two right-hand sides using the LAPACK routine DGELS. For input we will
use the 5-by-3 matrix
( 18 16 )
We will first store the input matrix as a static C two-dimensional array,
which is stored in col-major layout, and let LAPACKE handle the work space
- array allocation. The LAPACK base name for this function is gels, and we
+ array allocation. The LAPACK base name for this function is gels, and we
will use double precision (d), so the LAPACKE function name is LAPACKE_dgels.
lda=5 and ldb=5. The output for each right hand side is stored in b as
- consecutive vectors of length 3. The correct answer for this problem is
+ consecutive vectors of length 3. The correct answer for this problem is
the 3-by-2 matrix
( 2 1 )
/* Print Right Rand Side */
print_matrix_colmajor( "Right Hand Side b", n, nrhs, *b, ldb );
printf( "\n" );
-
+
/* Executable statements */
printf( "LAPACKE_dgels (col-major, high-level) Example Program Results\n" );
/* Solve least squares problem*/
/*
LAPACKE Example : Calling DGELS using row-major layout
=====================================================
-
+
The program computes the solution to the system of linear
equations with a square matrix A and multiple
right-hand sides B, where A is the coefficient matrix
and b is the right-hand side matrix:
-
+
Description
===========
-
- In this example, we wish solve the least squares problem min_x || B - Ax ||
+
+ In this example, we wish solve the least squares problem min_x || B - Ax ||
for two right-hand sides using the LAPACK routine DGELS. For input we will
use the 5-by-3 matrix
( 18 16 )
We will first store the input matrix as a static C two-dimensional array,
which is stored in row-major layout, and let LAPACKE handle the work space
- array allocation. The LAPACK base name for this function is gels, and we
+ array allocation. The LAPACK base name for this function is gels, and we
will use double precision (d), so the LAPACKE function name is LAPACKE_dgels.
thus lda=3 and ldb=2. The output for each right hand side is stored in b as
- consecutive vectors of length 3. The correct answer for this problem is
+ consecutive vectors of length 3. The correct answer for this problem is
the 3-by-2 matrix
( 2 1 )
/* Print Right Rand Side */
print_matrix_rowmajor( "Right Hand Side b", n, nrhs, *b, ldb );
printf( "\n" );
-
+
/* Executable statements */
printf( "LAPACKE_dgels (row-major, high-level) Example Program Results\n" );
/* Solve least squares problem*/
/*
LAPACKE_dgesv Example
=====================
-
+
The program computes the solution to the system of linear
equations with a square matrix A and multiple
right-hand sides B, where A is the coefficient matrix
and b is the right-hand side matrix:
-
+
Description
===========
-
- The routine solves for X the system of linear equations A*X = B,
- where A is an n-by-n matrix, the columns of matrix B are individual
- right-hand sides, and the columns of X are the corresponding
+
+ The routine solves for X the system of linear equations A*X = B,
+ where A is an n-by-n matrix, the columns of matrix B are individual
+ right-hand sides, and the columns of X are the corresponding
solutions.
- The LU decomposition with partial pivoting and row interchanges is
- used to factor A as A = P*L*U, where P is a permutation matrix, L
- is unit lower triangular, and U is upper triangular. The factored
+ The LU decomposition with partial pivoting and row interchanges is
+ used to factor A as A = P*L*U, where P is a permutation matrix, L
+ is unit lower triangular, and U is upper triangular. The factored
form of A is then used to solve the system of equations A*X = B.
LAPACKE Interface
/* Local arrays */
double *A, *b;
lapack_int *ipiv;
-
+
/* Default Value */
n = 5; nrhs = 1;
/* Arguments */
for( i = 1; i < argc; i++ ) {
- if( strcmp( argv[i], "-n" ) == 0 ) {
+ if( strcmp( argv[i], "-n" ) == 0 ) {
n = atoi(argv[i+1]);
i++;
}
- if( strcmp( argv[i], "-nrhs" ) == 0 ) {
+ if( strcmp( argv[i], "-nrhs" ) == 0 ) {
nrhs = atoi(argv[i+1]);
i++;
- }
+ }
}
-
+
/* Initialization */
lda=n, ldb=n;
A = (double *)malloc(n*n*sizeof(double)) ;
for( i = 0; i < n; i++ ) {
for( j = 0; j < n; j++ ) A[i+j*lda] = ((double) rand()) / ((double) RAND_MAX) - 0.5;
}
-
+
for(i=0;i<n*nrhs;i++)
b[i] = ((double) rand()) / ((double) RAND_MAX) - 0.5;
/* Print Right Rand Side */
print_matrix_colmajor( "Right Rand Side b", n, nrhs, b, ldb );
printf( "\n" );
-
+
/* Executable statements */
printf( "LAPACKE_dgesv (row-major, high-level) Example Program Results\n" );
/* Solve the equations A*X = B */
info = LAPACKE_dgesv( LAPACK_COL_MAJOR, n, nrhs, A, lda, ipiv,
b, ldb );
-
+
/* Check for the exact singularity */
if( info > 0 ) {
printf( "The diagonal element of the triangular factor of A,\n" );
/*
LAPACKE_dgesv Example
=====================
-
+
The program computes the solution to the system of linear
equations with a square matrix A and multiple
right-hand sides B, where A is the coefficient matrix
and b is the right-hand side matrix:
-
+
Description
===========
-
- The routine solves for X the system of linear equations A*X = B,
- where A is an n-by-n matrix, the columns of matrix B are individual
- right-hand sides, and the columns of X are the corresponding
+
+ The routine solves for X the system of linear equations A*X = B,
+ where A is an n-by-n matrix, the columns of matrix B are individual
+ right-hand sides, and the columns of X are the corresponding
solutions.
- The LU decomposition with partial pivoting and row interchanges is
- used to factor A as A = P*L*U, where P is a permutation matrix, L
- is unit lower triangular, and U is upper triangular. The factored
+ The LU decomposition with partial pivoting and row interchanges is
+ used to factor A as A = P*L*U, where P is a permutation matrix, L
+ is unit lower triangular, and U is upper triangular. The factored
form of A is then used to solve the system of equations A*X = B.
LAPACKE Interface
/* Local arrays */
double *A, *b;
lapack_int *ipiv;
-
+
/* Default Value */
n = 5; nrhs = 1;
/* Arguments */
for( i = 1; i < argc; i++ ) {
- if( strcmp( argv[i], "-n" ) == 0 ) {
+ if( strcmp( argv[i], "-n" ) == 0 ) {
n = atoi(argv[i+1]);
i++;
}
- if( strcmp( argv[i], "-nrhs" ) == 0 ) {
+ if( strcmp( argv[i], "-nrhs" ) == 0 ) {
nrhs = atoi(argv[i+1]);
i++;
- }
+ }
}
-
+
/* Initialization */
lda=n, ldb=nrhs;
A = (double *)malloc(n*n*sizeof(double)) ;
#include <stdlib.h>
#include <stdio.h>
#include "lapacke.h"
-
+
/* Auxiliary routines prototypes */
extern void print_matrix( char* desc, lapack_int m, lapack_int n, double* a, lapack_int lda );
extern void print_int_vector( char* desc, lapack_int n, lapack_int* a );
-
+
/* Parameters */
#define N 5
#define NRHS 3
#define LDA N
#define LDB NRHS
-
+
/* Main program */
int main() {
/* Locals */
-7.57, 1.75, -8.61,
-3.03, 2.86, 8.99
};
-
+
double aNorm;
double rcond;
char ONE_NORM = '1';
lapack_int NROWS = n;
lapack_int NCOLS = n;
lapack_int LEADING_DIMENSION_A = n;
-
+
/* Print Entry Matrix */
print_matrix( "Entry Matrix A", n, n, a, lda );
/* Print Right Rand Side */
printf( "Unrecognized value of INFO = %d\n", info );
exit( 1 );
}
-
+
/* Print solution */
printf("LAPACKE_dlange / One-norm of A = %lf\n", aNorm);
printf("LAPACKE_dgecon / RCOND of A = %f\n", rcond);
exit( 0 );
} /* End of LAPACKE_dgesv Example */
-
+
/* Auxiliary routine: printing a matrix */
void print_matrix( char* desc, lapack_int m, lapack_int n, double* a, lapack_int lda ) {
lapack_int i, j;
printf( "\n" );
}
}
-
+
/* Auxiliary routine: printing a vector of integers */
void print_int_vector( char* desc, lapack_int n, lapack_int* a ) {
lapack_int j;
for( j = 0; j < n; j++ ) printf( " %6i", a[j] );
printf( "\n" );
}
-
-
+
+
void print_matrix_rowmajor( char* desc, lapack_int m, lapack_int n, double* mat, lapack_int ldm ) {
lapack_int i, j;
printf( "\n %s\n", desc );
-
+
for( i = 0; i < m; i++ ) {
for( j = 0; j < n; j++ ) printf( " %6.2f", mat[i*ldm+j] );
printf( "\n" );
void print_matrix_colmajor( char* desc, lapack_int m, lapack_int n, double* mat, lapack_int ldm ) {
lapack_int i, j;
printf( "\n %s\n", desc );
-
+
for( i = 0; i < m; i++ ) {
for( j = 0; j < n; j++ ) printf( " %6.2f", mat[i+j*ldm] );
printf( "\n" );
lapack_complex_double* x );
lapack_int LAPACKE_slascl( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, float cfrom, float cto,
- lapack_int m, lapack_int n, float* a,
+ lapack_int ku, float cfrom, float cto,
+ lapack_int m, lapack_int n, float* a,
lapack_int lda );
lapack_int LAPACKE_dlascl( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, double cfrom, double cto,
- lapack_int m, lapack_int n, double* a,
+ lapack_int ku, double cfrom, double cto,
+ lapack_int m, lapack_int n, double* a,
lapack_int lda );
lapack_int LAPACKE_clascl( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, float cfrom, float cto,
- lapack_int m, lapack_int n, lapack_complex_float* a,
+ lapack_int ku, float cfrom, float cto,
+ lapack_int m, lapack_int n, lapack_complex_float* a,
lapack_int lda );
lapack_int LAPACKE_zlascl( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, double cfrom, double cto,
- lapack_int m, lapack_int n, lapack_complex_double* a,
+ lapack_int ku, double cfrom, double cto,
+ lapack_int m, lapack_int n, lapack_complex_double* a,
lapack_int lda );
lapack_int LAPACKE_slaset( int matrix_layout, char uplo, lapack_int m,
lapack_int lda, float vl, float vu,
lapack_int il, lapack_int iu, lapack_int* ns,
float* s, float* u, lapack_int ldu,
- float* vt, lapack_int ldvt,
+ float* vt, lapack_int ldvt,
float* work, lapack_int lwork, lapack_int* iwork );
lapack_int LAPACKE_dgesvdx_work( int matrix_layout, char jobu, char jobvt, char range,
lapack_int m, lapack_int n, double* a,
lapack_int lda, double vl, double vu,
lapack_int il, lapack_int iu, lapack_int* ns,
double* s, double* u, lapack_int ldu,
- double* vt, lapack_int ldvt,
+ double* vt, lapack_int ldvt,
double* work, lapack_int lwork, lapack_int* iwork );
lapack_int LAPACKE_cgesvdx_work( int matrix_layout, char jobu, char jobvt, char range,
lapack_int m, lapack_int n, lapack_complex_float* a,
lapack_int lda, float vl, float vu,
lapack_int il, lapack_int iu, lapack_int* ns,
float* s, lapack_complex_float* u, lapack_int ldu,
- lapack_complex_float* vt, lapack_int ldvt,
+ lapack_complex_float* vt, lapack_int ldvt,
lapack_complex_float* work, lapack_int lwork,
float* rwork, lapack_int* iwork );
lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char range,
lapack_int lda, double vl, double vu,
lapack_int il, lapack_int iu, lapack_int* ns,
double* s, lapack_complex_double* u, lapack_int ldu,
- lapack_complex_double* vt, lapack_int ldvt,
- lapack_complex_double* work, lapack_int lwork,
+ lapack_complex_double* vt, lapack_int ldvt,
+ lapack_complex_double* work, lapack_int lwork,
double* rwork, lapack_int* iwork );
-
+
lapack_int LAPACKE_sgesvj_work( int matrix_layout, char joba, char jobu,
char jobv, lapack_int m, lapack_int n, float* a,
lapack_int lda, float* sva, lapack_int mv,
lapack_int LAPACKE_slascl_work( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, float cfrom, float cto,
- lapack_int m, lapack_int n, float* a,
+ lapack_int ku, float cfrom, float cto,
+ lapack_int m, lapack_int n, float* a,
lapack_int lda );
lapack_int LAPACKE_dlascl_work( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, double cfrom, double cto,
- lapack_int m, lapack_int n, double* a,
+ lapack_int ku, double cfrom, double cto,
+ lapack_int m, lapack_int n, double* a,
lapack_int lda );
lapack_int LAPACKE_clascl_work( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, float cfrom, float cto,
- lapack_int m, lapack_int n, lapack_complex_float* a,
+ lapack_int ku, float cfrom, float cto,
+ lapack_int m, lapack_int n, lapack_complex_float* a,
lapack_int lda );
lapack_int LAPACKE_zlascl_work( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, double cfrom, double cto,
- lapack_int m, lapack_int n, lapack_complex_double* a,
+ lapack_int ku, double cfrom, double cto,
+ lapack_int m, lapack_int n, lapack_complex_double* a,
lapack_int lda );
-
+
lapack_int LAPACKE_slaset_work( int matrix_layout, char uplo, lapack_int m,
lapack_int n, float alpha, float beta, float* a,
lapack_int lda );
lapack_int q, lapack_complex_float* x11, lapack_int ldx11,
lapack_complex_float* x21, lapack_int ldx21,
float* theta, lapack_complex_float* u1,
- lapack_int ldu1, lapack_complex_float* u2,
+ lapack_int ldu1, lapack_complex_float* u2,
lapack_int ldu2, lapack_complex_float* v1t,
- lapack_int ldv1t, lapack_complex_float* work,
+ lapack_int ldv1t, lapack_complex_float* work,
lapack_int lwork, float* rwork, lapack_int lrwork,
lapack_int* iwork );
lapack_int LAPACKE_dbbcsd( int matrix_layout, char jobu1, char jobu2,
lapack_int q, lapack_complex_double* x11, lapack_int ldx11,
lapack_complex_double* x21, lapack_int ldx21,
double* theta, lapack_complex_double* u1,
- lapack_int ldu1, lapack_complex_double* u2,
+ lapack_int ldu1, lapack_complex_double* u2,
lapack_int ldu2, lapack_complex_double* v1t,
- lapack_int ldv1t, lapack_complex_double* work,
+ lapack_int ldv1t, lapack_complex_double* work,
lapack_int lwork, double* rwork, lapack_int lrwork,
lapack_int* iwork );
lapack_int nrhs, lapack_complex_double* a,
lapack_int lda, lapack_int* ipiv,
lapack_complex_double* b, lapack_int ldb );
-
+
lapack_int LAPACKE_ssytrf_rook( int matrix_layout, char uplo, lapack_int n, float* a,
lapack_int lda, lapack_int* ipiv );
lapack_int LAPACKE_dsytrf_rook( int matrix_layout, char uplo, lapack_int n, double* a,
lapack_complex_double* b, lapack_int ldb,
lapack_complex_double* work,
lapack_int lwork );
-
+
lapack_int LAPACKE_ssytrf_rook_work( int matrix_layout, char uplo, lapack_int n,
float* a, lapack_int lda, lapack_int* ipiv,
float* work, lapack_int lwork );
lapack_complex_double* u, lapack_int* ldu,
lapack_complex_double* vt, lapack_int* ldvt,
lapack_complex_double* work, lapack_int* lwork,
- double* rwork, lapack_int *iwork, lapack_int *info );
+ double* rwork, lapack_int *iwork, lapack_int *info );
void LAPACK_sgesdd( char* jobz, lapack_int* m, lapack_int* n, float* a,
lapack_int* lda, float* s, float* u, lapack_int* ldu,
float* vt, lapack_int* ldvt, float* work, lapack_int* lwork,
void LAPACK_cgejsv( char* joba, char* jobu, char* jobv, char* jobr, char* jobt,
char* jobp, lapack_int* m, lapack_int* n, lapack_complex_float* a,
lapack_int* lda, float* sva, lapack_complex_float* u, lapack_int* ldu,
- lapack_complex_float* v, lapack_int* ldv, lapack_complex_float* cwork,
+ lapack_complex_float* v, lapack_int* ldv, lapack_complex_float* cwork,
lapack_int* lwork, float* work, lapack_int* lrwork,
lapack_int* iwork, lapack_int *info );
void LAPACK_zgejsv( char* joba, char* jobu, char* jobv, char* jobr, char* jobt,
char* jobp, lapack_int* m, lapack_int* n, lapack_complex_double* a,
lapack_int* lda, double* sva, lapack_complex_double* u, lapack_int* ldu,
- lapack_complex_double* v, lapack_int* ldv, lapack_complex_double* cwork,
+ lapack_complex_double* v, lapack_int* ldv, lapack_complex_double* cwork,
lapack_int* lwork, double* work, lapack_int* lrwork,
lapack_int* iwork, lapack_int *info );
void LAPACK_dgesvj( char* joba, char* jobu, char* jobv, lapack_int* m,
lapack_int* lwork, lapack_int *info );
void LAPACK_cgesvj( char* joba, char* jobu, char* jobv, lapack_int* m,
lapack_int* n, lapack_complex_float* a, lapack_int* lda, float* sva,
- lapack_int* mv, lapack_complex_float* v, lapack_int* ldv,
- lapack_complex_float* cwork, lapack_int* lwork, float* rwork,
+ lapack_int* mv, lapack_complex_float* v, lapack_int* ldv,
+ lapack_complex_float* cwork, lapack_int* lwork, float* rwork,
lapack_int* lrwork, lapack_int *info );
void LAPACK_zgesvj( char* joba, char* jobu, char* jobv, lapack_int* m,
lapack_int* n, lapack_complex_double* a, lapack_int* lda, double* sva,
- lapack_int* mv, lapack_complex_double* v, lapack_int* ldv,
+ lapack_int* mv, lapack_complex_double* v, lapack_int* ldv,
lapack_complex_double* cwork, lapack_int* lwork, double* rwork,
lapack_int* lrwork, lapack_int *info );
void LAPACK_sggsvd( char* jobu, char* jobv, char* jobq, lapack_int* m,
lapack_int* lda, lapack_int* iseed,
lapack_complex_double* work, lapack_int *info );
void LAPACK_slascl( char* type, lapack_int* kl, lapack_int* ku, float* cfrom,
- float* cto, lapack_int* m, lapack_int* n, float* a,
+ float* cto, lapack_int* m, lapack_int* n, float* a,
lapack_int* lda, lapack_int *info );
void LAPACK_dlascl( char* type, lapack_int* kl, lapack_int* ku, double* cfrom,
- double* cto, lapack_int* m, lapack_int* n, double* a,
+ double* cto, lapack_int* m, lapack_int* n, double* a,
lapack_int* lda, lapack_int *info );
void LAPACK_clascl( char* type, lapack_int* kl, lapack_int* ku, float* cfrom,
- float* cto, lapack_int* m, lapack_int* n, lapack_complex_float* a,
+ float* cto, lapack_int* m, lapack_int* n, lapack_complex_float* a,
lapack_int* lda, lapack_int *info );
void LAPACK_zlascl( char* type, lapack_int* kl, lapack_int* ku, double* cfrom,
- double* cto, lapack_int* m, lapack_int* n, lapack_complex_double* a,
+ double* cto, lapack_int* m, lapack_int* n, lapack_complex_double* a,
lapack_int* lda, lapack_int *info );
void LAPACK_slaset( char* uplo, lapack_int* m, lapack_int* n, float* alpha,
float* beta, float* a, lapack_int* lda );
void LAPACK_dsyconv( char* uplo, char* way,
lapack_int* n, double* a, lapack_int* lda,
const lapack_int* ipiv, double* e , lapack_int *info );
-void LAPACK_dsyswapr( char* uplo, lapack_int* n, double* a,
+void LAPACK_dsyswapr( char* uplo, lapack_int* n, double* a,
lapack_int* lda, lapack_int* i1, lapack_int* i2 );
void LAPACK_dsytri2( char* uplo, lapack_int* n,
double* a, lapack_int* lda,
void LAPACK_ssyconv( char* uplo, char* way,
lapack_int* n, float* a, lapack_int* lda,
const lapack_int* ipiv, float* e , lapack_int *info );
-void LAPACK_ssyswapr( char* uplo, lapack_int* n, float* a,
+void LAPACK_ssyswapr( char* uplo, lapack_int* n, float* a,
lapack_int* lda, lapack_int* i1, lapack_int* i2 );
void LAPACK_ssytri2( char* uplo, lapack_int* n,
float* a, lapack_int* lda,
lapack_int* n, lapack_complex_double* a,
lapack_int* lda, const lapack_int* ipiv,
lapack_complex_double* e , lapack_int *info );
-void LAPACK_zsyswapr( char* uplo, lapack_int* n, lapack_complex_double* a,
+void LAPACK_zsyswapr( char* uplo, lapack_int* n, lapack_complex_double* a,
lapack_int* lda, lapack_int* i1,
lapack_int* i2 );
void LAPACK_zsytri2( char* uplo, lapack_int* n,
{
lapack_int info = 0;
lapack_int lwork = (
- // 1.1
+ // 1.1
( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? 2*n+1 :
-
+
//1.2
( ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) &&
!( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? n*n+3*n :
( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
!( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
-
-
+
+
//2.2
( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
!( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
!( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
-
- //3.1
+
+ //3.1
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) &&
!( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
-
- //3.2
+
+ //3.2
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) &&
!(LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) &&
!(LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
-
+
//4.1
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 5*n+2*n*n :
-
+
//4.2
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
- ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n:
- 1) ) ) ) ) ) ) );
+ ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n:
+ 1) ) ) ) ) ) ) );
lapack_int lrwork = (
- // 1.1
+ // 1.1
( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,n+2*m) :
-
+
//1.2
( ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) &&
!( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,2*n) :
( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
!( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) :
-
-
+
+
//2.2
( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
!( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
!( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) :
-
- //3.1
+
+ //3.1
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) &&
!( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) :
-
- //3.2
+
+ //3.2
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) &&
!(LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) &&
!(LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) :
-
+
//4.1
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) :
-
+
//4.2
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
lapack_int lda, float vl, float vu,
lapack_int il, lapack_int iu, lapack_int* ns,
float* s, lapack_complex_float* u, lapack_int ldu,
- lapack_complex_float* vt, lapack_int ldvt,
+ lapack_complex_float* vt, lapack_int ldvt,
lapack_complex_float* work, lapack_int lwork,
float* rwork, lapack_int* iwork )
{
#include "lapacke_utils.h"
lapack_int LAPACKE_cgesvj_work( int matrix_layout, char joba, char jobu,
- char jobv, lapack_int m, lapack_int n,
- lapack_complex_float* a, lapack_int lda,
+ char jobv, lapack_int m, lapack_int n,
+ lapack_complex_float* a, lapack_int lda,
float* sva, lapack_int mv,
lapack_complex_float* v, lapack_int ldv,
lapack_complex_float* cwork, lapack_int lwork,
lapack_int info = 0;
lapack_int nrows_v, ncols_v;
lapack_int ldc_t, ldt_t, ldv_t;
- lapack_complex_float *v_t = NULL, *t_t = NULL, *c_t = NULL;
+ lapack_complex_float *v_t = NULL, *t_t = NULL, *c_t = NULL;
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_clarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t,
#include "lapacke_utils.h"
lapack_int LAPACKE_clascl( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, float cfrom, float cto,
- lapack_int m, lapack_int n, lapack_complex_float* a,
+ lapack_int ku, float cfrom, float cto,
+ lapack_int m, lapack_int n, lapack_complex_float* a,
lapack_int lda )
{
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
#include "lapacke_utils.h"
lapack_int LAPACKE_clascl_work( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, float cfrom, float cto,
- lapack_int m, lapack_int n, lapack_complex_float* a,
+ lapack_int ku, float cfrom, float cto,
+ lapack_int m, lapack_int n, lapack_complex_float* a,
lapack_int lda )
{
lapack_int info = 0;
}
/*****************************************************************************
-* Note: we do not check NaNs in A since the goal of this subroutine is to
-* initialized A. It is OK if A has NaNs in input.
+* Note: we do not check NaNs in A since the goal of this subroutine is to
+* initialized A. It is OK if A has NaNs in input.
*****************************************************************************/
#ifndef LAPACK_DISABLE_NAN_CHECK
#include "lapacke_utils.h"
lapack_int LAPACKE_ctpqrt( int matrix_layout, lapack_int m, lapack_int n,
- lapack_int l, lapack_int nb,
- lapack_complex_float* a, lapack_int lda,
+ lapack_int l, lapack_int nb,
+ lapack_complex_float* a, lapack_int lda,
lapack_complex_float* b, lapack_int ldb,
lapack_complex_float* t, lapack_int ldt )
{
else {
ldwork = m;
work_size = MAX(1,ldwork) * MAX(1,k);
- }
+ }
/* Allocate memory for working array(s) */
work = (lapack_complex_float*)
LAPACKE_malloc( sizeof(lapack_complex_float) * work_size );
goto exit_level_0;
}
/* Query optimal working array(s) size */
- info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
+ info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
ldu2, v1t, ldv1t, &work_query,
lwork, &rwork_query, lrwork, iwork );
goto exit_level_2;
}
/* Call middle-level interface */
- info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
+ info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
ldu2, v1t, ldv1t, work, lwork, rwork, lrwork, iwork );
/* Release memory and exit */
lapack_int q, lapack_complex_float* x11, lapack_int ldx11,
lapack_complex_float* x21, lapack_int ldx21,
float* theta, lapack_complex_float* u1,
- lapack_int ldu1, lapack_complex_float* u2,
+ lapack_int ldu1, lapack_complex_float* u2,
lapack_int ldu2, lapack_complex_float* v1t,
- lapack_int ldv1t, lapack_complex_float* work,
+ lapack_int ldv1t, lapack_complex_float* work,
lapack_int lwork, float* rwork, lapack_int lrwork,
lapack_int* iwork )
{
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_cuncsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p,
- &q, x11, &ldx11, x21, &ldx21,
- theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
+ &q, x11, &ldx11, x21, &ldx21,
+ theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
work, &lwork, rwork, &lrwork, iwork, &info );
if( info < 0 ) {
info = info - 1;
lapack_int n, double* d, double* e,
double vl, double vu,
lapack_int il, lapack_int iu, lapack_int* ns,
- double* s, double* z, lapack_int ldz,
+ double* s, double* z, lapack_int ldz,
double* work, lapack_int* iwork )
{
lapack_int info = 0;
lapack_int lda, double vl, double vu,
lapack_int il, lapack_int iu, lapack_int* ns,
double* s, double* u, lapack_int ldu,
- double* vt, lapack_int ldvt,
+ double* vt, lapack_int ldvt,
double* work, lapack_int lwork, lapack_int* iwork )
{
lapack_int info = 0;
lapack_int info = 0;
lapack_int nrows_v, ncols_v;
lapack_int ldc_t, ldt_t, ldv_t;
- double *v_t = NULL, *t_t = NULL, *c_t = NULL;
+ double *v_t = NULL, *t_t = NULL, *c_t = NULL;
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_dlarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t,
#include "lapacke_utils.h"
lapack_int LAPACKE_dlascl( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, double cfrom, double cto,
- lapack_int m, lapack_int n, double* a,
+ lapack_int ku, double cfrom, double cto,
+ lapack_int m, lapack_int n, double* a,
lapack_int lda )
{
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
#include "lapacke_utils.h"
lapack_int LAPACKE_dlascl_work( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, double cfrom, double cto,
- lapack_int m, lapack_int n, double* a,
+ lapack_int ku, double cfrom, double cto,
+ lapack_int m, lapack_int n, double* a,
lapack_int lda )
{
lapack_int info = 0;
}
/*****************************************************************************
-* Note: we do not check NaNs in A since the goal of this subroutine is to
-* initialized A. It is OK if A has NaNs in input.
+* Note: we do not check NaNs in A since the goal of this subroutine is to
+* initialized A. It is OK if A has NaNs in input.
*****************************************************************************/
#ifndef LAPACK_DISABLE_NAN_CHECK
goto exit_level_0;
}
/* Query optimal working array(s) size */
- info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
+ info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
ldu2, v1t, ldv1t, &work_query,
lwork, iwork );
goto exit_level_1;
}
/* Call middle-level interface */
- info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
+ info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
ldu2, v1t, ldv1t, work, lwork, iwork );
/* Release memory and exit */
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_dorcsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p,
- &q, x11, &ldx11, x21, &ldx21,
- theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
+ &q, x11, &ldx11, x21, &ldx21,
+ theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
work, &lwork, iwork, &info );
if( info < 0 ) {
info = info - 1;
return -5;
}
#endif
-
+
/* Call middle-level interface */
info = LAPACKE_dsyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv,
e );
else {
ldwork = m;
work_size = MAX(1,ldwork) * MAX(1,k);
- }
+ }
/* Allocate memory for working array(s) */
work = (double*)
- LAPACKE_malloc( sizeof(double) * work_size );
+ LAPACKE_malloc( sizeof(double) * work_size );
if( work == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR;
goto exit_level_0;
lapack_int n, float* d, float* e,
float vl, float vu,
lapack_int il, lapack_int iu, lapack_int* ns,
- float* s, float* z, lapack_int ldz,
+ float* s, float* z, lapack_int ldz,
float* work, lapack_int* iwork )
{
lapack_int info = 0;
lapack_int lda, float vl, float vu,
lapack_int il, lapack_int iu, lapack_int* ns,
float* s, float* u, lapack_int ldu,
- float* vt, lapack_int ldvt,
+ float* vt, lapack_int ldvt,
float* work, lapack_int lwork, lapack_int* iwork )
{
lapack_int info = 0;
info = LAPACK_TRANSPOSE_MEMORY_ERROR;
goto exit_level_0;
}
- if( LAPACKE_lsame( jobu, 'v' ) ) {
+ if( LAPACKE_lsame( jobu, 'v' ) ) {
u_t = (float*)
LAPACKE_malloc( sizeof(float) * ldu_t * MAX(1,ncols_u) );
if( u_t == NULL ) {
goto exit_level_1;
}
}
- if( LAPACKE_lsame( jobvt, 'v' ) ) {
+ if( LAPACKE_lsame( jobvt, 'v' ) ) {
vt_t = (float*)
LAPACKE_malloc( sizeof(float) * ldvt_t * MAX(1,n) );
if( vt_t == NULL ) {
LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrows_u, ncols_u, u_t, ldu_t,
u, ldu );
}
- if( LAPACKE_lsame( jobvt, 'v' ) ) {
+ if( LAPACKE_lsame( jobvt, 'v' ) ) {
LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrows_vt, n, vt_t, ldvt_t, vt,
ldvt );
}
/* Release memory and exit */
- if( LAPACKE_lsame( jobvt, 'v' ) ) {
+ if( LAPACKE_lsame( jobvt, 'v' ) ) {
LAPACKE_free( vt_t );
}
exit_level_2:
lapack_int info = 0;
lapack_int nrows_v, ncols_v;
lapack_int ldc_t, ldt_t, ldv_t;
- float *v_t = NULL, *t_t = NULL, *c_t = NULL;
+ float *v_t = NULL, *t_t = NULL, *c_t = NULL;
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_slarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t,
#include "lapacke_utils.h"
lapack_int LAPACKE_slascl_work( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, float cfrom, float cto,
- lapack_int m, lapack_int n, float* a,
+ lapack_int ku, float cfrom, float cto,
+ lapack_int m, lapack_int n, float* a,
lapack_int lda )
{
lapack_int info = 0;
}
/*****************************************************************************
-* Note: we do not check NaNs in A since the goal of this subroutine is to
-* initialized A. It is OK if A has NaNs in input.
+* Note: we do not check NaNs in A since the goal of this subroutine is to
+* initialized A. It is OK if A has NaNs in input.
*****************************************************************************/
#ifndef LAPACK_DISABLE_NAN_CHECK
goto exit_level_0;
}
/* Query optimal working array(s) size */
- info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
+ info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
ldu2, v1t, ldv1t, &work_query,
lwork, iwork );
goto exit_level_1;
}
/* Call middle-level interface */
- info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
+ info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
ldu2, v1t, ldv1t, work, lwork, iwork );
/* Release memory and exit */
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_sorcsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p,
- &q, x11, &ldx11, x21, &ldx21,
- theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
+ &q, x11, &ldx11, x21, &ldx21,
+ theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
work, &lwork, iwork, &info );
if( info < 0 ) {
info = info - 1;
return -5;
}
#endif
-
+
/* Call middle-level interface */
info = LAPACKE_ssyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv,
e );
else {
ldwork = m;
work_size = MAX(1,ldwork) * MAX(1,k);
- }
+ }
/* Allocate memory for working array(s) */
work = (float*)
LAPACKE_malloc( sizeof(float) * work_size );
{
lapack_int info = 0;
lapack_int lwork = (
- // 1.1
+ // 1.1
( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? 2*n+1 :
-
+
//1.2
( ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) &&
!( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? n*n+3*n :
( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
(!( LAPACKE_lsame( jobu, 'u') || LAPACKE_lsame( jobu, 'f' ) )&&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
-
-
+
+
//2.2
( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
!( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
!( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
-
- //3.1
+
+ //3.1
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) &&
!( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
-
- //3.2
+
+ //3.2
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) &&
!(LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) &&
!(LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
-
+
//4.1
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 5*n+2*n*n :
-
+
//4.2
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
- ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n:
- 1) ) ) ) ) ) ) ) );
+ ( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n:
+ 1) ) ) ) ) ) ) ) );
lapack_int lrwork = (
- // 1.1
+ // 1.1
( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,n+2*m) :
-
+
//1.2
( ( LAPACKE_lsame( jobu, 'n' ) && LAPACKE_lsame( jobv, 'n' ) &&
!( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,2*n) :
( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
(!( LAPACKE_lsame( jobu, 'u') || LAPACKE_lsame( jobu, 'f' ) ) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) :
-
-
+
+
//2.2
( ( ( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
!( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
!( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) :
-
- //3.1
+
+ //3.1
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) &&
!( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) :
-
- //3.2
+
+ //3.2
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' )) &&
!(LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' )) &&
!(LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) :
-
+
//4.1
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
( LAPACKE_lsame( jobt, 't' ) || LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) :
-
+
//4.2
( ( ( LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'f' ) ) &&
( LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'j' ) ) &&
lapack_int lda, double vl, double vu,
lapack_int il, lapack_int iu, lapack_int* ns,
double* s, lapack_complex_double* u, lapack_int ldu,
- lapack_complex_double* vt, lapack_int ldvt,
- lapack_complex_double* work, lapack_int lwork,
+ lapack_complex_double* vt, lapack_int ldvt,
+ lapack_complex_double* work, lapack_int lwork,
double* rwork, lapack_int* iwork )
{
lapack_int info = 0;
#include "lapacke_utils.h"
lapack_int LAPACKE_zgesvj_work( int matrix_layout, char joba, char jobu,
- char jobv, lapack_int m, lapack_int n,
- lapack_complex_double* a, lapack_int lda,
+ char jobv, lapack_int m, lapack_int n,
+ lapack_complex_double* a, lapack_int lda,
double* sva, lapack_int mv,
lapack_complex_double* v, lapack_int ldv,
lapack_complex_double* cwork, lapack_int lwork,
lapack_int info = 0;
lapack_int nrows_v, ncols_v;
lapack_int ldc_t, ldt_t, ldv_t;
- lapack_complex_double *v_t = NULL, *t_t = NULL, *c_t = NULL;
+ lapack_complex_double *v_t = NULL, *t_t = NULL, *c_t = NULL;
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_zlarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t,
#include "lapacke_utils.h"
lapack_int LAPACKE_zlascl( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, double cfrom, double cto,
- lapack_int m, lapack_int n, lapack_complex_double* a,
+ lapack_int ku, double cfrom, double cto,
+ lapack_int m, lapack_int n, lapack_complex_double* a,
lapack_int lda )
{
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
#include "lapacke_utils.h"
lapack_int LAPACKE_zlascl_work( int matrix_layout, char type, lapack_int kl,
- lapack_int ku, double cfrom, double cto,
- lapack_int m, lapack_int n, lapack_complex_double* a,
+ lapack_int ku, double cfrom, double cto,
+ lapack_int m, lapack_int n, lapack_complex_double* a,
lapack_int lda )
{
lapack_int info = 0;
}
/*****************************************************************************
-* Note: we do not check NaNs in A since the goal of this subroutine is to
-* initialized A. It is OK if A has NaNs in input.
+* Note: we do not check NaNs in A since the goal of this subroutine is to
+* initialized A. It is OK if A has NaNs in input.
*****************************************************************************/
else {
ldwork = m;
work_size = MAX(1,ldwork) * MAX(1,k);
- }
-
+ }
+
/* Allocate memory for working array(s) */
work = (lapack_complex_double*)
- LAPACKE_malloc( sizeof(lapack_complex_double) * work_size );
+ LAPACKE_malloc( sizeof(lapack_complex_double) * work_size );
if( work == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR;
goto exit_level_0;
goto exit_level_0;
}
/* Query optimal working array(s) size */
- info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
+ info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
ldu2, v1t, ldv1t, &work_query,
lwork, &rwork_query, lrwork, iwork );
goto exit_level_2;
}
/* Call middle-level interface */
- info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
+ info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
ldu2, v1t, ldv1t, work, lwork, rwork, lrwork, iwork );
/* Release memory and exit */
lapack_int q, lapack_complex_double* x11, lapack_int ldx11,
lapack_complex_double* x21, lapack_int ldx21,
double* theta, lapack_complex_double* u1,
- lapack_int ldu1, lapack_complex_double* u2,
+ lapack_int ldu1, lapack_complex_double* u2,
lapack_int ldu2, lapack_complex_double* v1t,
- lapack_int ldv1t, lapack_complex_double* work,
+ lapack_int ldv1t, lapack_complex_double* work,
lapack_int lwork, double* rwork, lapack_int lrwork,
lapack_int* iwork )
{
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_zuncsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p,
- &q, x11, &ldx11, x21, &ldx21,
- theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
+ &q, x11, &ldx11, x21, &ldx21,
+ theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
work, &lwork, rwork, &lrwork, iwork, &info );
if( info < 0 ) {
info = info - 1;
projects / platform / upstream / lapack.git / commitdiff