( some spaces removed )

diff --git a/SRC/zlarft.f b/SRC/zlarft.f
index b9ac939763c88c37c71acc4c6da3d926ff418f2f..c309786a462e025d0f1d606785f7461d846dc7fd 100644 (file)
--- a/SRC/zlarft.f
+++ b/SRC/zlarft.f
@@ -303,7 +303,7 @@
 *
                      CALL ZGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ),
      $                           V( I+1, J ), LDV, V( I, J ), LDV,
-     $                           ONE, T( I+1, I ), LDT )                     
+     $                           ONE, T( I+1, I ), LDT )
                   END IF
 *
 *                 T(i+1:k,i) := T(i+1:k,i+1:k) * T(i+1:k,i)