small fix in larf1f and larf1l, #1011

Author: EduardFedorenkov

SRC/clarf1l.f

@@ -244,7 +244,7 @@ SUBROUTINE CLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
 *           w(1:lastc,1) := C(1:lastc,1:lastv-1) * v(1:lastv-1,1)
 *
             CALL CGEMV( 'No transpose', LASTC, LASTV - 1, ONE, C,
-     $                   LDC, V, INCV, ZERO, WORK, 1 )
+     $                  LDC, V, INCV, ZERO, WORK, 1 )
 *
 *           w(1:lastc,1) += C(1:lastc,lastv) * v(lastv,1)
 *

SRC/slarf1f.f

@@ -202,7 +202,7 @@ SUBROUTINE SLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
 *        w(1:lastc,1) := C(2:lastv,1:lastc)**T * v(2:lastv,1)
 *
          CALL SGEMV( 'Transpose', LASTV - 1, LASTC, ONE, C( 2, 1 ),
-     $        LDC, V( 1 + INCV ), INCV, ZERO, WORK, 1 )
+     $               LDC, V( 1 + INCV ), INCV, ZERO, WORK, 1 )
 *
 *        w(1:lastc,1) += v(1,1) * C(1,1:lastc)**T
 *
@@ -214,8 +214,8 @@ SUBROUTINE SLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
 *
 *        C(2:lastv,1:lastc) += - tau * v(2:lastv,1) * w(1:lastc,1)**T
 *
-         CALL SGER( LASTV - 1, LASTC, -TAU, V( 1 + INCV ), INCV, WORK,
-     $        1, C( 2, 1 ), LDC )
+         CALL SGER( LASTV - 1, LASTC, -TAU, V( 1 + INCV ), INCV,
+     $              WORK, 1, C( 2, 1 ), LDC )
             END IF
       ELSE
 *
@@ -230,8 +230,9 @@ SUBROUTINE SLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
 *
 *           w(1:lastc,1) := C(1:lastc,2:lastv) * v(2:lastv,1)
 *
-            CALL SGEMV( 'No transpose', LASTC, LASTV - 1, ONE, 
-     $           C( 1, 2 ), LDC, V( 1 + INCV ), INCV, ZERO, WORK, 1 )
+            CALL SGEMV( 'No transpose', LASTC, LASTV - 1, ONE,
+     $                  C( 1, 2 ), LDC, V( 1 + INCV ), INCV, ZERO,
+     $                  WORK, 1 )
 *
 *           w(1:lastc,1) += v(1,1) * C(1:lastc,1)
 *
@@ -244,7 +245,7 @@ SUBROUTINE SLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
 *           C(1:lastc,2:lastv) += - tau * w(1:lastc,1) * v(2:lastv)**T
 *
             CALL SGER( LASTC, LASTV - 1, -TAU, WORK, 1,
-     $           V( 1 + INCV ), INCV, C( 1, 2 ), LDC )
+     $                 V( 1 + INCV ), INCV, C( 1, 2 ), LDC )
          END IF
       END IF
       RETURN

SRC/slarf1l.f

@@ -204,7 +204,7 @@ SUBROUTINE SLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
 *           w(1:lastc,1) := C(1:lastv-1,1:lastc)**T * v(1:lastv-1,1)
 *
             CALL SGEMV( 'Transpose', LASTV - 1, LASTC, ONE, C, LDC,
-     $           V, INCV, ZERO, WORK, 1 )
+     $                  V, INCV, ZERO, WORK, 1 )
 *
 *           w(1:lastc,1) += C(lastv,1:lastc)**T * v(lastv,1)
 *
@@ -217,7 +217,7 @@ SUBROUTINE SLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
 *           C(1:lastv-1,1:lastc) += - tau * v(1:lastv-1,1) * w(1:lastc,1)**T
 *
             CALL SGER( LASTV - 1, LASTC, -TAU, V, INCV, WORK, 1, C,
-     $           LDC)
+     $                 LDC)
          END IF
       ELSE
 *
@@ -233,7 +233,7 @@ SUBROUTINE SLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
 *           w(1:lastc,1) := C(1:lastc,1:lastv-1) * v(1:lastv-1,1)
 *
             CALL SGEMV( 'No transpose', LASTC, LASTV - 1, ONE, C,
-     $           LDC, V, INCV, ZERO, WORK, 1 )
+     $                  LDC, V, INCV, ZERO, WORK, 1 )
 *
 *           w(1:lastc,1) += C(1:lastc,lastv) * v(lastv,1)
 *
@@ -246,7 +246,7 @@ SUBROUTINE SLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
 *           C(1:lastc,1:lastv-1) += - tau * w(1:lastc,1) * v(1:lastv-1)**T
 *
             CALL SGER( LASTC, LASTV - 1, -TAU, WORK, 1, V,
-     $           INCV, C, LDC )
+     $                 INCV, C, LDC )
          END IF
       END IF
       RETURN