Skip to content

Commit 3c209c6

Browse files
authored
Fix line reflow on addition of _64 symbol suffix
1 parent bc0c38f commit 3c209c6

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

SRC/DEPRECATED/sgeqpf.f

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -218,8 +218,8 @@ SUBROUTINE SGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO )
218218
MA = MIN( ITEMP, M )
219219
CALL SGEQR2( M, MA, A, LDA, TAU, WORK, INFO )
220220
IF( MA.LT.N ) THEN
221-
CALL SORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA, TAU,
222-
$ A( 1, MA+1 ), LDA, WORK, INFO )
221+
CALL SORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA,
222+
$ TAU, A( 1, MA+1 ), LDA, WORK, INFO )
223223
END IF
224224
END IF
225225
*

0 commit comments

Comments
 (0)