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