Remove all trailing whitespace except lapack-netlib
Signed-off-by: Timothy Gu <timothygu99@gmail.com>
This commit is contained in:
@@ -37,7 +37,7 @@ SBLAS2OBJS = \
|
||||
|
||||
SBLAS3OBJS = \
|
||||
sgemmf.$(SUFFIX) ssymmf.$(SUFFIX) strmmf.$(SUFFIX) \
|
||||
strsmf.$(SUFFIX) ssyrkf.$(SUFFIX) ssyr2kf.$(SUFFIX)
|
||||
strsmf.$(SUFFIX) ssyrkf.$(SUFFIX) ssyr2kf.$(SUFFIX)
|
||||
|
||||
DBLAS1OBJS = \
|
||||
daxpyf.$(SUFFIX) dswapf.$(SUFFIX) \
|
||||
@@ -59,7 +59,7 @@ DBLAS2OBJS = \
|
||||
|
||||
DBLAS3OBJS = \
|
||||
dgemmf.$(SUFFIX) dsymmf.$(SUFFIX) dtrmmf.$(SUFFIX) \
|
||||
dtrsmf.$(SUFFIX) dsyrkf.$(SUFFIX) dsyr2kf.$(SUFFIX)
|
||||
dtrsmf.$(SUFFIX) dsyrkf.$(SUFFIX) dsyr2kf.$(SUFFIX)
|
||||
|
||||
CBLAS1OBJS = \
|
||||
caxpyf.$(SUFFIX) caxpycf.$(SUFFIX) cswapf.$(SUFFIX) \
|
||||
@@ -140,7 +140,7 @@ DBLASOBJS += \
|
||||
dpotf2f.$(SUFFIX) dpotrff.$(SUFFIX) dtrti2f.$(SUFFIX) dtrtrif.$(SUFFIX) \
|
||||
dlaswpf.$(SUFFIX) dgetrsf.$(SUFFIX) dgesvf.$(SUFFIX) dpotrif.$(SUFFIX) \
|
||||
|
||||
QBLASOBJS +=
|
||||
QBLASOBJS +=
|
||||
# \
|
||||
qgetf2f.$(SUFFIX) qgetrff.$(SUFFIX) qlauu2f.$(SUFFIX) qlauumf.$(SUFFIX) \
|
||||
qpotf2f.$(SUFFIX) qpotrff.$(SUFFIX) qtrti2f.$(SUFFIX) qtrtrif.$(SUFFIX) \
|
||||
@@ -156,7 +156,7 @@ ZBLASOBJS += \
|
||||
zpotf2f.$(SUFFIX) zpotrff.$(SUFFIX) ztrti2f.$(SUFFIX) ztrtrif.$(SUFFIX) \
|
||||
zlaswpf.$(SUFFIX) zgetrsf.$(SUFFIX) zgesvf.$(SUFFIX) zpotrif.$(SUFFIX) \
|
||||
|
||||
XBLASOBJS +=
|
||||
XBLASOBJS +=
|
||||
# \
|
||||
xgetf2f.$(SUFFIX) xgetrff.$(SUFFIX) xlauu2f.$(SUFFIX) xlauumf.$(SUFFIX) \
|
||||
xpotf2f.$(SUFFIX) xpotrff.$(SUFFIX) xtrti2f.$(SUFFIX) xtrtrif.$(SUFFIX) \
|
||||
|
||||
@@ -78,7 +78,7 @@
|
||||
* supplied as zero then Y need not be set on input.
|
||||
* Unchanged on exit.
|
||||
*
|
||||
* Y (input/output) COMPLEX array, dimension at least
|
||||
* Y (input/output) COMPLEX array, dimension at least
|
||||
* ( 1 + ( N - 1 )*abs( INCY ) ).
|
||||
* Before entry, the incremented array Y must contain the n
|
||||
* element vector y. On exit, Y is overwritten by the updated
|
||||
|
||||
@@ -140,7 +140,7 @@
|
||||
IF( N.EQ.0 )
|
||||
$ RETURN
|
||||
*
|
||||
NOCONJ = LSAME( TRANS, 'N' ) .OR. LSAME( TRANS, 'T' )
|
||||
NOCONJ = LSAME( TRANS, 'N' ) .OR. LSAME( TRANS, 'T' )
|
||||
NOUNIT = LSAME( DIAG , 'N' )
|
||||
*
|
||||
* Set up the start point in X if the increment is not unity. This
|
||||
|
||||
@@ -3,7 +3,7 @@
|
||||
* -- LAPACK routine (version 3.0) --
|
||||
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
|
||||
* Courant Institute, Argonne National Lab, and Rice University
|
||||
* March 31, 1993
|
||||
* March 31, 1993
|
||||
*
|
||||
* .. Scalar Arguments ..
|
||||
INTEGER INFO, LDA, M, N
|
||||
|
||||
@@ -3,7 +3,7 @@
|
||||
* -- LAPACK routine (version 3.0) --
|
||||
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
|
||||
* Courant Institute, Argonne National Lab, and Rice University
|
||||
* March 31, 1993
|
||||
* March 31, 1993
|
||||
*
|
||||
* .. Scalar Arguments ..
|
||||
CHARACTER TRANS
|
||||
|
||||
@@ -3,7 +3,7 @@
|
||||
* -- LAPACK routine (version 3.0) --
|
||||
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
|
||||
* Courant Institute, Argonne National Lab, and Rice University
|
||||
* March 31, 1993
|
||||
* March 31, 1993
|
||||
*
|
||||
* .. Scalar Arguments ..
|
||||
CHARACTER UPLO
|
||||
|
||||
@@ -3,7 +3,7 @@
|
||||
* -- LAPACK routine (version 3.0) --
|
||||
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
|
||||
* Courant Institute, Argonne National Lab, and Rice University
|
||||
* March 31, 1993
|
||||
* March 31, 1993
|
||||
*
|
||||
* .. Scalar Arguments ..
|
||||
CHARACTER DIAG, UPLO
|
||||
|
||||
@@ -140,7 +140,7 @@
|
||||
IF( N.EQ.0 )
|
||||
$ RETURN
|
||||
*
|
||||
NOCONJ = LSAME( TRANS, 'N' ) .OR. LSAME( TRANS, 'T' )
|
||||
NOCONJ = LSAME( TRANS, 'N' ) .OR. LSAME( TRANS, 'T' )
|
||||
NOUNIT = LSAME( DIAG , 'N' )
|
||||
*
|
||||
* Set up the start point in X if the increment is not unity. This
|
||||
|
||||
@@ -174,7 +174,7 @@
|
||||
X( I ) = X( I ) + TEMP*A( I, J )
|
||||
ELSE
|
||||
X( I ) = X( I ) + TEMP*DCONJG(A( I, J ))
|
||||
ENDIF
|
||||
ENDIF
|
||||
10 CONTINUE
|
||||
IF (NOCONJ) THEN
|
||||
IF( NOUNIT )
|
||||
|
||||
Reference in New Issue
Block a user