implementing into dorm2l.f

Author: jprhyne

SRC/dlarf1f.f

@@ -262,11 +262,11 @@ SUBROUTINE DORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC,
 *
 *        Apply H(i)
 *
-         AII = A( NQ-K+I, I )
-         A( NQ-K+I, I ) = ONE
-         CALL DLARF( SIDE, MI, NI, A( 1, I ), 1, TAU( I ), C, LDC,
+         !AII = A( NQ-K+I, I )
+         !A( NQ-K+I, I ) = ONE
+         CALL DLARF1L( SIDE, MI, NI, A( 1, I ), 1, TAU( I ), C, LDC,
      $               WORK )
-         A( NQ-K+I, I ) = AII
+         !A( NQ-K+I, I ) = AII
    10 CONTINUE
       RETURN
 *