diff options
Diffstat (limited to 'CBLAS/src/cblas_chemv.c')
| -rw-r--r-- | CBLAS/src/cblas_chemv.c | 20 |
1 files changed, 10 insertions, 10 deletions
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; |