From 3c209c6bdf524869d18d00119aeae4962740c3b3 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 19 Jan 2025 22:59:21 +0100 Subject: [PATCH] Fix line reflow on addition of _64 symbol suffix --- SRC/DEPRECATED/sgeqpf.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SRC/DEPRECATED/sgeqpf.f b/SRC/DEPRECATED/sgeqpf.f index 7963bd8e7..f74a084a0 100644 --- a/SRC/DEPRECATED/sgeqpf.f +++ b/SRC/DEPRECATED/sgeqpf.f @@ -218,8 +218,8 @@ SUBROUTINE SGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) MA = MIN( ITEMP, M ) CALL SGEQR2( M, MA, A, LDA, TAU, WORK, INFO ) IF( MA.LT.N ) THEN - CALL SORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA, TAU, - $ A( 1, MA+1 ), LDA, WORK, INFO ) + CALL SORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA, + $ TAU, A( 1, MA+1 ), LDA, WORK, INFO ) END IF END IF *