Lots of trailing whitespaces in the files of Syd. Cleaning this. No big deal.

1 files changed, 21 insertions, 21 deletions

diff --git a/SRC/dlamswlq.f b/SRC/dlamswlq.f
index 6230e65f..3bf0e798 100644
--- a/SRC/dlamswlq.f
+++ b/SRC/dlamswlq.f
@@ -1,8 +1,8 @@
-* 
+*
 *  Definition:
 *  ===========
 *
-*      SUBROUTINE DLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, 
+*      SUBROUTINE DLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T,
 *     $                LDT, C, LDC, WORK, LWORK, INFO )
 *
 *
@@ -17,15 +17,15 @@
 *  =============
 *>
 *> \verbatim
-*> 
+*>
 *>    DLAMQRTS overwrites the general real M-by-N matrix C with
 *>
-*>                     
+*>
 *>                    SIDE = 'L'     SIDE = 'R'
 *>    TRANS = 'N':      Q * C          C * Q
 *>    TRANS = 'T':      Q**T * C       C * Q**T
 *>    where Q is a real orthogonal matrix defined as the product of blocked
-*>    elementary reflectors computed by short wide LQ 
+*>    elementary reflectors computed by short wide LQ
 *>    factorization (DLASWLQ)
 *> \endverbatim
 *
@@ -59,28 +59,28 @@
 *>          The number of elementary reflectors whose product defines
 *>          the matrix Q.
 *>          M >= K >= 0;
-*>          
+*>
 *> \endverbatim
 *> \param[in] MB
 *> \verbatim
 *>          MB is INTEGER
-*>          The row block size to be used in the blocked QR.  
-*>          M >= MB >= 1 
+*>          The row block size to be used in the blocked QR.
+*>          M >= MB >= 1
 *> \endverbatim
 *>
 *> \param[in] NB
 *> \verbatim
 *>          NB is INTEGER
-*>          The column block size to be used in the blocked QR.  
+*>          The column block size to be used in the blocked QR.
 *>          NB > M.
 *> \endverbatim
 *>
 *> \param[in] NB
 *> \verbatim
 *>          NB is INTEGER
-*>          The block size to be used in the blocked QR.  
+*>          The block size to be used in the blocked QR.
 *>                MB > M.
-*>         
+*>
 *> \endverbatim
 *>
 *> \param[in,out] A
@@ -101,7 +101,7 @@
 *>
 *> \param[in] T
 *> \verbatim
-*>          T is DOUBLE PRECISION array, dimension 
+*>          T is DOUBLE PRECISION array, dimension
 *>          ( M * Number of blocks(CEIL(N-K/NB-K)),
 *>          The blocked upper triangular block reflectors stored in compact form
 *>          as a sequence of upper triangular blocks.  See below
@@ -125,7 +125,7 @@
 *> \param[out] WORK
 *> \verbatim
 *>         (workspace) DOUBLE PRECISION array, dimension (MAX(1,LWORK))
-*>        
+*>
 *> \endverbatim
 *> \param[in] LWORK
 *> \verbatim
@@ -177,7 +177,7 @@
 *> block reflectors, stored in array T(1:LDT,(i-1)*M+1:i*M).
 *> The last Q(k) may use fewer rows.
 *> For more information see Further Details in TPQRT.
-*> 
+*>
 *> For more details of the overall algorithm, see the description of
 *> Sequential TSQR in Section 2.2 of [1].
 *>
@@ -187,7 +187,7 @@
 *> \endverbatim
 *>
 *  =====================================================================
-      SUBROUTINE DLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T,  
+      SUBROUTINE DLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T,
      $    LDT, C, LDC, WORK, LWORK, INFO )
 *
 *  -- LAPACK computational routine (version 3.5.0) --
@@ -266,11 +266,11 @@
 *
       IF( MIN(M,N,K).EQ.0 ) THEN
         RETURN
-      END IF 
+      END IF
 *
       IF((NB.LE.K).OR.(NB.GE.MAX(M,N,K))) THEN
-        CALL DGEMLQT( SIDE, TRANS, M, N, K, MB, A, LDA, 
-     $        T, LDT, C, LDC, WORK, INFO)  
+        CALL DGEMLQT( SIDE, TRANS, M, N, K, MB, A, LDA,
+     $        T, LDT, C, LDC, WORK, INFO)
         RETURN
       END IF
 *
@@ -354,7 +354,7 @@
 *
 *         Multiply Q to the current block of C (1:M,I:I+MB)
 *
-             CTR = CTR - 1   
+             CTR = CTR - 1
              CALL DTPMLQT('R','N', M, NB-K, K, 0, MB, A(1, I), LDA,
      $        T(1,CTR*K+1), LDT, C(1,1), LDC,
      $        C(1,I), LDC, WORK, INFO )
@@ -389,7 +389,7 @@
          IF(II.LE.N) THEN
 *
 *       Multiply Q to the last block of C
-*  
+*
           CALL DTPMLQT('R','T',M , KK, K, 0,MB, A(1,II), LDA,
      $      T(1,CTR*K+1),LDT, C(1,1), LDC,
      $      C(1,II), LDC, WORK, INFO )
@@ -403,4 +403,4 @@
 *
 *     End of DLAMSWLQ
 *
-      END
\ No newline at end of file
+      END