diff options
| author | Hans Johnson <hans-johnson@uiowa.edu> | 2016-07-09 10:53:01 -0500 |
|---|---|---|
| committer | Hans Johnson <hans-johnson@uiowa.edu> | 2016-07-09 10:53:07 -0500 |
| commit | 78d32fd2a6d030d388981f096014c764ff7898f5 (patch) | |
| tree | e4ea803bffff2515d0af4f38dcac6c50d77d5cb1 | |
| parent | f8fb0842d55c34ad2c26da58e9f55a3f10e52d0b (diff) | |
| download | lapack-78d32fd2a6d030d388981f096014c764ff7898f5.tar.gz lapack-78d32fd2a6d030d388981f096014c764ff7898f5.tar.bz2 lapack-78d32fd2a6d030d388981f096014c764ff7898f5.zip | |
STYLE: Remove trailing whitespace in C files
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
=================================================
215 files changed, 1966 insertions, 1966 deletions
diff --git a/CBLAS/examples/cblas_example1.c b/CBLAS/examples/cblas_example1.c index 0b0cc6c6..c3acd554 100644 --- a/CBLAS/examples/cblas_example1.c +++ b/CBLAS/examples/cblas_example1.c @@ -39,7 +39,7 @@ int main ( ) 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 */ @@ -47,7 +47,7 @@ int main ( ) 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; @@ -56,11 +56,11 @@ int main ( ) 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); diff --git a/CBLAS/examples/cblas_example2.c b/CBLAS/examples/cblas_example2.c index d3b35f2e..d2c28d53 100644 --- a/CBLAS/examples/cblas_example2.c +++ b/CBLAS/examples/cblas_example2.c @@ -10,16 +10,16 @@ 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"); @@ -67,6 +67,6 @@ int main (int argc, char **argv ) &ALPHA, A, &lda, B, &ldb, &BETA, C, &ldc ); } } - + return 0; } diff --git a/CBLAS/include/cblas.h b/CBLAS/include/cblas.h index 7523a779..9e937964 100644 --- a/CBLAS/include/cblas.h +++ b/CBLAS/include/cblas.h @@ -88,39 +88,39 @@ CBLAS_INDEX cblas_izamax(const int N, const void *X, const int incX); * =========================================================================== */ -/* +/* * 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); @@ -138,7 +138,7 @@ void cblas_drotm(const int N, double *X, const int incX, 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); @@ -154,7 +154,7 @@ void cblas_zdscal(const int N, const double alpha, void *X, const int incX); * =========================================================================== */ -/* +/* * Routines with standard 4 prefixes (S, D, C, Z) */ void cblas_sgemv(const CBLAS_LAYOUT layout, @@ -169,11 +169,11 @@ void cblas_sgbmv(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, @@ -202,11 +202,11 @@ void cblas_dgbmv(CBLAS_LAYOUT layout, 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, @@ -235,11 +235,11 @@ void cblas_cgbmv(CBLAS_LAYOUT layout, 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, @@ -268,11 +268,11 @@ void cblas_zgbmv(CBLAS_LAYOUT layout, 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, @@ -290,7 +290,7 @@ void cblas_ztpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, 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, @@ -352,7 +352,7 @@ void cblas_dspr2(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, @@ -423,7 +423,7 @@ void cblas_zhpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const int N, * =========================================================================== */ -/* +/* * Routines with standard 4 prefixes (S, D, C, Z) */ void cblas_sgemm(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, @@ -547,7 +547,7 @@ void cblas_ztrsm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, void *B, const int ldb); -/* +/* * Routines with prefixes C and Z only */ void cblas_chemm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, diff --git a/CBLAS/include/cblas_f77.h b/CBLAS/include/cblas_f77.h index 8aa2c876..3035ab0b 100644 --- a/CBLAS/include/cblas_f77.h +++ b/CBLAS/include/cblas_f77.h @@ -201,7 +201,7 @@ void F77_xerbla(FCHAR, void *); /* 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); @@ -217,7 +217,7 @@ void F77_xerbla(FCHAR, void *); /* 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); @@ -278,8 +278,8 @@ void F77_xerbla(FCHAR, void *); 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 */ @@ -297,8 +297,8 @@ void F77_xerbla(FCHAR, void *); 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 */ diff --git a/CBLAS/src/cblas_caxpy.c b/CBLAS/src/cblas_caxpy.c index 7579aa70..73302faf 100644 --- a/CBLAS/src/cblas_caxpy.c +++ b/CBLAS/src/cblas_caxpy.c @@ -13,10 +13,10 @@ void cblas_caxpy( const int N, const void *alpha, const void *X, { #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); -} +} diff --git a/CBLAS/src/cblas_ccopy.c b/CBLAS/src/cblas_ccopy.c index b7bc4284..d8d23670 100644 --- a/CBLAS/src/cblas_ccopy.c +++ b/CBLAS/src/cblas_ccopy.c @@ -13,7 +13,7 @@ void cblas_ccopy( const int N, const void *X, { #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 diff --git a/CBLAS/src/cblas_cdotc_sub.c b/CBLAS/src/cblas_cdotc_sub.c index 97ac8dec..fca11cd0 100644 --- a/CBLAS/src/cblas_cdotc_sub.c +++ b/CBLAS/src/cblas_cdotc_sub.c @@ -14,7 +14,7 @@ void cblas_cdotc_sub( const int N, const void *X, const int incX, { #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 diff --git a/CBLAS/src/cblas_cdotu_sub.c b/CBLAS/src/cblas_cdotu_sub.c index 6d73d4b5..b92e08e5 100644 --- a/CBLAS/src/cblas_cdotu_sub.c +++ b/CBLAS/src/cblas_cdotu_sub.c @@ -14,7 +14,7 @@ void cblas_cdotu_sub( const int N, const void *X, const int incX, { #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 diff --git a/CBLAS/src/cblas_cgbmv.c b/CBLAS/src/cblas_cgbmv.c index 1ad497a7..6d0fa4f8 100644 --- a/CBLAS/src/cblas_cgbmv.c +++ b/CBLAS/src/cblas_cgbmv.c @@ -1,7 +1,7 @@ /* * cblas_cgbmv.c * The program is a C interface of cgbmv - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, #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; @@ -49,7 +49,7 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, 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; @@ -59,7 +59,7 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, #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) @@ -112,7 +112,7 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, tincY = -incY; y++; - + if (N > 0) { i = tincY << 1; @@ -127,9 +127,9 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, } else x = (float *) X; - + } - else + else { cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -140,10 +140,10 @@ void cblas_cgbmv(const CBLAS_LAYOUT layout, 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) { diff --git a/CBLAS/src/cblas_cgemm.c b/CBLAS/src/cblas_cgemm.c index d97d0330..a1fad4a0 100644 --- a/CBLAS/src/cblas_cgemm.c +++ b/CBLAS/src/cblas_cgemm.c @@ -15,12 +15,12 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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 @@ -45,7 +45,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -56,7 +56,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -77,7 +77,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -87,7 +87,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -101,7 +101,7 @@ void cblas_cgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; diff --git a/CBLAS/src/cblas_cgemv.c b/CBLAS/src/cblas_cgemv.c index 5eb70dda..57c9241e 100644 --- a/CBLAS/src/cblas_cgemv.c +++ b/CBLAS/src/cblas_cgemv.c @@ -1,7 +1,7 @@ /* * cblas_cgemv.c * The program is a C interface of cgemv - * + * * Keita Teranishi 5/20/98 * */ @@ -19,7 +19,7 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, #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; @@ -48,7 +48,7 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, 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; @@ -58,13 +58,13 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, #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) @@ -83,11 +83,11 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, 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 @@ -103,9 +103,9 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, F77_incX = 1; if(incY > 0) - tincY = incY; + tincY = incY; else - tincY = -incY; + tincY = -incY; y++; @@ -117,14 +117,14 @@ void cblas_cgemv(const CBLAS_LAYOUT layout, 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; diff --git a/CBLAS/src/cblas_cgerc.c b/CBLAS/src/cblas_cgerc.c index 1c8d7775..6d718be9 100644 --- a/CBLAS/src/cblas_cgerc.c +++ b/CBLAS/src/cblas_cgerc.c @@ -1,7 +1,7 @@ /* * cblas_cgerc.c * The program is a C interface to cgerc. - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_cgerc(const CBLAS_LAYOUT layout, const int M, const int N, #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; @@ -33,9 +33,9 @@ void cblas_cgerc(const CBLAS_LAYOUT layout, const int M, const int N, 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) @@ -48,11 +48,11 @@ void cblas_cgerc(const CBLAS_LAYOUT layout, const int M, const int N, 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 { @@ -72,7 +72,7 @@ void cblas_cgerc(const CBLAS_LAYOUT layout, const int M, const int N, } 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); diff --git a/CBLAS/src/cblas_cgeru.c b/CBLAS/src/cblas_cgeru.c index b2a534fc..bb0671b6 100644 --- a/CBLAS/src/cblas_cgeru.c +++ b/CBLAS/src/cblas_cgeru.c @@ -1,7 +1,7 @@ /* * cblas_cgeru.c * The program is a C interface to cgeru. - * + * * Keita Teranishi 5/20/98 * */ @@ -35,7 +35,7 @@ void cblas_cgeru(const CBLAS_LAYOUT layout, const int M, const int N, 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); diff --git a/CBLAS/src/cblas_chbmv.c b/CBLAS/src/cblas_chbmv.c index e5058f1e..e2ac98d0 100644 --- a/CBLAS/src/cblas_chbmv.c +++ b/CBLAS/src/cblas_chbmv.c @@ -1,7 +1,7 @@ /* * cblas_chbmv.c * The program is a C interface to chbmv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, #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; @@ -44,7 +44,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, { 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; @@ -54,7 +54,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, #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) @@ -69,7 +69,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(float)); - + tx = x; if( incX > 0 ) { i = incX << 1 ; @@ -98,7 +98,7 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -114,11 +114,11 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, } 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; @@ -128,10 +128,10 @@ void cblas_chbmv(const CBLAS_LAYOUT layout, #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; diff --git a/CBLAS/src/cblas_chemm.c b/CBLAS/src/cblas_chemm.c index 91fbcbe4..7d500dfc 100644 --- a/CBLAS/src/cblas_chemm.c +++ b/CBLAS/src/cblas_chemm.c @@ -15,12 +15,12 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -43,7 +43,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -53,7 +53,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -66,14 +66,14 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -83,7 +83,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -98,7 +98,7 @@ void cblas_chemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; diff --git a/CBLAS/src/cblas_chemv.c b/CBLAS/src/cblas_chemv.c index 878be7af..ad6a6d05 100644 --- a/CBLAS/src/cblas_chemv.c +++ b/CBLAS/src/cblas_chemv.c @@ -1,7 +1,7 @@ /* * cblas_chemv.c * The program is a C interface to chemv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, #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; @@ -44,7 +44,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, { 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; @@ -54,7 +54,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, #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) @@ -69,7 +69,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(float)); - + tx = x; if( incX > 0 ) { i = incX << 1 ; @@ -98,7 +98,7 @@ void cblas_chemv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -116,10 +116,10 @@ void cblas_chemv(const CBLAS_LAYOUT layout, } 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; @@ -129,10 +129,10 @@ void cblas_chemv(const CBLAS_LAYOUT layout, #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; diff --git a/CBLAS/src/cblas_cher.c b/CBLAS/src/cblas_cher.c index 245fe5b1..c783073b 100644 --- a/CBLAS/src/cblas_cher.c +++ b/CBLAS/src/cblas_cher.c @@ -1,7 +1,7 @@ /* * cblas_cher.c * The program is a C interface to cher. - * + * * Keita Teranishi 5/20/98 * */ @@ -33,13 +33,13 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -57,7 +57,7 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -76,11 +76,11 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 { @@ -100,16 +100,16 @@ void cblas_cher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; diff --git a/CBLAS/src/cblas_cher2.c b/CBLAS/src/cblas_cher2.c index bdded3e1..4bab665b 100644 --- a/CBLAS/src/cblas_cher2.c +++ b/CBLAS/src/cblas_cher2.c @@ -1,7 +1,7 @@ /* * cblas_cher2.c * The program is a C interface to cher2. - * + * * Keita Teranishi 3/23/98 * */ @@ -29,19 +29,19 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -52,7 +52,7 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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) @@ -60,7 +60,7 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -74,29 +74,29 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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 @@ -127,14 +127,14 @@ void cblas_cher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_cher2k.c b/CBLAS/src/cblas_cher2k.c index 2fc77009..cae8c761 100644 --- a/CBLAS/src/cblas_cher2k.c +++ b/CBLAS/src/cblas_cher2k.c @@ -15,12 +15,12 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -36,7 +36,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, extern int CBLAS_CallFromC; extern int RowMajorStrg; - float ALPHA[2]; + float ALPHA[2]; const float *alp=(float *)alpha; CBLAS_CallFromC = 1; @@ -47,7 +47,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -58,7 +58,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -75,10 +75,10 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -88,7 +88,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -103,7 +103,7 @@ void cblas_cher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_cherk.c b/CBLAS/src/cblas_cherk.c index 5157d7bb..16a94db4 100644 --- a/CBLAS/src/cblas_cherk.c +++ b/CBLAS/src/cblas_cherk.c @@ -14,12 +14,12 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -41,7 +41,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -52,7 +52,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -72,7 +72,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -82,7 +82,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -97,7 +97,7 @@ void cblas_cherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_chpmv.c b/CBLAS/src/cblas_chpmv.c index 3b587e3a..8ec1cec9 100644 --- a/CBLAS/src/cblas_chpmv.c +++ b/CBLAS/src/cblas_chpmv.c @@ -1,7 +1,7 @@ /* * cblas_chpmv.c * The program is a C interface of chpmv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, #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; @@ -37,12 +37,12 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, 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; @@ -52,7 +52,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, #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) @@ -67,7 +67,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(float)); - + tx = x; if( incX > 0 ) { i = incX << 1; @@ -96,7 +96,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -117,7 +117,7 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, 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; @@ -128,17 +128,17 @@ void cblas_chpmv(const CBLAS_LAYOUT layout, 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) diff --git a/CBLAS/src/cblas_chpr.c b/CBLAS/src/cblas_chpr.c index 1797a8fd..82a108d1 100644 --- a/CBLAS/src/cblas_chpr.c +++ b/CBLAS/src/cblas_chpr.c @@ -1,7 +1,7 @@ /* * cblas_chpr.c * The program is a C interface to chpr. - * + * * Keita Teranishi 3/23/98 * */ @@ -32,13 +32,13 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -56,7 +56,7 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -75,11 +75,11 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 { @@ -100,7 +100,7 @@ void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_chpr2.c b/CBLAS/src/cblas_chpr2.c index c73168c7..5277f878 100644 --- a/CBLAS/src/cblas_chpr2.c +++ b/CBLAS/src/cblas_chpr2.c @@ -1,7 +1,7 @@ /* * cblas_chpr2.c * The program is a C interface to chpr2. - * + * * Keita Teranishi 5/20/98 * */ @@ -10,7 +10,7 @@ #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) { @@ -35,13 +35,13 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -59,7 +59,7 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -86,7 +86,7 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, stx = x-2; x +=(n-2); } - + if( incY > 0 ) { j = incY << 1; tincy = 2; @@ -97,7 +97,7 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, sty = y-2; y +=(n-2); } - + do { *x = *xx; @@ -114,10 +114,10 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, yy += j; } while (y != sty); - + x=tx; y=ty; - + #ifdef F77_INT F77_incX = 1; F77_incY = 1; @@ -126,13 +126,13 @@ void cblas_chpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_cscal.c b/CBLAS/src/cblas_cscal.c index 780d3124..904881f1 100644 --- a/CBLAS/src/cblas_cscal.c +++ b/CBLAS/src/cblas_cscal.c @@ -8,12 +8,12 @@ */ #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 diff --git a/CBLAS/src/cblas_csscal.c b/CBLAS/src/cblas_csscal.c index 39983fe0..117ed405 100644 --- a/CBLAS/src/cblas_csscal.c +++ b/CBLAS/src/cblas_csscal.c @@ -13,7 +13,7 @@ void cblas_csscal( const int N, const float alpha, void *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_cswap.c b/CBLAS/src/cblas_cswap.c index 12728207..738d35cf 100644 --- a/CBLAS/src/cblas_cswap.c +++ b/CBLAS/src/cblas_cswap.c @@ -13,7 +13,7 @@ void cblas_cswap( const int N, void *X, const int incX, void *Y, { #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 diff --git a/CBLAS/src/cblas_csymm.c b/CBLAS/src/cblas_csymm.c index 888b3253..d60ebb84 100644 --- a/CBLAS/src/cblas_csymm.c +++ b/CBLAS/src/cblas_csymm.c @@ -15,12 +15,12 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -43,7 +43,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -53,7 +53,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -73,7 +73,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -83,7 +83,7 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -98,9 +98,9 @@ void cblas_csymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; -} +} diff --git a/CBLAS/src/cblas_csyr2k.c b/CBLAS/src/cblas_csyr2k.c index f99caab6..4bbd417a 100644 --- a/CBLAS/src/cblas_csyr2k.c +++ b/CBLAS/src/cblas_csyr2k.c @@ -15,12 +15,12 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -44,7 +44,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -55,7 +55,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -76,7 +76,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -86,7 +86,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -100,7 +100,7 @@ void cblas_csyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; diff --git a/CBLAS/src/cblas_csyrk.c b/CBLAS/src/cblas_csyrk.c index 94809cec..26b745bd 100644 --- a/CBLAS/src/cblas_csyrk.c +++ b/CBLAS/src/cblas_csyrk.c @@ -14,12 +14,12 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -42,7 +42,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -53,7 +53,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -74,7 +74,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -84,7 +84,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,7 +99,7 @@ void cblas_csyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ctbmv.c b/CBLAS/src/cblas_ctbmv.c index f584bf6a..949e0743 100644 --- a/CBLAS/src/cblas_ctbmv.c +++ b/CBLAS/src/cblas_ctbmv.c @@ -1,7 +1,7 @@ /* * cblas_ctbmv.c * The program is a C interface to ctbmv. - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_ctbmv(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_K=K, F77_incX=incX; @@ -30,7 +30,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -41,7 +41,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -51,7 +51,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -60,7 +60,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -80,7 +80,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -112,7 +112,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ctbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ctbsv.c b/CBLAS/src/cblas_ctbsv.c index 97778f4c..12696e11 100644 --- a/CBLAS/src/cblas_ctbsv.c +++ b/CBLAS/src/cblas_ctbsv.c @@ -1,7 +1,7 @@ /* * cblas_ctbsv.c * The program is a C interface to ctbsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -20,7 +20,7 @@ void cblas_ctbsv(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_K=K, F77_incX=incX; @@ -30,7 +30,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -41,7 +41,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -51,7 +51,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -60,7 +60,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -80,7 +80,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,9 +99,9 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); - + x++; st=x+n; @@ -116,7 +116,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -126,7 +126,7 @@ void cblas_ctbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ctpmv.c b/CBLAS/src/cblas_ctpmv.c index 6f12c96a..3f73172b 100644 --- a/CBLAS/src/cblas_ctpmv.c +++ b/CBLAS/src/cblas_ctpmv.c @@ -1,7 +1,7 @@ /* * cblas_ctpmv.c * The program is a C interface to ctpmv. - * + * * Keita Teranishi 5/20/98 * */ @@ -19,7 +19,7 @@ void cblas_ctpmv(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_incX=incX; @@ -27,7 +27,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -38,7 +38,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -48,7 +48,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -57,7 +57,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -76,7 +76,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -108,7 +108,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -118,7 +118,7 @@ void cblas_ctpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ctpsv.c b/CBLAS/src/cblas_ctpsv.c index 808827e9..4791e20f 100644 --- a/CBLAS/src/cblas_ctpsv.c +++ b/CBLAS/src/cblas_ctpsv.c @@ -1,7 +1,7 @@ /* * cblas_ctpsv.c * The program is a C interface to ctpsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -19,7 +19,7 @@ void cblas_ctpsv(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_incX=incX; @@ -27,7 +27,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -38,7 +38,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -48,7 +48,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -57,7 +57,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -76,7 +76,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -95,9 +95,9 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); - + x++; st=x+n; @@ -112,7 +112,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ctpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ctrmm.c b/CBLAS/src/cblas_ctrmm.c index 0407a682..7a7ab362 100644 --- a/CBLAS/src/cblas_ctrmm.c +++ b/CBLAS/src/cblas_ctrmm.c @@ -15,12 +15,12 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -43,7 +43,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -52,7 +52,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } 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; @@ -63,7 +63,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -73,7 +73,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -89,7 +89,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -99,7 +99,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -110,7 +110,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -120,7 +120,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -136,7 +136,7 @@ void cblas_ctrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, #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; diff --git a/CBLAS/src/cblas_ctrmv.c b/CBLAS/src/cblas_ctrmv.c index cc87f754..447f7081 100644 --- a/CBLAS/src/cblas_ctrmv.c +++ b/CBLAS/src/cblas_ctrmv.c @@ -1,7 +1,7 @@ /* * cblas_ctrmv.c * The program is a C interface to ctrmv. - * + * * Keita Teranishi 3/23/98 * */ @@ -21,7 +21,7 @@ void cblas_ctrmv(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; @@ -30,7 +30,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -41,7 +41,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -51,7 +51,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -60,7 +60,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -80,7 +80,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -111,7 +111,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -121,7 +121,7 @@ void cblas_ctrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ctrsm.c b/CBLAS/src/cblas_ctrsm.c index 51218832..a95b28d6 100644 --- a/CBLAS/src/cblas_ctrsm.c +++ b/CBLAS/src/cblas_ctrsm.c @@ -44,7 +44,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -54,7 +54,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -65,7 +65,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -75,7 +75,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -98,7 +98,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -108,7 +108,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -119,7 +119,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -129,7 +129,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -147,7 +147,7 @@ void cblas_ctrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; diff --git a/CBLAS/src/cblas_ctrsv.c b/CBLAS/src/cblas_ctrsv.c index fb3a8fc2..cd10f778 100644 --- a/CBLAS/src/cblas_ctrsv.c +++ b/CBLAS/src/cblas_ctrsv.c @@ -1,7 +1,7 @@ /* * cblas_ctrsv.c * The program is a C interface to ctrsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -20,7 +20,7 @@ void cblas_ctrsv(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; @@ -29,7 +29,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -40,7 +40,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -50,7 +50,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -59,7 +59,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -79,7 +79,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -98,10 +98,10 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); x++; - st=x+n; + st=x+n; i = tincX << 1; do { @@ -112,7 +112,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ctrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_dasum.c b/CBLAS/src/cblas_dasum.c index 1a3667f2..dbd224a9 100644 --- a/CBLAS/src/cblas_dasum.c +++ b/CBLAS/src/cblas_dasum.c @@ -9,12 +9,12 @@ */ #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 diff --git a/CBLAS/src/cblas_daxpy.c b/CBLAS/src/cblas_daxpy.c index 3678137f..fdbf982f 100644 --- a/CBLAS/src/cblas_daxpy.c +++ b/CBLAS/src/cblas_daxpy.c @@ -13,10 +13,10 @@ void cblas_daxpy( const int N, const double alpha, const double *X, { #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); -} +} diff --git a/CBLAS/src/cblas_dcopy.c b/CBLAS/src/cblas_dcopy.c index 422a55e5..b3bb82b6 100644 --- a/CBLAS/src/cblas_dcopy.c +++ b/CBLAS/src/cblas_dcopy.c @@ -13,7 +13,7 @@ void cblas_dcopy( const int N, const double *X, { #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 diff --git a/CBLAS/src/cblas_ddot.c b/CBLAS/src/cblas_ddot.c index d7734340..650bc76e 100644 --- a/CBLAS/src/cblas_ddot.c +++ b/CBLAS/src/cblas_ddot.c @@ -15,11 +15,11 @@ double cblas_ddot( const int N, const double *X, 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; -} +} diff --git a/CBLAS/src/cblas_dgbmv.c b/CBLAS/src/cblas_dgbmv.c index 1cc30541..11119025 100644 --- a/CBLAS/src/cblas_dgbmv.c +++ b/CBLAS/src/cblas_dgbmv.c @@ -19,7 +19,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, #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; @@ -43,7 +43,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, 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; @@ -53,7 +53,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, #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) @@ -62,7 +62,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, 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; @@ -72,7 +72,7 @@ void cblas_dgbmv(const CBLAS_LAYOUT layout, #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); diff --git a/CBLAS/src/cblas_dgemm.c b/CBLAS/src/cblas_dgemm.c index e37f4092..5f525dde 100644 --- a/CBLAS/src/cblas_dgemm.c +++ b/CBLAS/src/cblas_dgemm.c @@ -15,12 +15,12 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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 @@ -45,7 +45,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -56,7 +56,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -77,7 +77,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -87,7 +87,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -101,7 +101,7 @@ void cblas_dgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; diff --git a/CBLAS/src/cblas_dgemv.c b/CBLAS/src/cblas_dgemv.c index 65968ace..a3f060ae 100644 --- a/CBLAS/src/cblas_dgemv.c +++ b/CBLAS/src/cblas_dgemv.c @@ -18,7 +18,7 @@ void cblas_dgemv(const CBLAS_LAYOUT layout, #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; @@ -39,7 +39,7 @@ void cblas_dgemv(const CBLAS_LAYOUT layout, 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; @@ -49,7 +49,7 @@ void cblas_dgemv(const CBLAS_LAYOUT layout, #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) @@ -58,7 +58,7 @@ void cblas_dgemv(const CBLAS_LAYOUT layout, 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; diff --git a/CBLAS/src/cblas_dger.c b/CBLAS/src/cblas_dger.c index 3b89f67f..d5365377 100644 --- a/CBLAS/src/cblas_dger.c +++ b/CBLAS/src/cblas_dger.c @@ -30,13 +30,13 @@ void cblas_dger(const CBLAS_LAYOUT layout, const int M, const int N, 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); } diff --git a/CBLAS/src/cblas_dnrm2.c b/CBLAS/src/cblas_dnrm2.c index fe46ad48..99f8368d 100644 --- a/CBLAS/src/cblas_dnrm2.c +++ b/CBLAS/src/cblas_dnrm2.c @@ -9,12 +9,12 @@ */ #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 diff --git a/CBLAS/src/cblas_drot.c b/CBLAS/src/cblas_drot.c index 51dc4ad5..ec1887ab 100644 --- a/CBLAS/src/cblas_drot.c +++ b/CBLAS/src/cblas_drot.c @@ -14,9 +14,9 @@ void cblas_drot(const int N, double *X, const int incX, #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; diff --git a/CBLAS/src/cblas_drotg.c b/CBLAS/src/cblas_drotg.c index 0cbbd8bc..a433f484 100644 --- a/CBLAS/src/cblas_drotg.c +++ b/CBLAS/src/cblas_drotg.c @@ -10,5 +10,5 @@ #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); } diff --git a/CBLAS/src/cblas_drotm.c b/CBLAS/src/cblas_drotm.c index ebe20ad6..26ee5333 100644 --- a/CBLAS/src/cblas_drotm.c +++ b/CBLAS/src/cblas_drotm.c @@ -1,6 +1,6 @@ #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 @@ -11,4 +11,4 @@ void cblas_drotm( const int N, double *X, const int incX, double *Y, #define F77_incY incY #endif F77_drotm( &F77_N, X, &F77_incX, Y, &F77_incY, P); -} +} diff --git a/CBLAS/src/cblas_drotmg.c b/CBLAS/src/cblas_drotmg.c index 13a2208e..ad33ba4f 100644 --- a/CBLAS/src/cblas_drotmg.c +++ b/CBLAS/src/cblas_drotmg.c @@ -8,7 +8,7 @@ */ #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); diff --git a/CBLAS/src/cblas_dsbmv.c b/CBLAS/src/cblas_dsbmv.c index 78f11422..84c7c1a5 100644 --- a/CBLAS/src/cblas_dsbmv.c +++ b/CBLAS/src/cblas_dsbmv.c @@ -19,7 +19,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, #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; @@ -39,7 +39,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, { 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; @@ -49,7 +49,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, #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) @@ -57,7 +57,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, 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; @@ -67,7 +67,7 @@ void cblas_dsbmv(const CBLAS_LAYOUT layout, #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); diff --git a/CBLAS/src/cblas_dscal.c b/CBLAS/src/cblas_dscal.c index bd04de77..cef902af 100644 --- a/CBLAS/src/cblas_dscal.c +++ b/CBLAS/src/cblas_dscal.c @@ -8,12 +8,12 @@ */ #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 diff --git a/CBLAS/src/cblas_dsdot.c b/CBLAS/src/cblas_dsdot.c index 52cd877a..ef776e4b 100644 --- a/CBLAS/src/cblas_dsdot.c +++ b/CBLAS/src/cblas_dsdot.c @@ -15,11 +15,11 @@ double cblas_dsdot( const int N, const float *X, 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; -} +} diff --git a/CBLAS/src/cblas_dspmv.c b/CBLAS/src/cblas_dspmv.c index 75128664..e0e9a320 100644 --- a/CBLAS/src/cblas_dspmv.c +++ b/CBLAS/src/cblas_dspmv.c @@ -6,7 +6,7 @@ * 4/6/1998 * */ - + #include "cblas.h" #include "cblas_f77.h" @@ -20,7 +20,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, #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; @@ -38,7 +38,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, { 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; @@ -48,7 +48,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, #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) @@ -56,7 +56,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, 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; @@ -66,7 +66,7 @@ void cblas_dspmv(const CBLAS_LAYOUT layout, #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); diff --git a/CBLAS/src/cblas_dspr.c b/CBLAS/src/cblas_dspr.c index fa1c4fbb..cb286a86 100644 --- a/CBLAS/src/cblas_dspr.c +++ b/CBLAS/src/cblas_dspr.c @@ -34,7 +34,7 @@ void cblas_dspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -47,12 +47,12 @@ void cblas_dspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -61,8 +61,8 @@ void cblas_dspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #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; diff --git a/CBLAS/src/cblas_dspr2.c b/CBLAS/src/cblas_dspr2.c index 36eeaf97..c4560642 100644 --- a/CBLAS/src/cblas_dspr2.c +++ b/CBLAS/src/cblas_dspr2.c @@ -34,7 +34,7 @@ void cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -47,12 +47,12 @@ void cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -61,8 +61,8 @@ void cblas_dspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #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; diff --git a/CBLAS/src/cblas_dswap.c b/CBLAS/src/cblas_dswap.c index 9ae5bb93..bf78fcf9 100644 --- a/CBLAS/src/cblas_dswap.c +++ b/CBLAS/src/cblas_dswap.c @@ -13,7 +13,7 @@ void cblas_dswap( const int N, double *X, const int incX, double *Y, { #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 diff --git a/CBLAS/src/cblas_dsymm.c b/CBLAS/src/cblas_dsymm.c index 03f65a89..457a95fc 100644 --- a/CBLAS/src/cblas_dsymm.c +++ b/CBLAS/src/cblas_dsymm.c @@ -15,12 +15,12 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -43,7 +43,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -53,7 +53,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -73,7 +73,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -83,7 +83,7 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -98,9 +98,9 @@ void cblas_dsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; -} +} diff --git a/CBLAS/src/cblas_dsymv.c b/CBLAS/src/cblas_dsymv.c index 3bda0a17..e31c7749 100644 --- a/CBLAS/src/cblas_dsymv.c +++ b/CBLAS/src/cblas_dsymv.c @@ -19,7 +19,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, #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; @@ -38,7 +38,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, { 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; @@ -48,7 +48,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, #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) @@ -56,7 +56,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, 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; @@ -66,7 +66,7 @@ void cblas_dsymv(const CBLAS_LAYOUT layout, #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); diff --git a/CBLAS/src/cblas_dsyr.c b/CBLAS/src/cblas_dsyr.c index aa1e43c4..bc4a1e83 100644 --- a/CBLAS/src/cblas_dsyr.c +++ b/CBLAS/src/cblas_dsyr.c @@ -35,7 +35,7 @@ void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -48,12 +48,12 @@ void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -62,10 +62,10 @@ void cblas_dsyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #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; -} +} diff --git a/CBLAS/src/cblas_dsyr2.c b/CBLAS/src/cblas_dsyr2.c index 601e6698..4607c7a4 100644 --- a/CBLAS/src/cblas_dsyr2.c +++ b/CBLAS/src/cblas_dsyr2.c @@ -38,7 +38,7 @@ void cblas_dsyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -49,15 +49,15 @@ void cblas_dsyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -66,9 +66,9 @@ void cblas_dsyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #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; diff --git a/CBLAS/src/cblas_dsyr2k.c b/CBLAS/src/cblas_dsyr2k.c index bf214deb..9e921201 100644 --- a/CBLAS/src/cblas_dsyr2k.c +++ b/CBLAS/src/cblas_dsyr2k.c @@ -15,12 +15,12 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -44,7 +44,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -55,7 +55,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -76,7 +76,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -86,7 +86,7 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,9 +99,9 @@ void cblas_dsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_dsyrk.c b/CBLAS/src/cblas_dsyrk.c index 2d2dfe6a..d98b4705 100644 --- a/CBLAS/src/cblas_dsyrk.c +++ b/CBLAS/src/cblas_dsyrk.c @@ -14,12 +14,12 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -42,7 +42,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -53,7 +53,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -74,7 +74,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -84,7 +84,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,7 +99,7 @@ void cblas_dsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_dtbmv.c b/CBLAS/src/cblas_dtbmv.c index 08caef47..6438651a 100644 --- a/CBLAS/src/cblas_dtbmv.c +++ b/CBLAS/src/cblas_dtbmv.c @@ -20,7 +20,7 @@ void cblas_dtbmv(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_K=K, F77_incX=incX; @@ -39,7 +39,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -49,7 +49,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -58,7 +58,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -78,7 +78,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -89,7 +89,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,7 +99,7 @@ void cblas_dtbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_dtbsv.c b/CBLAS/src/cblas_dtbsv.c index 275889c8..eac77055 100644 --- a/CBLAS/src/cblas_dtbsv.c +++ b/CBLAS/src/cblas_dtbsv.c @@ -20,7 +20,7 @@ void cblas_dtbsv(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_K=K, F77_incX=incX; @@ -39,7 +39,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -49,7 +49,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -58,7 +58,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -78,7 +78,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -89,7 +89,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,7 +99,7 @@ void cblas_dtbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_dtpmv.c b/CBLAS/src/cblas_dtpmv.c index d18f7f35..6946d984 100644 --- a/CBLAS/src/cblas_dtpmv.c +++ b/CBLAS/src/cblas_dtpmv.c @@ -19,7 +19,7 @@ void cblas_dtpmv(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_incX=incX; @@ -36,7 +36,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -46,7 +46,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -55,7 +55,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -74,7 +74,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -85,7 +85,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -95,7 +95,7 @@ void cblas_dtpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_dtpsv.c b/CBLAS/src/cblas_dtpsv.c index ef30807e..b2947676 100644 --- a/CBLAS/src/cblas_dtpsv.c +++ b/CBLAS/src/cblas_dtpsv.c @@ -19,7 +19,7 @@ void cblas_dtpsv(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_incX=incX; @@ -36,7 +36,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -46,7 +46,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -55,7 +55,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -74,7 +74,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -85,7 +85,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -95,7 +95,7 @@ void cblas_dtpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_dtrmm.c b/CBLAS/src/cblas_dtrmm.c index 76bba298..6ee79e42 100644 --- a/CBLAS/src/cblas_dtrmm.c +++ b/CBLAS/src/cblas_dtrmm.c @@ -15,12 +15,12 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -43,7 +43,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -52,7 +52,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } 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; @@ -63,7 +63,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -73,7 +73,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -94,7 +94,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -104,7 +104,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -115,7 +115,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -125,7 +125,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -140,7 +140,7 @@ void cblas_dtrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; diff --git a/CBLAS/src/cblas_dtrmv.c b/CBLAS/src/cblas_dtrmv.c index 1a6dc590..18c49214 100644 --- a/CBLAS/src/cblas_dtrmv.c +++ b/CBLAS/src/cblas_dtrmv.c @@ -6,7 +6,7 @@ * 4/6/1998 * */ - + #include "cblas.h" #include "cblas_f77.h" void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, @@ -23,7 +23,7 @@ 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; @@ -41,7 +41,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -51,7 +51,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -60,7 +60,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -80,7 +80,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -91,7 +91,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -101,7 +101,7 @@ void cblas_dtrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_dtrsm.c b/CBLAS/src/cblas_dtrsm.c index 21f94476..47396020 100644 --- a/CBLAS/src/cblas_dtrsm.c +++ b/CBLAS/src/cblas_dtrsm.c @@ -16,12 +16,12 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -44,7 +44,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -53,7 +53,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } 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; @@ -64,7 +64,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -74,7 +74,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -91,13 +91,13 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -107,7 +107,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -118,7 +118,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -128,7 +128,7 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -143,9 +143,9 @@ void cblas_dtrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; diff --git a/CBLAS/src/cblas_dtrsv.c b/CBLAS/src/cblas_dtrsv.c index 21c791fd..c0a51c10 100644 --- a/CBLAS/src/cblas_dtrsv.c +++ b/CBLAS/src/cblas_dtrsv.c @@ -21,7 +21,7 @@ void cblas_dtrsv(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; @@ -39,7 +39,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -49,7 +49,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -58,7 +58,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -78,7 +78,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -89,7 +89,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,7 +99,7 @@ void cblas_dtrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_dzasum.c b/CBLAS/src/cblas_dzasum.c index b32f573e..a120e00f 100644 --- a/CBLAS/src/cblas_dzasum.c +++ b/CBLAS/src/cblas_dzasum.c @@ -9,12 +9,12 @@ */ #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 diff --git a/CBLAS/src/cblas_dznrm2.c b/CBLAS/src/cblas_dznrm2.c index dfa2bfc8..e44db340 100644 --- a/CBLAS/src/cblas_dznrm2.c +++ b/CBLAS/src/cblas_dznrm2.c @@ -9,12 +9,12 @@ */ #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 diff --git a/CBLAS/src/cblas_icamax.c b/CBLAS/src/cblas_icamax.c index 52f1db61..0fe5625d 100644 --- a/CBLAS/src/cblas_icamax.c +++ b/CBLAS/src/cblas_icamax.c @@ -14,7 +14,7 @@ CBLAS_INDEX cblas_icamax( const int N, const void *X, const int incX) 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 diff --git a/CBLAS/src/cblas_idamax.c b/CBLAS/src/cblas_idamax.c index 07008ef4..e0c4cd88 100644 --- a/CBLAS/src/cblas_idamax.c +++ b/CBLAS/src/cblas_idamax.c @@ -14,7 +14,7 @@ CBLAS_INDEX cblas_idamax( const int N, const double *X, const int incX) 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 diff --git a/CBLAS/src/cblas_isamax.c b/CBLAS/src/cblas_isamax.c index 507eb923..e2f3fd86 100644 --- a/CBLAS/src/cblas_isamax.c +++ b/CBLAS/src/cblas_isamax.c @@ -14,7 +14,7 @@ CBLAS_INDEX cblas_isamax( const int N, const float *X, const int incX) 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 diff --git a/CBLAS/src/cblas_izamax.c b/CBLAS/src/cblas_izamax.c index 36237498..4370d942 100644 --- a/CBLAS/src/cblas_izamax.c +++ b/CBLAS/src/cblas_izamax.c @@ -14,7 +14,7 @@ CBLAS_INDEX cblas_izamax( const int N, const void *X, const int incX) 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 diff --git a/CBLAS/src/cblas_sasum.c b/CBLAS/src/cblas_sasum.c index 7d4c32cf..042939af 100644 --- a/CBLAS/src/cblas_sasum.c +++ b/CBLAS/src/cblas_sasum.c @@ -9,12 +9,12 @@ */ #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 diff --git a/CBLAS/src/cblas_saxpy.c b/CBLAS/src/cblas_saxpy.c index 2eee8e06..baf17a54 100644 --- a/CBLAS/src/cblas_saxpy.c +++ b/CBLAS/src/cblas_saxpy.c @@ -14,10 +14,10 @@ void cblas_saxpy( const int N, const float alpha, const float *X, { #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); -} +} diff --git a/CBLAS/src/cblas_scasum.c b/CBLAS/src/cblas_scasum.c index e1fa5309..1f5b7d40 100644 --- a/CBLAS/src/cblas_scasum.c +++ b/CBLAS/src/cblas_scasum.c @@ -9,12 +9,12 @@ */ #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 diff --git a/CBLAS/src/cblas_scnrm2.c b/CBLAS/src/cblas_scnrm2.c index fa48454e..c05b338c 100644 --- a/CBLAS/src/cblas_scnrm2.c +++ b/CBLAS/src/cblas_scnrm2.c @@ -9,12 +9,12 @@ */ #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 diff --git a/CBLAS/src/cblas_scopy.c b/CBLAS/src/cblas_scopy.c index 7796959f..1424391f 100644 --- a/CBLAS/src/cblas_scopy.c +++ b/CBLAS/src/cblas_scopy.c @@ -13,7 +13,7 @@ void cblas_scopy( const int N, const float *X, { #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 diff --git a/CBLAS/src/cblas_sdot.c b/CBLAS/src/cblas_sdot.c index baf85927..218914af 100644 --- a/CBLAS/src/cblas_sdot.c +++ b/CBLAS/src/cblas_sdot.c @@ -15,11 +15,11 @@ float cblas_sdot( const int N, const float *X, 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; -} +} diff --git a/CBLAS/src/cblas_sdsdot.c b/CBLAS/src/cblas_sdsdot.c index b824849b..65741aff 100644 --- a/CBLAS/src/cblas_sdsdot.c +++ b/CBLAS/src/cblas_sdsdot.c @@ -15,11 +15,11 @@ float cblas_sdsdot( const int N, const float alpha, const float *X, 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; -} +} diff --git a/CBLAS/src/cblas_sgbmv.c b/CBLAS/src/cblas_sgbmv.c index 30f9311f..0557c10b 100644 --- a/CBLAS/src/cblas_sgbmv.c +++ b/CBLAS/src/cblas_sgbmv.c @@ -20,7 +20,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, #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; @@ -44,7 +44,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, 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; @@ -54,7 +54,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, #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) @@ -63,7 +63,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, 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; @@ -73,7 +73,7 @@ void cblas_sgbmv(const CBLAS_LAYOUT layout, #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); diff --git a/CBLAS/src/cblas_sgemm.c b/CBLAS/src/cblas_sgemm.c index c7f7673c..c4a49a2d 100644 --- a/CBLAS/src/cblas_sgemm.c +++ b/CBLAS/src/cblas_sgemm.c @@ -15,12 +15,12 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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 @@ -34,7 +34,7 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, #define F77_ldb ldb #define F77_ldc ldc #endif - + extern int CBLAS_CallFromC; extern int RowMajorStrg; RowMajorStrg = 0; @@ -44,9 +44,9 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -56,9 +56,9 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -77,9 +77,9 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -88,9 +88,9 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -102,7 +102,7 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, #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; diff --git a/CBLAS/src/cblas_sgemv.c b/CBLAS/src/cblas_sgemv.c index 64a7c1e9..b2c2969b 100644 --- a/CBLAS/src/cblas_sgemv.c +++ b/CBLAS/src/cblas_sgemv.c @@ -4,7 +4,7 @@ * This program is a C interface to sgemv. * Written by Keita Teranishi * 4/6/1998 - * + * */ #include "cblas.h" #include "cblas_f77.h" @@ -18,7 +18,7 @@ void cblas_sgemv(const CBLAS_LAYOUT layout, #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; @@ -40,7 +40,7 @@ void cblas_sgemv(const CBLAS_LAYOUT layout, 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; @@ -49,7 +49,7 @@ void cblas_sgemv(const CBLAS_LAYOUT layout, #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) @@ -58,7 +58,7 @@ void cblas_sgemv(const CBLAS_LAYOUT layout, 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; diff --git a/CBLAS/src/cblas_sger.c b/CBLAS/src/cblas_sger.c index 40f09f92..4726c861 100644 --- a/CBLAS/src/cblas_sger.c +++ b/CBLAS/src/cblas_sger.c @@ -36,7 +36,7 @@ void cblas_sger(const CBLAS_LAYOUT layout, const int M, const int N, 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); diff --git a/CBLAS/src/cblas_snrm2.c b/CBLAS/src/cblas_snrm2.c index 18161b4f..6b015a0c 100644 --- a/CBLAS/src/cblas_snrm2.c +++ b/CBLAS/src/cblas_snrm2.c @@ -9,12 +9,12 @@ */ #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 diff --git a/CBLAS/src/cblas_srot.c b/CBLAS/src/cblas_srot.c index cbd1c8c9..6619abd9 100644 --- a/CBLAS/src/cblas_srot.c +++ b/CBLAS/src/cblas_srot.c @@ -8,7 +8,7 @@ */ #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 @@ -19,4 +19,4 @@ void cblas_srot( const int N, float *X, const int incX, float *Y, #define F77_incY incY #endif F77_srot(&F77_N, X, &F77_incX, Y, &F77_incY, &c, &s); -} +} diff --git a/CBLAS/src/cblas_srotg.c b/CBLAS/src/cblas_srotg.c index f6460048..4584a29c 100644 --- a/CBLAS/src/cblas_srotg.c +++ b/CBLAS/src/cblas_srotg.c @@ -10,5 +10,5 @@ #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); } diff --git a/CBLAS/src/cblas_srotm.c b/CBLAS/src/cblas_srotm.c index 49674645..52fae4d9 100644 --- a/CBLAS/src/cblas_srotm.c +++ b/CBLAS/src/cblas_srotm.c @@ -8,7 +8,7 @@ */ #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 @@ -19,4 +19,4 @@ void cblas_srotm( const int N, float *X, const int incX, float *Y, #define F77_incY incY #endif F77_srotm( &F77_N, X, &F77_incX, Y, &F77_incY, P); -} +} diff --git a/CBLAS/src/cblas_srotmg.c b/CBLAS/src/cblas_srotmg.c index 04f978b4..1d84054a 100644 --- a/CBLAS/src/cblas_srotmg.c +++ b/CBLAS/src/cblas_srotmg.c @@ -8,7 +8,7 @@ */ #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); diff --git a/CBLAS/src/cblas_ssbmv.c b/CBLAS/src/cblas_ssbmv.c index 055d94e9..9a035cd9 100644 --- a/CBLAS/src/cblas_ssbmv.c +++ b/CBLAS/src/cblas_ssbmv.c @@ -17,7 +17,7 @@ void cblas_ssbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #ifdef F77_CHAR F77_CHAR F77_UL; #else - #define F77_UL &UL + #define F77_UL &UL #endif #ifdef F77_INT @@ -36,10 +36,10 @@ void cblas_ssbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -56,7 +56,7 @@ void cblas_ssbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_sscal.c b/CBLAS/src/cblas_sscal.c index 1f09abe7..6c047766 100644 --- a/CBLAS/src/cblas_sscal.c +++ b/CBLAS/src/cblas_sscal.c @@ -8,12 +8,12 @@ */ #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 diff --git a/CBLAS/src/cblas_sspmv.c b/CBLAS/src/cblas_sspmv.c index 93ef0697..3fddd38a 100644 --- a/CBLAS/src/cblas_sspmv.c +++ b/CBLAS/src/cblas_sspmv.c @@ -18,7 +18,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, #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; @@ -36,7 +36,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, { 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; @@ -46,7 +46,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, #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) @@ -54,7 +54,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, 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; @@ -64,7 +64,7 @@ void cblas_sspmv(const CBLAS_LAYOUT layout, #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); diff --git a/CBLAS/src/cblas_sspr.c b/CBLAS/src/cblas_sspr.c index 0464dcd6..00ac6f99 100644 --- a/CBLAS/src/cblas_sspr.c +++ b/CBLAS/src/cblas_sspr.c @@ -36,7 +36,7 @@ void cblas_sspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -49,12 +49,12 @@ void cblas_sspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -63,8 +63,8 @@ void cblas_sspr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #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; diff --git a/CBLAS/src/cblas_sspr2.c b/CBLAS/src/cblas_sspr2.c index 0bf5cc61..1d9be4f5 100644 --- a/CBLAS/src/cblas_sspr2.c +++ b/CBLAS/src/cblas_sspr2.c @@ -36,7 +36,7 @@ void cblas_sspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -49,12 +49,12 @@ void cblas_sspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -63,8 +63,8 @@ void cblas_sspr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #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; diff --git a/CBLAS/src/cblas_sswap.c b/CBLAS/src/cblas_sswap.c index b74d8469..3759a0f5 100644 --- a/CBLAS/src/cblas_sswap.c +++ b/CBLAS/src/cblas_sswap.c @@ -13,7 +13,7 @@ void cblas_sswap( const int N, float *X, const int incX, float *Y, { #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 diff --git a/CBLAS/src/cblas_ssymm.c b/CBLAS/src/cblas_ssymm.c index 1b0bd966..d1943209 100644 --- a/CBLAS/src/cblas_ssymm.c +++ b/CBLAS/src/cblas_ssymm.c @@ -15,12 +15,12 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -43,9 +43,9 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -54,9 +54,9 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -74,9 +74,9 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -85,9 +85,9 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -105,4 +105,4 @@ void cblas_ssymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, CBLAS_CallFromC = 0; RowMajorStrg = 0; return; -} +} diff --git a/CBLAS/src/cblas_ssymv.c b/CBLAS/src/cblas_ssymv.c index 84b9eecb..c0dc682d 100644 --- a/CBLAS/src/cblas_ssymv.c +++ b/CBLAS/src/cblas_ssymv.c @@ -19,7 +19,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, #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; @@ -38,7 +38,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, { 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; @@ -48,7 +48,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, #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) @@ -56,7 +56,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, 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; @@ -66,7 +66,7 @@ void cblas_ssymv(const CBLAS_LAYOUT layout, #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); diff --git a/CBLAS/src/cblas_ssyr.c b/CBLAS/src/cblas_ssyr.c index d197fdcd..cc66f85c 100644 --- a/CBLAS/src/cblas_ssyr.c +++ b/CBLAS/src/cblas_ssyr.c @@ -34,7 +34,7 @@ void cblas_ssyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -47,12 +47,12 @@ void cblas_ssyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -61,10 +61,10 @@ void cblas_ssyr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #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; -} +} diff --git a/CBLAS/src/cblas_ssyr2.c b/CBLAS/src/cblas_ssyr2.c index a0fc86b0..0d314eb8 100644 --- a/CBLAS/src/cblas_ssyr2.c +++ b/CBLAS/src/cblas_ssyr2.c @@ -38,7 +38,7 @@ void cblas_ssyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -49,15 +49,15 @@ void cblas_ssyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -66,9 +66,9 @@ void cblas_ssyr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } #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; diff --git a/CBLAS/src/cblas_ssyr2k.c b/CBLAS/src/cblas_ssyr2k.c index d4371103..e5e95753 100644 --- a/CBLAS/src/cblas_ssyr2k.c +++ b/CBLAS/src/cblas_ssyr2k.c @@ -15,12 +15,12 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -44,9 +44,9 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -56,9 +56,9 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -77,9 +77,9 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -88,9 +88,9 @@ void cblas_ssyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ssyrk.c b/CBLAS/src/cblas_ssyrk.c index 02960da8..81f9799c 100644 --- a/CBLAS/src/cblas_ssyrk.c +++ b/CBLAS/src/cblas_ssyrk.c @@ -14,12 +14,12 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -42,9 +42,9 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -54,9 +54,9 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -75,9 +75,9 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -86,9 +86,9 @@ void cblas_ssyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_stbmv.c b/CBLAS/src/cblas_stbmv.c index 80c18a26..bdaaf515 100644 --- a/CBLAS/src/cblas_stbmv.c +++ b/CBLAS/src/cblas_stbmv.c @@ -1,5 +1,5 @@ /* - * cblas_stbmv.c + * cblas_stbmv.c * This program is a C interface to stbmv. * Written by Keita Teranishi * 3/3/1998 @@ -20,7 +20,7 @@ void cblas_stbmv(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_K=K, F77_incX=incX; @@ -39,7 +39,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -49,7 +49,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -58,7 +58,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -78,7 +78,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -89,7 +89,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,7 +99,7 @@ void cblas_stbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_stbsv.c b/CBLAS/src/cblas_stbsv.c index 55850221..6317188c 100644 --- a/CBLAS/src/cblas_stbsv.c +++ b/CBLAS/src/cblas_stbsv.c @@ -20,7 +20,7 @@ void cblas_stbsv(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_K=K, F77_incX=incX; @@ -39,7 +39,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -49,7 +49,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -58,7 +58,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -78,7 +78,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -89,7 +89,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,7 +99,7 @@ void cblas_stbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_stpmv.c b/CBLAS/src/cblas_stpmv.c index b8dfe896..90a0ab7d 100644 --- a/CBLAS/src/cblas_stpmv.c +++ b/CBLAS/src/cblas_stpmv.c @@ -20,7 +20,7 @@ void cblas_stpmv(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_incX=incX; @@ -37,7 +37,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -47,7 +47,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -56,7 +56,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -75,7 +75,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -86,7 +86,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -96,7 +96,7 @@ void cblas_stpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_stpsv.c b/CBLAS/src/cblas_stpsv.c index 2073a2c7..21b5be67 100644 --- a/CBLAS/src/cblas_stpsv.c +++ b/CBLAS/src/cblas_stpsv.c @@ -19,7 +19,7 @@ void cblas_stpsv(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_incX=incX; @@ -36,7 +36,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -46,7 +46,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -55,7 +55,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -74,7 +74,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -85,7 +85,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -95,7 +95,7 @@ void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_strmm.c b/CBLAS/src/cblas_strmm.c index 6ed4a128..e42acfcc 100644 --- a/CBLAS/src/cblas_strmm.c +++ b/CBLAS/src/cblas_strmm.c @@ -15,12 +15,12 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -43,7 +43,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -52,7 +52,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } 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; @@ -63,7 +63,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -73,7 +73,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -94,7 +94,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -104,7 +104,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -115,7 +115,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -125,7 +125,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -140,7 +140,7 @@ void cblas_strmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, #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; diff --git a/CBLAS/src/cblas_strmv.c b/CBLAS/src/cblas_strmv.c index 652659db..90e3cd6f 100644 --- a/CBLAS/src/cblas_strmv.c +++ b/CBLAS/src/cblas_strmv.c @@ -22,7 +22,7 @@ void cblas_strmv(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; @@ -40,7 +40,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -50,7 +50,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -59,7 +59,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -79,7 +79,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -90,7 +90,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -100,7 +100,7 @@ void cblas_strmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_strsm.c b/CBLAS/src/cblas_strsm.c index 1f03a58d..8276a972 100644 --- a/CBLAS/src/cblas_strsm.c +++ b/CBLAS/src/cblas_strsm.c @@ -16,12 +16,12 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -44,7 +44,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -53,7 +53,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } 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; @@ -63,7 +63,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -72,7 +72,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } 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; @@ -92,7 +92,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -101,7 +101,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } 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; @@ -111,7 +111,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -120,7 +120,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } 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; @@ -135,7 +135,7 @@ void cblas_strsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, #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; diff --git a/CBLAS/src/cblas_strsv.c b/CBLAS/src/cblas_strsv.c index 6a2768b7..dcf606dd 100644 --- a/CBLAS/src/cblas_strsv.c +++ b/CBLAS/src/cblas_strsv.c @@ -21,7 +21,7 @@ void cblas_strsv(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; @@ -39,7 +39,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -49,7 +49,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -58,7 +58,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -78,7 +78,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -89,7 +89,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,7 +99,7 @@ void cblas_strsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_xerbla.c b/CBLAS/src/cblas_xerbla.c index 3a2bfe6e..00ca9ccf 100644 --- a/CBLAS/src/cblas_xerbla.c +++ b/CBLAS/src/cblas_xerbla.c @@ -62,7 +62,7 @@ void cblas_xerbla(int info, const char *rout, const char *form, ...) 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); } diff --git a/CBLAS/src/cblas_zaxpy.c b/CBLAS/src/cblas_zaxpy.c index f63c4c39..a874ad71 100644 --- a/CBLAS/src/cblas_zaxpy.c +++ b/CBLAS/src/cblas_zaxpy.c @@ -13,10 +13,10 @@ void cblas_zaxpy( const int N, const void *alpha, const void *X, { #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); -} +} diff --git a/CBLAS/src/cblas_zcopy.c b/CBLAS/src/cblas_zcopy.c index a16be28e..78ee4513 100644 --- a/CBLAS/src/cblas_zcopy.c +++ b/CBLAS/src/cblas_zcopy.c @@ -13,7 +13,7 @@ void cblas_zcopy( const int N, const void *X, { #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 diff --git a/CBLAS/src/cblas_zdotc_sub.c b/CBLAS/src/cblas_zdotc_sub.c index 76beaeed..d88a5d03 100644 --- a/CBLAS/src/cblas_zdotc_sub.c +++ b/CBLAS/src/cblas_zdotc_sub.c @@ -14,7 +14,7 @@ void cblas_zdotc_sub( const int N, const void *X, const int incX, { #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 diff --git a/CBLAS/src/cblas_zdotu_sub.c b/CBLAS/src/cblas_zdotu_sub.c index 48a14bf3..1d05c082 100644 --- a/CBLAS/src/cblas_zdotu_sub.c +++ b/CBLAS/src/cblas_zdotu_sub.c @@ -14,7 +14,7 @@ void cblas_zdotu_sub( const int N, const void *X, const int incX, { #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 diff --git a/CBLAS/src/cblas_zdscal.c b/CBLAS/src/cblas_zdscal.c index 788365be..bd65c48a 100644 --- a/CBLAS/src/cblas_zdscal.c +++ b/CBLAS/src/cblas_zdscal.c @@ -13,7 +13,7 @@ void cblas_zdscal( const int N, const double alpha, void *X, { #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; -#else +#else #define F77_N N #define F77_incX incX #endif diff --git a/CBLAS/src/cblas_zgbmv.c b/CBLAS/src/cblas_zgbmv.c index f4dd485c..757ea226 100644 --- a/CBLAS/src/cblas_zgbmv.c +++ b/CBLAS/src/cblas_zgbmv.c @@ -1,7 +1,7 @@ /* * cblas_zgbmv.c * The program is a C interface of zgbmv - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, #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; @@ -49,7 +49,7 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, 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; @@ -59,7 +59,7 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, #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) @@ -112,7 +112,7 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, tincY = -incY; y++; - + if (N > 0) { i = tincY << 1; @@ -127,9 +127,9 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, } else x = (double *) X; - + } - else + else { cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -140,10 +140,10 @@ void cblas_zgbmv(const CBLAS_LAYOUT layout, 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) { diff --git a/CBLAS/src/cblas_zgemm.c b/CBLAS/src/cblas_zgemm.c index 7d4c3107..7d2dcd44 100644 --- a/CBLAS/src/cblas_zgemm.c +++ b/CBLAS/src/cblas_zgemm.c @@ -15,12 +15,12 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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 @@ -45,7 +45,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -56,7 +56,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -77,7 +77,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -87,7 +87,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; @@ -101,7 +101,7 @@ void cblas_zgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA, 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; diff --git a/CBLAS/src/cblas_zgemv.c b/CBLAS/src/cblas_zgemv.c index e727380b..3516b27e 100644 --- a/CBLAS/src/cblas_zgemv.c +++ b/CBLAS/src/cblas_zgemv.c @@ -1,7 +1,7 @@ /* * cblas_zgemv.c * The program is a C interface of zgemv - * + * * Keita Teranishi 5/20/98 * */ @@ -19,7 +19,7 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, #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; @@ -47,7 +47,7 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, 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; @@ -57,13 +57,13 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, #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) @@ -82,11 +82,11 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, 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 @@ -106,9 +106,9 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, #endif if(incY > 0) - tincY = incY; + tincY = incY; else - tincY = -incY; + tincY = -incY; y++; @@ -120,13 +120,13 @@ void cblas_zgemv(const CBLAS_LAYOUT layout, 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; diff --git a/CBLAS/src/cblas_zgerc.c b/CBLAS/src/cblas_zgerc.c index 7a4b4b02..1a59db91 100644 --- a/CBLAS/src/cblas_zgerc.c +++ b/CBLAS/src/cblas_zgerc.c @@ -1,7 +1,7 @@ /* * cblas_zgerc.c * The program is a C interface to zgerc. - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_zgerc(const CBLAS_LAYOUT layout, const int M, const int N, #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; @@ -33,9 +33,9 @@ void cblas_zgerc(const CBLAS_LAYOUT layout, const int M, const int N, 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) @@ -48,11 +48,11 @@ void cblas_zgerc(const CBLAS_LAYOUT layout, const int M, const int N, 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 { @@ -72,7 +72,7 @@ void cblas_zgerc(const CBLAS_LAYOUT layout, const int M, const int N, } 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); diff --git a/CBLAS/src/cblas_zgeru.c b/CBLAS/src/cblas_zgeru.c index 217acc0a..4f37ee99 100644 --- a/CBLAS/src/cblas_zgeru.c +++ b/CBLAS/src/cblas_zgeru.c @@ -1,7 +1,7 @@ /* * cblas_zgeru.c * The program is a C interface to zgeru. - * + * * Keita Teranishi 5/20/98 * */ @@ -34,7 +34,7 @@ void cblas_zgeru(const CBLAS_LAYOUT layout, const int M, const int N, 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); diff --git a/CBLAS/src/cblas_zhbmv.c b/CBLAS/src/cblas_zhbmv.c index 31c97801..ed97b7ba 100644 --- a/CBLAS/src/cblas_zhbmv.c +++ b/CBLAS/src/cblas_zhbmv.c @@ -1,7 +1,7 @@ /* * cblas_zhbmv.c * The program is a C interface to zhbmv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, #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; @@ -44,7 +44,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, { 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; @@ -54,7 +54,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, #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) @@ -69,7 +69,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(double)); - + tx = x; if( incX > 0 ) { i = incX << 1 ; @@ -98,7 +98,7 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -114,11 +114,11 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, } 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; @@ -128,10 +128,10 @@ void cblas_zhbmv(const CBLAS_LAYOUT layout, #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; diff --git a/CBLAS/src/cblas_zhemm.c b/CBLAS/src/cblas_zhemm.c index 43ed0ff8..fc53036b 100644 --- a/CBLAS/src/cblas_zhemm.c +++ b/CBLAS/src/cblas_zhemm.c @@ -15,12 +15,12 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -43,7 +43,7 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -53,7 +53,7 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -66,14 +66,14 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -83,7 +83,7 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -98,9 +98,9 @@ void cblas_zhemm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; -} +} diff --git a/CBLAS/src/cblas_zhemv.c b/CBLAS/src/cblas_zhemv.c index 436049e0..83c15b19 100644 --- a/CBLAS/src/cblas_zhemv.c +++ b/CBLAS/src/cblas_zhemv.c @@ -1,7 +1,7 @@ /* * cblas_zhemv.c * The program is a C interface to zhemv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, #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; @@ -44,7 +44,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, { 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; @@ -54,7 +54,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, #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) @@ -69,7 +69,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(double)); - + tx = x; if( incX > 0 ) { i = incX << 1 ; @@ -98,7 +98,7 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -116,10 +116,10 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, } 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; @@ -129,10 +129,10 @@ void cblas_zhemv(const CBLAS_LAYOUT layout, #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; diff --git a/CBLAS/src/cblas_zher.c b/CBLAS/src/cblas_zher.c index 9ca09b09..068d7225 100644 --- a/CBLAS/src/cblas_zher.c +++ b/CBLAS/src/cblas_zher.c @@ -1,7 +1,7 @@ /* * cblas_zher.c * The program is a C interface to zher. - * + * * Keita Teranishi 5/20/98 * */ @@ -33,13 +33,13 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -57,7 +57,7 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -76,11 +76,11 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 { @@ -101,9 +101,9 @@ void cblas_zher(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_zher2.c b/CBLAS/src/cblas_zher2.c index d575e9b2..debfaf7b 100644 --- a/CBLAS/src/cblas_zher2.c +++ b/CBLAS/src/cblas_zher2.c @@ -1,7 +1,7 @@ /* * cblas_zher2.c * The program is a C interface to zher2. - * + * * Keita Teranishi 3/23/98 * */ @@ -29,19 +29,19 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -52,7 +52,7 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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) @@ -60,7 +60,7 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -74,29 +74,29 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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 @@ -127,15 +127,15 @@ void cblas_zher2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_zher2k.c b/CBLAS/src/cblas_zher2k.c index 482f8686..ccbd6b08 100644 --- a/CBLAS/src/cblas_zher2k.c +++ b/CBLAS/src/cblas_zher2k.c @@ -15,12 +15,12 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -36,7 +36,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, extern int CBLAS_CallFromC; extern int RowMajorStrg; - double ALPHA[2]; + double ALPHA[2]; const double *alp=(double *)alpha; CBLAS_CallFromC = 1; @@ -47,7 +47,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -58,7 +58,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -75,10 +75,10 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -88,7 +88,7 @@ void cblas_zher2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_zherk.c b/CBLAS/src/cblas_zherk.c index 5a4171f2..b0bfa81d 100644 --- a/CBLAS/src/cblas_zherk.c +++ b/CBLAS/src/cblas_zherk.c @@ -14,12 +14,12 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -41,7 +41,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -52,7 +52,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -72,7 +72,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -82,7 +82,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -97,7 +97,7 @@ void cblas_zherk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_zhpmv.c b/CBLAS/src/cblas_zhpmv.c index b113ea09..35019d57 100644 --- a/CBLAS/src/cblas_zhpmv.c +++ b/CBLAS/src/cblas_zhpmv.c @@ -1,7 +1,7 @@ /* * cblas_zhpmv.c * The program is a C interface of zhpmv - * + * * Keita Teranishi 5/18/98 * */ @@ -19,7 +19,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, #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; @@ -37,12 +37,12 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, 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; @@ -52,7 +52,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, #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) @@ -67,7 +67,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, { n = N << 1; x = malloc(n*sizeof(double)); - + tx = x; if( incX > 0 ) { i = incX << 1; @@ -96,7 +96,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, #else incx = 1; #endif - + if(incY > 0) tincY = incY; else @@ -117,7 +117,7 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, 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; @@ -128,17 +128,17 @@ void cblas_zhpmv(const CBLAS_LAYOUT layout, 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) diff --git a/CBLAS/src/cblas_zhpr.c b/CBLAS/src/cblas_zhpr.c index 4037b7bf..9b00781c 100644 --- a/CBLAS/src/cblas_zhpr.c +++ b/CBLAS/src/cblas_zhpr.c @@ -1,7 +1,7 @@ /* * cblas_zhpr.c * The program is a C interface to zhpr. - * + * * Keita Teranishi 3/23/98 * */ @@ -32,13 +32,13 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -56,7 +56,7 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -75,11 +75,11 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 { @@ -100,7 +100,7 @@ void cblas_zhpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_zhpr2.c b/CBLAS/src/cblas_zhpr2.c index a4349d3e..b7c6ca51 100644 --- a/CBLAS/src/cblas_zhpr2.c +++ b/CBLAS/src/cblas_zhpr2.c @@ -1,7 +1,7 @@ /* * cblas_zhpr2.c * The program is a C interface to zhpr2. - * + * * Keita Teranishi 5/20/98 * */ @@ -10,7 +10,7 @@ #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) { @@ -35,13 +35,13 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -59,7 +59,7 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -73,14 +73,14 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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 @@ -108,32 +108,32 @@ void cblas_zhpr2(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_zscal.c b/CBLAS/src/cblas_zscal.c index 37b319f3..622e9ba1 100644 --- a/CBLAS/src/cblas_zscal.c +++ b/CBLAS/src/cblas_zscal.c @@ -8,12 +8,12 @@ */ #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 diff --git a/CBLAS/src/cblas_zswap.c b/CBLAS/src/cblas_zswap.c index dfde2cbd..4895acf4 100644 --- a/CBLAS/src/cblas_zswap.c +++ b/CBLAS/src/cblas_zswap.c @@ -13,7 +13,7 @@ void cblas_zswap( const int N, void *X, const int incX, void *Y, { #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 diff --git a/CBLAS/src/cblas_zsymm.c b/CBLAS/src/cblas_zsymm.c index fcedd048..16904966 100644 --- a/CBLAS/src/cblas_zsymm.c +++ b/CBLAS/src/cblas_zsymm.c @@ -15,12 +15,12 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -43,7 +43,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -53,7 +53,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -73,7 +73,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -83,7 +83,7 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -98,9 +98,9 @@ void cblas_zsymm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; -} +} diff --git a/CBLAS/src/cblas_zsyr2k.c b/CBLAS/src/cblas_zsyr2k.c index b1181884..20bb25b5 100644 --- a/CBLAS/src/cblas_zsyr2k.c +++ b/CBLAS/src/cblas_zsyr2k.c @@ -15,12 +15,12 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -44,7 +44,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -55,7 +55,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -76,7 +76,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -86,7 +86,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -100,7 +100,7 @@ void cblas_zsyr2k(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; diff --git a/CBLAS/src/cblas_zsyrk.c b/CBLAS/src/cblas_zsyrk.c index d247f8df..55e350d8 100644 --- a/CBLAS/src/cblas_zsyrk.c +++ b/CBLAS/src/cblas_zsyrk.c @@ -14,12 +14,12 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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 @@ -42,7 +42,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -53,7 +53,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -74,7 +74,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -84,7 +84,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,7 +99,7 @@ void cblas_zsyrk(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ztbmv.c b/CBLAS/src/cblas_ztbmv.c index 84928ae2..58db9839 100644 --- a/CBLAS/src/cblas_ztbmv.c +++ b/CBLAS/src/cblas_ztbmv.c @@ -1,7 +1,7 @@ /* * cblas_ztbmv.c * The program is a C interface to ztbmv. - * + * * Keita Teranishi 5/20/98 * */ @@ -20,7 +20,7 @@ void cblas_ztbmv(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_K=K, F77_incX=incX; @@ -30,7 +30,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -41,7 +41,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -51,7 +51,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -60,7 +60,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -80,7 +80,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -112,7 +112,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ztbmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ztbsv.c b/CBLAS/src/cblas_ztbsv.c index 455cb454..2f18cdde 100644 --- a/CBLAS/src/cblas_ztbsv.c +++ b/CBLAS/src/cblas_ztbsv.c @@ -1,7 +1,7 @@ /* * cblas_ztbsv.c * The program is a C interface to ztbsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -20,7 +20,7 @@ void cblas_ztbsv(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_K=K, F77_incX=incX; @@ -30,7 +30,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -41,7 +41,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -51,7 +51,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -60,7 +60,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -80,7 +80,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -99,9 +99,9 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); - + x++; st=x+n; @@ -116,7 +116,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -126,7 +126,7 @@ void cblas_ztbsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ztpmv.c b/CBLAS/src/cblas_ztpmv.c index db099d7c..e11ac692 100644 --- a/CBLAS/src/cblas_ztpmv.c +++ b/CBLAS/src/cblas_ztpmv.c @@ -1,7 +1,7 @@ /* * cblas_ztpmv.c * The program is a C interface to ztpmv. - * + * * Keita Teranishi 5/20/98 * */ @@ -19,7 +19,7 @@ void cblas_ztpmv(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_incX=incX; @@ -27,7 +27,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -38,7 +38,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -48,7 +48,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -57,7 +57,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -76,7 +76,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -108,7 +108,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -118,7 +118,7 @@ void cblas_ztpmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ztpsv.c b/CBLAS/src/cblas_ztpsv.c index a2df95c8..7c16668d 100644 --- a/CBLAS/src/cblas_ztpsv.c +++ b/CBLAS/src/cblas_ztpsv.c @@ -1,7 +1,7 @@ /* * cblas_ztpsv.c * The program is a C interface to ztpsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -19,7 +19,7 @@ void cblas_ztpsv(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_incX=incX; @@ -27,7 +27,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -38,7 +38,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -48,7 +48,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -57,7 +57,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -76,7 +76,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -95,9 +95,9 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); - + x++; st=x+n; @@ -112,7 +112,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ztpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ztrmm.c b/CBLAS/src/cblas_ztrmm.c index 4fd86552..573d6b7f 100644 --- a/CBLAS/src/cblas_ztrmm.c +++ b/CBLAS/src/cblas_ztrmm.c @@ -15,12 +15,12 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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 @@ -43,7 +43,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, { 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; @@ -52,7 +52,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, } 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; @@ -63,7 +63,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -73,7 +73,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -94,7 +94,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -104,7 +104,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -115,7 +115,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -125,7 +125,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -141,7 +141,7 @@ void cblas_ztrmm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, #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; diff --git a/CBLAS/src/cblas_ztrmv.c b/CBLAS/src/cblas_ztrmv.c index 57fd2357..462e6d87 100644 --- a/CBLAS/src/cblas_ztrmv.c +++ b/CBLAS/src/cblas_ztrmv.c @@ -1,7 +1,7 @@ /* * cblas_ztrmv.c * The program is a C interface to ztrmv. - * + * * Keita Teranishi 5/20/98 * */ @@ -21,7 +21,7 @@ void cblas_ztrmv(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; @@ -30,7 +30,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -41,7 +41,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -51,7 +51,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -60,7 +60,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -80,7 +80,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -112,7 +112,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ztrmv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/src/cblas_ztrsm.c b/CBLAS/src/cblas_ztrsm.c index 85ad8796..89ceb067 100644 --- a/CBLAS/src/cblas_ztrsm.c +++ b/CBLAS/src/cblas_ztrsm.c @@ -44,7 +44,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -54,7 +54,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -65,7 +65,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -75,7 +75,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -98,7 +98,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -108,7 +108,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -119,7 +119,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -129,7 +129,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; @@ -147,7 +147,7 @@ void cblas_ztrsm(const CBLAS_LAYOUT layout, const CBLAS_SIDE Side, 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; diff --git a/CBLAS/src/cblas_ztrsv.c b/CBLAS/src/cblas_ztrsv.c index e685208c..e7d47e81 100644 --- a/CBLAS/src/cblas_ztrsv.c +++ b/CBLAS/src/cblas_ztrsv.c @@ -1,7 +1,7 @@ /* * cblas_ztrsv.c * The program is a C interface to ztrsv. - * + * * Keita Teranishi 3/23/98 * */ @@ -20,7 +20,7 @@ void cblas_ztrsv(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; @@ -29,7 +29,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, #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; @@ -40,7 +40,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, { 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; @@ -50,7 +50,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -59,7 +59,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, } 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; @@ -79,7 +79,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; @@ -98,10 +98,10 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, tincX = incX; else tincX = -incX; - + n = N*2*(tincX); x++; - st=x+n; + st=x+n; i = tincX << 1; do { @@ -112,7 +112,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, x -= n; } } - else + else { cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA); CBLAS_CallFromC = 0; @@ -122,7 +122,7 @@ void cblas_ztrsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, 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; diff --git a/CBLAS/testing/c_c2chke.c b/CBLAS/testing/c_c2chke.c index 18422831..28b77198 100644 --- a/CBLAS/testing/c_c2chke.c +++ b/CBLAS/testing/c_c2chke.c @@ -26,11 +26,11 @@ void chkxer(void) { 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; @@ -48,588 +48,588 @@ void F77_c2chke(char *rout) { 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) { @@ -818,7 +818,7 @@ void F77_c2chke(char *rout) { 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 diff --git a/CBLAS/testing/c_c3chke.c b/CBLAS/testing/c_c3chke.c index 67622435..1be0c3fd 100644 --- a/CBLAS/testing/c_c3chke.c +++ b/CBLAS/testing/c_c3chke.c @@ -30,7 +30,7 @@ void F77_c3chke(char * rout) { 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; @@ -49,15 +49,15 @@ void F77_c3chke(char * rout) { 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; @@ -272,7 +272,7 @@ void F77_c3chke(char * rout) { 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" ; @@ -1696,7 +1696,7 @@ void F77_c3chke(char * rout) { cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - + } if (cblas_ok == 1 ) diff --git a/CBLAS/testing/c_cblas1.c b/CBLAS/testing/c_cblas1.c index 31b9d47b..81a5b843 100644 --- a/CBLAS/testing/c_cblas1.c +++ b/CBLAS/testing/c_cblas1.c @@ -15,21 +15,21 @@ void F77_caxpy(const int *N, const void *alpha, void *X, 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); diff --git a/CBLAS/testing/c_cblas2.c b/CBLAS/testing/c_cblas2.c index 6ba02769..bb7e6448 100644 --- a/CBLAS/testing/c_cblas2.c +++ b/CBLAS/testing/c_cblas2.c @@ -8,9 +8,9 @@ #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; @@ -38,9 +38,9 @@ void F77_cgemv(int *layout, char *transp, int *m, int *n, *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; @@ -85,8 +85,8 @@ void F77_cgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, *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; @@ -114,8 +114,8 @@ void F77_cgeru(int *layout, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, 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; @@ -165,7 +165,7 @@ void F77_chemv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, 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, @@ -173,7 +173,7 @@ void F77_chemv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, } 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){ @@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA; 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; @@ -237,7 +237,7 @@ int i,irow,j,jcol,LDA; } 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; @@ -247,7 +247,7 @@ void F77_chpmv(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, 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; @@ -344,7 +344,7 @@ void F77_ctbmv(int *layout, char *uplow, char *transp, char *diagn, } } } - 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); } @@ -371,7 +371,7 @@ void F77_ctbsv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -408,7 +408,7 @@ void F77_ctbsv(int *layout, char *uplow, char *transp, char *diagn, } } } - cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, + cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } @@ -674,7 +674,7 @@ void F77_chpr2(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, 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; @@ -752,7 +752,7 @@ void F77_cher(int *layout, char *uplow, int *n, float *alpha, 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; @@ -786,7 +786,7 @@ void F77_cher2(int *layout, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, 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; diff --git a/CBLAS/testing/c_cblas3.c b/CBLAS/testing/c_cblas3.c index 5e4b8b38..e0e41230 100644 --- a/CBLAS/testing/c_cblas3.c +++ b/CBLAS/testing/c_cblas3.c @@ -11,9 +11,9 @@ #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; @@ -133,7 +133,7 @@ void F77_chemm(int *layout, char *rtlf, char *uplow, int *m, int *n, 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++ ) { @@ -145,10 +145,10 @@ void F77_chemm(int *layout, char *rtlf, char *uplow, int *m, int *n, 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, @@ -189,7 +189,7 @@ 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++ ) @@ -199,15 +199,15 @@ void F77_csymm(int *layout, char *rtlf, char *uplow, int *m, int *n, 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; @@ -244,7 +244,7 @@ void F77_cherk(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_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++ ) { @@ -255,15 +255,15 @@ void F77_cherk(int *layout, char *uplow, char *transp, int *n, int *k, 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; @@ -300,7 +300,7 @@ void F77_csyrk(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_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++ ) { @@ -311,10 +311,10 @@ void F77_csyrk(int *layout, char *uplow, char *transp, int *n, int *k, 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, @@ -363,7 +363,7 @@ 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++ ) { @@ -375,10 +375,10 @@ void F77_cher2k(int *layout, char *uplow, char *transp, int *n, int *k, 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, @@ -427,7 +427,7 @@ 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++ ) { @@ -439,14 +439,14 @@ void F77_csyr2k(int *layout, char *uplow, char *transp, int *n, int *k, 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; @@ -486,7 +486,7 @@ void F77_ctrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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++ ) { @@ -497,15 +497,15 @@ void F77_ctrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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; @@ -545,7 +545,7 @@ void F77_ctrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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++ ) { @@ -556,9 +556,9 @@ void F77_ctrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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); } diff --git a/CBLAS/testing/c_d2chke.c b/CBLAS/testing/c_d2chke.c index 46a242fc..d989811d 100644 --- a/CBLAS/testing/c_d2chke.c +++ b/CBLAS/testing/c_d2chke.c @@ -26,9 +26,9 @@ void chkxer(void) { 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; @@ -46,588 +46,588 @@ void F77_d2chke(char *rout) { 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) { @@ -781,7 +781,7 @@ void F77_d2chke(char *rout) { 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 diff --git a/CBLAS/testing/c_d3chke.c b/CBLAS/testing/c_d3chke.c index fae38d48..e41901e7 100644 --- a/CBLAS/testing/c_d3chke.c +++ b/CBLAS/testing/c_d3chke.c @@ -26,9 +26,9 @@ void chkxer(void) { 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; @@ -39,7 +39,7 @@ void F77_d3chke(char *rout) { cblas_xerbla(cblas_info,cblas_rout,""); F77_xerbla(cblas_rout,&cblas_info); } - + cblas_ok = TRUE ; cblas_lerr = PASSED ; @@ -47,15 +47,15 @@ void F77_d3chke(char *rout) { 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; diff --git a/CBLAS/testing/c_dblas1.c b/CBLAS/testing/c_dblas1.c index 616c4989..deb78512 100644 --- a/CBLAS/testing/c_dblas1.c +++ b/CBLAS/testing/c_dblas1.c @@ -20,7 +20,7 @@ void F77_daxpy(const int *N, const double *alpha, const double *X, 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); diff --git a/CBLAS/testing/c_dblas2.c b/CBLAS/testing/c_dblas2.c index eeaf88e6..835ba19f 100644 --- a/CBLAS/testing/c_dblas2.c +++ b/CBLAS/testing/c_dblas2.c @@ -8,8 +8,8 @@ #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; @@ -23,7 +23,7 @@ void F77_dgemv(int *layout, char *transp, int *m, int *n, double *alpha, 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); } @@ -68,9 +68,9 @@ void F77_dtrmv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -88,7 +88,7 @@ void F77_dtrmv(int *layout, char *uplow, char *transp, char *diagn, } } -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; @@ -112,7 +112,7 @@ void F77_dtrsv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -136,7 +136,7 @@ void F77_dsymv(int *layout, char *uplow, int *n, double *alpha, 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; @@ -160,7 +160,7 @@ void F77_dsyr(int *layout, char *uplow, int *n, double *alpha, double *x, 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; @@ -185,7 +185,7 @@ void F77_dsyr2(int *layout, char *uplow, int *n, double *alpha, double *x, } 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; @@ -213,7 +213,7 @@ void F77_dgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, 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); } @@ -230,9 +230,9 @@ void F77_dtbmv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -276,9 +276,9 @@ void F77_dtbsv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -315,7 +315,7 @@ void F77_dtbsv(int *layout, char *uplow, char *transp, char *diagn, } 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; @@ -387,13 +387,13 @@ void F77_dspmv(int *layout, char *uplow, int *n, double *alpha, double *ap, 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 ); } @@ -405,9 +405,9 @@ void F77_dtpmv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -445,9 +445,9 @@ void F77_dtpsv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -478,7 +478,7 @@ void F77_dtpsv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -530,7 +530,7 @@ void F77_dspr(int *layout, char *uplow, int *n, double *alpha, double *x, 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; diff --git a/CBLAS/testing/c_dblas3.c b/CBLAS/testing/c_dblas3.c index 46ddc4a1..8a2c3768 100644 --- a/CBLAS/testing/c_dblas3.c +++ b/CBLAS/testing/c_dblas3.c @@ -11,7 +11,7 @@ #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 ) { @@ -110,7 +110,7 @@ void F77_dsymm(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_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++ ) @@ -120,15 +120,15 @@ void F77_dsymm(int *layout, char *rtlf, char *uplow, int *m, int *n, 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; @@ -159,7 +159,7 @@ void F77_dsyrk(int *layout, char *uplow, char *transp, int *n, int *k, 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++ ) @@ -168,10 +168,10 @@ void F77_dsyrk(int *layout, char *uplow, char *transp, int *n, int *k, 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 ); } @@ -214,7 +214,7 @@ void F77_dsyr2k(int *layout, char *uplow, char *transp, int *n, int *k, 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++ ) @@ -224,14 +224,14 @@ void F77_dsyr2k(int *layout, char *uplow, char *transp, int *n, int *k, 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; @@ -265,7 +265,7 @@ void F77_dtrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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++ ) @@ -274,10 +274,10 @@ void F77_dtrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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); } @@ -316,7 +316,7 @@ void F77_dtrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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++ ) @@ -325,9 +325,9 @@ void F77_dtrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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); } diff --git a/CBLAS/testing/c_s2chke.c b/CBLAS/testing/c_s2chke.c index 60b837cd..63f16715 100644 --- a/CBLAS/testing/c_s2chke.c +++ b/CBLAS/testing/c_s2chke.c @@ -26,9 +26,9 @@ void chkxer(void) { 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; @@ -46,588 +46,588 @@ void F77_s2chke(char *rout) { 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) { @@ -781,7 +781,7 @@ void F77_s2chke(char *rout) { 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 diff --git a/CBLAS/testing/c_s3chke.c b/CBLAS/testing/c_s3chke.c index 1b2a536c..1872f005 100644 --- a/CBLAS/testing/c_s3chke.c +++ b/CBLAS/testing/c_s3chke.c @@ -26,9 +26,9 @@ void chkxer(void) { 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; @@ -39,22 +39,22 @@ void F77_s3chke(char *rout) { 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; diff --git a/CBLAS/testing/c_sblas1.c b/CBLAS/testing/c_sblas1.c index da72b722..2e63d981 100644 --- a/CBLAS/testing/c_sblas1.c +++ b/CBLAS/testing/c_sblas1.c @@ -30,14 +30,14 @@ float F77_scnrm2(const int *N, const void *X, const int *incX) 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); diff --git a/CBLAS/testing/c_sblas2.c b/CBLAS/testing/c_sblas2.c index c04d8db4..f1195048 100644 --- a/CBLAS/testing/c_sblas2.c +++ b/CBLAS/testing/c_sblas2.c @@ -8,8 +8,8 @@ #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; @@ -23,7 +23,7 @@ void F77_sgemv(int *layout, char *transp, int *m, int *n, float *alpha, 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); } @@ -68,9 +68,9 @@ void F77_strmv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -88,7 +88,7 @@ void F77_strmv(int *layout, char *uplow, char *transp, char *diagn, } } -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; @@ -112,7 +112,7 @@ void F77_strsv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -136,7 +136,7 @@ void F77_ssymv(int *layout, char *uplow, int *n, float *alpha, 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; @@ -160,7 +160,7 @@ void F77_ssyr(int *layout, char *uplow, int *n, float *alpha, float *x, 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; @@ -185,7 +185,7 @@ void F77_ssyr2(int *layout, char *uplow, int *n, float *alpha, float *x, } 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; @@ -213,7 +213,7 @@ void F77_sgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, 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); } @@ -230,9 +230,9 @@ void F77_stbmv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -276,9 +276,9 @@ void F77_stbsv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -315,7 +315,7 @@ void F77_stbsv(int *layout, char *uplow, char *transp, char *diagn, } 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; @@ -387,12 +387,12 @@ void F77_sspmv(int *layout, char *uplow, int *n, float *alpha, float *ap, 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 ); } @@ -404,9 +404,9 @@ void F77_stpmv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -443,9 +443,9 @@ void F77_stpsv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -475,7 +475,7 @@ void F77_stpsv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -526,7 +526,7 @@ void F77_sspr(int *layout, char *uplow, int *n, float *alpha, float *x, 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; diff --git a/CBLAS/testing/c_sblas3.c b/CBLAS/testing/c_sblas3.c index 3da274cd..024fc474 100644 --- a/CBLAS/testing/c_sblas3.c +++ b/CBLAS/testing/c_sblas3.c @@ -9,7 +9,7 @@ #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 ) { @@ -107,7 +107,7 @@ void F77_ssymm(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_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++ ) @@ -117,15 +117,15 @@ void F77_ssymm(int *layout, char *rtlf, char *uplow, int *m, int *n, 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; @@ -156,7 +156,7 @@ void F77_ssyrk(int *layout, char *uplow, char *transp, int *n, int *k, 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++ ) @@ -165,10 +165,10 @@ void F77_ssyrk(int *layout, char *uplow, char *transp, int *n, int *k, 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 ); } @@ -211,7 +211,7 @@ void F77_ssyr2k(int *layout, char *uplow, char *transp, int *n, int *k, 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++ ) @@ -221,14 +221,14 @@ void F77_ssyr2k(int *layout, char *uplow, char *transp, int *n, int *k, 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; @@ -262,7 +262,7 @@ void F77_strmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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++ ) @@ -271,10 +271,10 @@ void F77_strmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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); } @@ -313,7 +313,7 @@ void F77_strsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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++ ) @@ -322,9 +322,9 @@ void F77_strsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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); } diff --git a/CBLAS/testing/c_xerbla.c b/CBLAS/testing/c_xerbla.c index cc5eda40..0ba5264d 100644 --- a/CBLAS/testing/c_xerbla.c +++ b/CBLAS/testing/c_xerbla.c @@ -11,10 +11,10 @@ void cblas_xerbla(int info, const char *rout, const char *form, ...) 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; @@ -26,11 +26,11 @@ void cblas_xerbla(int info, const char *rout, const char *form, ...) 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) @@ -117,7 +117,7 @@ void F77_xerbla(char *srname, void *vinfo) } 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. */ diff --git a/CBLAS/testing/c_z2chke.c b/CBLAS/testing/c_z2chke.c index 09aaa68a..d51c7c26 100644 --- a/CBLAS/testing/c_z2chke.c +++ b/CBLAS/testing/c_z2chke.c @@ -26,11 +26,11 @@ void chkxer(void) { 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; @@ -48,588 +48,588 @@ void F77_z2chke(char *rout) { 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) { @@ -818,7 +818,7 @@ void F77_z2chke(char *rout) { 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 diff --git a/CBLAS/testing/c_z3chke.c b/CBLAS/testing/c_z3chke.c index 0bb1bfb6..10078a10 100644 --- a/CBLAS/testing/c_z3chke.c +++ b/CBLAS/testing/c_z3chke.c @@ -30,7 +30,7 @@ void F77_z3chke(char * rout) { 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; @@ -49,15 +49,15 @@ void F77_z3chke(char * rout) { 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; @@ -272,7 +272,7 @@ void F77_z3chke(char * rout) { 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" ; @@ -1696,7 +1696,7 @@ void F77_z3chke(char * rout) { cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - + } if (cblas_ok == 1 ) diff --git a/CBLAS/testing/c_zblas1.c b/CBLAS/testing/c_zblas1.c index d2215a89..2b21d8f1 100644 --- a/CBLAS/testing/c_zblas1.c +++ b/CBLAS/testing/c_zblas1.c @@ -15,21 +15,21 @@ void F77_zaxpy(const int *N, const void *alpha, void *X, 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); diff --git a/CBLAS/testing/c_zblas2.c b/CBLAS/testing/c_zblas2.c index d4b46081..b6fbdd62 100644 --- a/CBLAS/testing/c_zblas2.c +++ b/CBLAS/testing/c_zblas2.c @@ -8,9 +8,9 @@ #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; @@ -38,9 +38,9 @@ void F77_zgemv(int *layout, char *transp, int *m, int *n, *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; @@ -85,8 +85,8 @@ void F77_zgbmv(int *layout, char *transp, int *m, int *n, int *kl, int *ku, *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; @@ -114,8 +114,8 @@ void F77_zgeru(int *layout, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, 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; @@ -165,7 +165,7 @@ void F77_zhemv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, 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, @@ -173,7 +173,7 @@ void F77_zhemv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, } 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){ @@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA; 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; @@ -237,7 +237,7 @@ int i,irow,j,jcol,LDA; } 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; @@ -247,7 +247,7 @@ void F77_zhpmv(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, 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; @@ -344,7 +344,7 @@ void F77_ztbmv(int *layout, char *uplow, char *transp, char *diagn, } } } - 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); } @@ -371,7 +371,7 @@ void F77_ztbsv(int *layout, char *uplow, char *transp, char *diagn, 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; @@ -408,7 +408,7 @@ void F77_ztbsv(int *layout, char *uplow, char *transp, char *diagn, } } } - cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, + cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } @@ -674,7 +674,7 @@ void F77_zhpr2(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, 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; @@ -752,7 +752,7 @@ void F77_zher(int *layout, char *uplow, int *n, double *alpha, 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; @@ -786,7 +786,7 @@ void F77_zher2(int *layout, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, 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; diff --git a/CBLAS/testing/c_zblas3.c b/CBLAS/testing/c_zblas3.c index de4cb56d..65a82135 100644 --- a/CBLAS/testing/c_zblas3.c +++ b/CBLAS/testing/c_zblas3.c @@ -11,9 +11,9 @@ #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; @@ -133,7 +133,7 @@ void F77_zhemm(int *layout, char *rtlf, char *uplow, int *m, int *n, 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++ ) { @@ -145,10 +145,10 @@ void F77_zhemm(int *layout, char *rtlf, char *uplow, int *m, int *n, 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, @@ -189,7 +189,7 @@ 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++ ) @@ -199,15 +199,15 @@ void F77_zsymm(int *layout, char *rtlf, char *uplow, int *m, int *n, 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; @@ -244,7 +244,7 @@ void F77_zherk(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_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++ ) { @@ -255,15 +255,15 @@ void F77_zherk(int *layout, char *uplow, char *transp, int *n, int *k, 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; @@ -300,7 +300,7 @@ void F77_zsyrk(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_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++ ) { @@ -311,10 +311,10 @@ void F77_zsyrk(int *layout, char *uplow, char *transp, int *n, int *k, 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, @@ -363,7 +363,7 @@ 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++ ) { @@ -375,10 +375,10 @@ void F77_zher2k(int *layout, char *uplow, char *transp, int *n, int *k, 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, @@ -427,7 +427,7 @@ 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++ ) { @@ -439,14 +439,14 @@ void F77_zsyr2k(int *layout, char *uplow, char *transp, int *n, int *k, 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; @@ -486,7 +486,7 @@ void F77_ztrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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++ ) { @@ -497,15 +497,15 @@ void F77_ztrmm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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; @@ -545,7 +545,7 @@ void F77_ztrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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++ ) { @@ -556,9 +556,9 @@ void F77_ztrsm(int *layout, char *rtlf, char *uplow, char *transp, char *diagn, 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); } diff --git a/LAPACKE/example/example_DGELS_colmajor.c b/LAPACKE/example/example_DGELS_colmajor.c index 5fa04bb4..c44c1a5a 100644 --- a/LAPACKE/example/example_DGELS_colmajor.c +++ b/LAPACKE/example/example_DGELS_colmajor.c @@ -1,16 +1,16 @@ /* 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 @@ -28,11 +28,11 @@ ( 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 ) @@ -82,7 +82,7 @@ int main (int argc, const char * argv[]) /* 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*/ diff --git a/LAPACKE/example/example_DGELS_rowmajor.c b/LAPACKE/example/example_DGELS_rowmajor.c index a5d02e2e..15040262 100644 --- a/LAPACKE/example/example_DGELS_rowmajor.c +++ b/LAPACKE/example/example_DGELS_rowmajor.c @@ -1,16 +1,16 @@ /* 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 @@ -28,11 +28,11 @@ ( 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 ) @@ -83,7 +83,7 @@ int main (int argc, const char * argv[]) /* 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*/ diff --git a/LAPACKE/example/example_DGESV_colmajor.c b/LAPACKE/example/example_DGESV_colmajor.c index cc3cd8b3..938bbfe3 100644 --- a/LAPACKE/example/example_DGESV_colmajor.c +++ b/LAPACKE/example/example_DGESV_colmajor.c @@ -1,23 +1,23 @@ /* 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 @@ -47,22 +47,22 @@ int main(int argc, char **argv) { /* 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)) ; @@ -75,7 +75,7 @@ int main(int argc, char **argv) { 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; @@ -84,13 +84,13 @@ int main(int argc, char **argv) { /* 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" ); diff --git a/LAPACKE/example/example_DGESV_rowmajor.c b/LAPACKE/example/example_DGESV_rowmajor.c index c3798382..ad990fc1 100644 --- a/LAPACKE/example/example_DGESV_rowmajor.c +++ b/LAPACKE/example/example_DGESV_rowmajor.c @@ -1,23 +1,23 @@ /* 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 @@ -46,22 +46,22 @@ int main(int argc, char **argv) { /* 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)) ; diff --git a/LAPACKE/example/example_user.c b/LAPACKE/example/example_user.c index c481fa70..a33c7de6 100644 --- a/LAPACKE/example/example_user.c +++ b/LAPACKE/example/example_user.c @@ -1,17 +1,17 @@ #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 */ @@ -32,14 +32,14 @@ int main() { -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 */ @@ -69,13 +69,13 @@ int main() { 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; @@ -85,7 +85,7 @@ void print_matrix( char* desc, lapack_int m, lapack_int n, double* a, lapack_int printf( "\n" ); } } - + /* Auxiliary routine: printing a vector of integers */ void print_int_vector( char* desc, lapack_int n, lapack_int* a ) { lapack_int j; @@ -93,5 +93,5 @@ void print_int_vector( char* desc, lapack_int n, lapack_int* a ) { for( j = 0; j < n; j++ ) printf( " %6i", a[j] ); printf( "\n" ); } - - + + diff --git a/LAPACKE/example/lapacke_example_aux.c b/LAPACKE/example/lapacke_example_aux.c index dfd60eb1..9b72eb62 100644 --- a/LAPACKE/example/lapacke_example_aux.c +++ b/LAPACKE/example/lapacke_example_aux.c @@ -5,7 +5,7 @@ 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" ); @@ -17,7 +17,7 @@ void print_matrix_rowmajor( char* desc, lapack_int m, lapack_int n, double* mat, 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" ); diff --git a/LAPACKE/include/lapacke.h b/LAPACKE/include/lapacke.h index 7034f8d5..27f1dcb5 100644 --- a/LAPACKE/include/lapacke.h +++ b/LAPACKE/include/lapacke.h @@ -2499,20 +2499,20 @@ lapack_int LAPACKE_zlarnv( lapack_int idist, lapack_int* iseed, lapack_int 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, @@ -5763,21 +5763,21 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char 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, @@ -5785,10 +5785,10 @@ lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char 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, @@ -7695,22 +7695,22 @@ lapack_int LAPACKE_zlarnv_work( lapack_int idist, lapack_int* iseed, 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 ); @@ -10598,9 +10598,9 @@ lapack_int LAPACKE_cuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, 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, @@ -10943,9 +10943,9 @@ lapack_int LAPACKE_zuncsd2by1_work( 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 ); @@ -11287,7 +11287,7 @@ lapack_int LAPACKE_zsysv_rook( int matrix_layout, char uplo, lapack_int n, 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, @@ -11359,7 +11359,7 @@ lapack_int LAPACKE_zsysv_rook_work( int matrix_layout, char uplo, lapack_int n, 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 ); @@ -16141,7 +16141,7 @@ void LAPACK_zgesvdx( char* jobu, char* jobvt, char* range, lapack_int* m, lapack 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, @@ -16175,13 +16175,13 @@ void LAPACK_sgejsv( char* joba, char* jobu, char* jobv, char* jobr, char* jobt, 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, @@ -16194,12 +16194,12 @@ void LAPACK_sgesvj( 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, @@ -16983,16 +16983,16 @@ void LAPACK_zlagge( lapack_int* m, lapack_int* n, lapack_int* kl, 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 ); @@ -17177,7 +17177,7 @@ void LAPACK_dorcsd2by1( char* jobu1, char* jobu2, 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, @@ -17231,7 +17231,7 @@ void LAPACK_sorcsd2by1( char* jobu1, char* jobu2, 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, @@ -17277,7 +17277,7 @@ void LAPACK_zsyconv( char* uplo, char* way, 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, diff --git a/LAPACKE/src/lapacke_cgejsv.c b/LAPACKE/src/lapacke_cgejsv.c index 5bfb1553..fbf8d11c 100644 --- a/LAPACKE/src/lapacke_cgejsv.c +++ b/LAPACKE/src/lapacke_cgejsv.c @@ -41,10 +41,10 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv, { 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 : @@ -53,38 +53,38 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv, ( ( ( 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) : @@ -93,28 +93,28 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv, ( ( ( 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' ) ) && diff --git a/LAPACKE/src/lapacke_cgesvdx_work.c b/LAPACKE/src/lapacke_cgesvdx_work.c index f9b4a966..a5955ef4 100644 --- a/LAPACKE/src/lapacke_cgesvdx_work.c +++ b/LAPACKE/src/lapacke_cgesvdx_work.c @@ -38,7 +38,7 @@ lapack_int LAPACKE_cgesvdx_work( int matrix_layout, char jobu, char jobvt, char 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 ) { diff --git a/LAPACKE/src/lapacke_cgesvj_work.c b/LAPACKE/src/lapacke_cgesvj_work.c index 914813a9..e2bbbfec 100644 --- a/LAPACKE/src/lapacke_cgesvj_work.c +++ b/LAPACKE/src/lapacke_cgesvj_work.c @@ -34,8 +34,8 @@ #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, diff --git a/LAPACKE/src/lapacke_clarfb_work.c b/LAPACKE/src/lapacke_clarfb_work.c index ad386d05..1ed22377 100644 --- a/LAPACKE/src/lapacke_clarfb_work.c +++ b/LAPACKE/src/lapacke_clarfb_work.c @@ -44,7 +44,7 @@ lapack_int LAPACKE_clarfb_work( int matrix_layout, char side, char trans, 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, diff --git a/LAPACKE/src/lapacke_clascl.c b/LAPACKE/src/lapacke_clascl.c index d393eb5e..5e316955 100644 --- a/LAPACKE/src/lapacke_clascl.c +++ b/LAPACKE/src/lapacke_clascl.c @@ -34,8 +34,8 @@ #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 ) { diff --git a/LAPACKE/src/lapacke_clascl_work.c b/LAPACKE/src/lapacke_clascl_work.c index 5945c5c1..70a75f73 100644 --- a/LAPACKE/src/lapacke_clascl_work.c +++ b/LAPACKE/src/lapacke_clascl_work.c @@ -34,8 +34,8 @@ #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; diff --git a/LAPACKE/src/lapacke_claset.c b/LAPACKE/src/lapacke_claset.c index 5cf88392..cd6536c0 100644 --- a/LAPACKE/src/lapacke_claset.c +++ b/LAPACKE/src/lapacke_claset.c @@ -45,8 +45,8 @@ lapack_int LAPACKE_claset( int matrix_layout, char uplo, lapack_int m, } /***************************************************************************** -* 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 diff --git a/LAPACKE/src/lapacke_ctpqrt.c b/LAPACKE/src/lapacke_ctpqrt.c index e11ce784..8dfd8564 100644 --- a/LAPACKE/src/lapacke_ctpqrt.c +++ b/LAPACKE/src/lapacke_ctpqrt.c @@ -34,8 +34,8 @@ #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 ) { diff --git a/LAPACKE/src/lapacke_ctprfb.c b/LAPACKE/src/lapacke_ctprfb.c index d2e84106..f66469a2 100644 --- a/LAPACKE/src/lapacke_ctprfb.c +++ b/LAPACKE/src/lapacke_ctprfb.c @@ -84,7 +84,7 @@ lapack_int LAPACKE_ctprfb( int matrix_layout, char side, char trans, char direct 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 ); diff --git a/LAPACKE/src/lapacke_cuncsd2by1.c b/LAPACKE/src/lapacke_cuncsd2by1.c index 4b9cf7fe..e6749c1b 100644 --- a/LAPACKE/src/lapacke_cuncsd2by1.c +++ b/LAPACKE/src/lapacke_cuncsd2by1.c @@ -74,7 +74,7 @@ lapack_int LAPACKE_cuncsd2by1( int matrix_layout, char jobu1, char jobu2, 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 ); @@ -95,7 +95,7 @@ lapack_int LAPACKE_cuncsd2by1( int matrix_layout, char jobu1, char jobu2, 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 */ diff --git a/LAPACKE/src/lapacke_cuncsd2by1_work.c b/LAPACKE/src/lapacke_cuncsd2by1_work.c index 4ab11b18..fb0a0f7e 100644 --- a/LAPACKE/src/lapacke_cuncsd2by1_work.c +++ b/LAPACKE/src/lapacke_cuncsd2by1_work.c @@ -38,9 +38,9 @@ lapack_int LAPACKE_cuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, 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 ) { @@ -48,8 +48,8 @@ lapack_int LAPACKE_cuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, 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; diff --git a/LAPACKE/src/lapacke_dbdsvdx_work.c b/LAPACKE/src/lapacke_dbdsvdx_work.c index 29217a82..a795110f 100644 --- a/LAPACKE/src/lapacke_dbdsvdx_work.c +++ b/LAPACKE/src/lapacke_dbdsvdx_work.c @@ -37,7 +37,7 @@ lapack_int LAPACKE_dbdsvdx_work( int matrix_layout, char uplo, char jobz, char r 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; diff --git a/LAPACKE/src/lapacke_dgesvdx_work.c b/LAPACKE/src/lapacke_dgesvdx_work.c index 893cce0a..a5a2cb65 100644 --- a/LAPACKE/src/lapacke_dgesvdx_work.c +++ b/LAPACKE/src/lapacke_dgesvdx_work.c @@ -38,7 +38,7 @@ lapack_int LAPACKE_dgesvdx_work( int matrix_layout, char jobu, char jobvt, char 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; diff --git a/LAPACKE/src/lapacke_dlarfb_work.c b/LAPACKE/src/lapacke_dlarfb_work.c index 3fe48931..5c833db0 100644 --- a/LAPACKE/src/lapacke_dlarfb_work.c +++ b/LAPACKE/src/lapacke_dlarfb_work.c @@ -43,7 +43,7 @@ lapack_int LAPACKE_dlarfb_work( int matrix_layout, char side, char trans, 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, diff --git a/LAPACKE/src/lapacke_dlascl.c b/LAPACKE/src/lapacke_dlascl.c index 9729389f..b35b9b28 100644 --- a/LAPACKE/src/lapacke_dlascl.c +++ b/LAPACKE/src/lapacke_dlascl.c @@ -34,8 +34,8 @@ #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 ) { diff --git a/LAPACKE/src/lapacke_dlascl_work.c b/LAPACKE/src/lapacke_dlascl_work.c index 95870dd7..a20bf09e 100644 --- a/LAPACKE/src/lapacke_dlascl_work.c +++ b/LAPACKE/src/lapacke_dlascl_work.c @@ -34,8 +34,8 @@ #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; diff --git a/LAPACKE/src/lapacke_dlaset.c b/LAPACKE/src/lapacke_dlaset.c index 3a299e9b..c828485c 100644 --- a/LAPACKE/src/lapacke_dlaset.c +++ b/LAPACKE/src/lapacke_dlaset.c @@ -44,8 +44,8 @@ lapack_int LAPACKE_dlaset( int matrix_layout, char uplo, lapack_int m, } /***************************************************************************** -* 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 diff --git a/LAPACKE/src/lapacke_dorcsd2by1.c b/LAPACKE/src/lapacke_dorcsd2by1.c index 7c71cd47..9ffed487 100644 --- a/LAPACKE/src/lapacke_dorcsd2by1.c +++ b/LAPACKE/src/lapacke_dorcsd2by1.c @@ -69,7 +69,7 @@ lapack_int LAPACKE_dorcsd2by1( int matrix_layout, char jobu1, char jobu2, 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 ); @@ -84,7 +84,7 @@ lapack_int LAPACKE_dorcsd2by1( int matrix_layout, char jobu1, char jobu2, 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 */ diff --git a/LAPACKE/src/lapacke_dorcsd2by1_work.c b/LAPACKE/src/lapacke_dorcsd2by1_work.c index cea20f40..5cc39b1b 100644 --- a/LAPACKE/src/lapacke_dorcsd2by1_work.c +++ b/LAPACKE/src/lapacke_dorcsd2by1_work.c @@ -46,8 +46,8 @@ lapack_int LAPACKE_dorcsd2by1_work( int matrix_layout, char jobu1, char jobu2, 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; diff --git a/LAPACKE/src/lapacke_dsyconv.c b/LAPACKE/src/lapacke_dsyconv.c index 39be12ef..086ab083 100644 --- a/LAPACKE/src/lapacke_dsyconv.c +++ b/LAPACKE/src/lapacke_dsyconv.c @@ -47,7 +47,7 @@ lapack_int LAPACKE_dsyconv( int matrix_layout, char uplo, char way, lapack_int n return -5; } #endif - + /* Call middle-level interface */ info = LAPACKE_dsyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, e ); diff --git a/LAPACKE/src/lapacke_dtprfb.c b/LAPACKE/src/lapacke_dtprfb.c index 9db94653..7c4ce924 100644 --- a/LAPACKE/src/lapacke_dtprfb.c +++ b/LAPACKE/src/lapacke_dtprfb.c @@ -82,10 +82,10 @@ lapack_int LAPACKE_dtprfb( int matrix_layout, char side, char trans, char direct 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; diff --git a/LAPACKE/src/lapacke_sbdsvdx_work.c b/LAPACKE/src/lapacke_sbdsvdx_work.c index 214c412d..f632b3ea 100644 --- a/LAPACKE/src/lapacke_sbdsvdx_work.c +++ b/LAPACKE/src/lapacke_sbdsvdx_work.c @@ -37,7 +37,7 @@ lapack_int LAPACKE_sbdsvdx_work( int matrix_layout, char uplo, char jobz, char r 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; diff --git a/LAPACKE/src/lapacke_sgesvdx_work.c b/LAPACKE/src/lapacke_sgesvdx_work.c index 7bcf3b50..f7973f01 100644 --- a/LAPACKE/src/lapacke_sgesvdx_work.c +++ b/LAPACKE/src/lapacke_sgesvdx_work.c @@ -38,7 +38,7 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char 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; @@ -94,7 +94,7 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char 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 ) { @@ -102,7 +102,7 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char 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 ) { @@ -125,12 +125,12 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char 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: diff --git a/LAPACKE/src/lapacke_slarfb_work.c b/LAPACKE/src/lapacke_slarfb_work.c index 12b4c7b6..a537c394 100644 --- a/LAPACKE/src/lapacke_slarfb_work.c +++ b/LAPACKE/src/lapacke_slarfb_work.c @@ -43,7 +43,7 @@ lapack_int LAPACKE_slarfb_work( int matrix_layout, char side, char trans, 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, diff --git a/LAPACKE/src/lapacke_slascl_work.c b/LAPACKE/src/lapacke_slascl_work.c index e39db388..dac2a03f 100644 --- a/LAPACKE/src/lapacke_slascl_work.c +++ b/LAPACKE/src/lapacke_slascl_work.c @@ -34,8 +34,8 @@ #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; diff --git a/LAPACKE/src/lapacke_slaset.c b/LAPACKE/src/lapacke_slaset.c index 02af8724..2627d813 100644 --- a/LAPACKE/src/lapacke_slaset.c +++ b/LAPACKE/src/lapacke_slaset.c @@ -44,8 +44,8 @@ lapack_int LAPACKE_slaset( int matrix_layout, char uplo, lapack_int m, } /***************************************************************************** -* 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 diff --git a/LAPACKE/src/lapacke_sorcsd2by1.c b/LAPACKE/src/lapacke_sorcsd2by1.c index b924897d..9c958af6 100644 --- a/LAPACKE/src/lapacke_sorcsd2by1.c +++ b/LAPACKE/src/lapacke_sorcsd2by1.c @@ -69,7 +69,7 @@ lapack_int LAPACKE_sorcsd2by1( int matrix_layout, char jobu1, char jobu2, 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 ); @@ -84,7 +84,7 @@ lapack_int LAPACKE_sorcsd2by1( int matrix_layout, char jobu1, char jobu2, 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 */ diff --git a/LAPACKE/src/lapacke_sorcsd2by1_work.c b/LAPACKE/src/lapacke_sorcsd2by1_work.c index 5990a1e3..d361594c 100644 --- a/LAPACKE/src/lapacke_sorcsd2by1_work.c +++ b/LAPACKE/src/lapacke_sorcsd2by1_work.c @@ -46,8 +46,8 @@ lapack_int LAPACKE_sorcsd2by1_work( int matrix_layout, char jobu1, char jobu2, 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; diff --git a/LAPACKE/src/lapacke_ssyconv.c b/LAPACKE/src/lapacke_ssyconv.c index 044a3dac..f7019669 100644 --- a/LAPACKE/src/lapacke_ssyconv.c +++ b/LAPACKE/src/lapacke_ssyconv.c @@ -47,7 +47,7 @@ lapack_int LAPACKE_ssyconv( int matrix_layout, char uplo, char way, lapack_int n return -5; } #endif - + /* Call middle-level interface */ info = LAPACKE_ssyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, e ); diff --git a/LAPACKE/src/lapacke_stprfb.c b/LAPACKE/src/lapacke_stprfb.c index e9321854..13d0cc7e 100644 --- a/LAPACKE/src/lapacke_stprfb.c +++ b/LAPACKE/src/lapacke_stprfb.c @@ -82,7 +82,7 @@ lapack_int LAPACKE_stprfb( int matrix_layout, char side, char trans, char direct 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 ); diff --git a/LAPACKE/src/lapacke_zgejsv.c b/LAPACKE/src/lapacke_zgejsv.c index 18761eaa..6eababe5 100644 --- a/LAPACKE/src/lapacke_zgejsv.c +++ b/LAPACKE/src/lapacke_zgejsv.c @@ -41,10 +41,10 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv, { 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 : @@ -53,38 +53,38 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv, ( ( ( 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) : @@ -93,28 +93,28 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv, ( ( ( 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' ) ) && diff --git a/LAPACKE/src/lapacke_zgesvdx_work.c b/LAPACKE/src/lapacke_zgesvdx_work.c index 24966943..3070687a 100644 --- a/LAPACKE/src/lapacke_zgesvdx_work.c +++ b/LAPACKE/src/lapacke_zgesvdx_work.c @@ -38,8 +38,8 @@ lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char 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; diff --git a/LAPACKE/src/lapacke_zgesvj_work.c b/LAPACKE/src/lapacke_zgesvj_work.c index d48a5f5e..37e6c1ee 100644 --- a/LAPACKE/src/lapacke_zgesvj_work.c +++ b/LAPACKE/src/lapacke_zgesvj_work.c @@ -34,8 +34,8 @@ #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, diff --git a/LAPACKE/src/lapacke_zlarfb_work.c b/LAPACKE/src/lapacke_zlarfb_work.c index 9580f593..8e92e17b 100644 --- a/LAPACKE/src/lapacke_zlarfb_work.c +++ b/LAPACKE/src/lapacke_zlarfb_work.c @@ -44,7 +44,7 @@ lapack_int LAPACKE_zlarfb_work( int matrix_layout, char side, char trans, 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, diff --git a/LAPACKE/src/lapacke_zlascl.c b/LAPACKE/src/lapacke_zlascl.c index a0d382f1..de4b9c21 100644 --- a/LAPACKE/src/lapacke_zlascl.c +++ b/LAPACKE/src/lapacke_zlascl.c @@ -34,8 +34,8 @@ #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 ) { diff --git a/LAPACKE/src/lapacke_zlascl_work.c b/LAPACKE/src/lapacke_zlascl_work.c index 44775d93..7adfbc9e 100644 --- a/LAPACKE/src/lapacke_zlascl_work.c +++ b/LAPACKE/src/lapacke_zlascl_work.c @@ -34,8 +34,8 @@ #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; diff --git a/LAPACKE/src/lapacke_zlaset.c b/LAPACKE/src/lapacke_zlaset.c index 7de38f00..669ebc0a 100644 --- a/LAPACKE/src/lapacke_zlaset.c +++ b/LAPACKE/src/lapacke_zlaset.c @@ -45,8 +45,8 @@ lapack_int LAPACKE_zlaset( int matrix_layout, char uplo, lapack_int m, } /***************************************************************************** -* 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. *****************************************************************************/ diff --git a/LAPACKE/src/lapacke_ztprfb.c b/LAPACKE/src/lapacke_ztprfb.c index 944ca25e..b6894e8f 100644 --- a/LAPACKE/src/lapacke_ztprfb.c +++ b/LAPACKE/src/lapacke_ztprfb.c @@ -84,11 +84,11 @@ lapack_int LAPACKE_ztprfb( int matrix_layout, char side, char trans, char direct 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; diff --git a/LAPACKE/src/lapacke_zuncsd2by1.c b/LAPACKE/src/lapacke_zuncsd2by1.c index 65e6bd5c..f5dbd55b 100644 --- a/LAPACKE/src/lapacke_zuncsd2by1.c +++ b/LAPACKE/src/lapacke_zuncsd2by1.c @@ -74,7 +74,7 @@ lapack_int LAPACKE_zuncsd2by1( int matrix_layout, char jobu1, char jobu2, 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 ); @@ -95,7 +95,7 @@ lapack_int LAPACKE_zuncsd2by1( int matrix_layout, char jobu1, char jobu2, 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 */ diff --git a/LAPACKE/src/lapacke_zuncsd2by1_work.c b/LAPACKE/src/lapacke_zuncsd2by1_work.c index 9f0ad5fa..6d329610 100644 --- a/LAPACKE/src/lapacke_zuncsd2by1_work.c +++ b/LAPACKE/src/lapacke_zuncsd2by1_work.c @@ -38,9 +38,9 @@ lapack_int LAPACKE_zuncsd2by1_work( 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 ) { @@ -48,8 +48,8 @@ lapack_int LAPACKE_zuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, 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; |