summaryrefslogtreecommitdiff
path: root/CBLAS/src/cblas_sspmv.c
diff options
context:
space:
mode:
authorHans Johnson <hans-johnson@uiowa.edu>2016-07-09 10:53:01 -0500
committerHans Johnson <hans-johnson@uiowa.edu>2016-07-09 10:53:07 -0500
commit78d32fd2a6d030d388981f096014c764ff7898f5 (patch)
treee4ea803bffff2515d0af4f38dcac6c50d77d5cb1 /CBLAS/src/cblas_sspmv.c
parentf8fb0842d55c34ad2c26da58e9f55a3f10e52d0b (diff)
downloadlapack-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 =================================================
Diffstat (limited to 'CBLAS/src/cblas_sspmv.c')
-rw-r--r--CBLAS/src/cblas_sspmv.c10
1 files changed, 5 insertions, 5 deletions
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);