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