From bc0c38f247f90f815a93f6ca0829004120745da4 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 19 Jan 2025 22:58:19 +0100 Subject: [PATCH] Fix line reflow on addition of _64 symbol suffix --- SRC/DEPRECATED/dgeqpf.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SRC/DEPRECATED/dgeqpf.f b/SRC/DEPRECATED/dgeqpf.f index 36f6fb50e..067da29d0 100644 --- a/SRC/DEPRECATED/dgeqpf.f +++ b/SRC/DEPRECATED/dgeqpf.f @@ -218,8 +218,8 @@ SUBROUTINE DGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) MA = MIN( ITEMP, M ) CALL DGEQR2( M, MA, A, LDA, TAU, WORK, INFO ) IF( MA.LT.N ) THEN - CALL DORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA, TAU, - $ A( 1, MA+1 ), LDA, WORK, INFO ) + CALL DORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA, + $ TAU, A( 1, MA+1 ), LDA, WORK, INFO ) END IF END IF *