From ec12db9a6c23a01d21455676628deba071ead690 Mon Sep 17 00:00:00 2001 From: Edward Smyth Date: Fri, 16 Apr 2021 14:50:30 +0100 Subject: [PATCH] Copy recent changes from xUNGBR to xORGBR --- SRC/dorgbr.f | 8 ++++---- SRC/sorgbr.f | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/SRC/dorgbr.f b/SRC/dorgbr.f index d493da74d..1b242ff97 100644 --- a/SRC/dorgbr.f +++ b/SRC/dorgbr.f @@ -218,8 +218,8 @@ CALL DORGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) ELSE IF( M.GT.1 ) THEN - CALL DORGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK, - $ -1, IINFO ) + CALL DORGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1, + $ IINFO ) END IF END IF ELSE @@ -227,8 +227,8 @@ CALL DORGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) ELSE IF( N.GT.1 ) THEN - CALL DORGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK, - $ -1, IINFO ) + CALL DORGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1, + $ IINFO ) END IF END IF END IF diff --git a/SRC/sorgbr.f b/SRC/sorgbr.f index 68dbbf909..8f15523d4 100644 --- a/SRC/sorgbr.f +++ b/SRC/sorgbr.f @@ -218,8 +218,8 @@ CALL SORGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) ELSE IF( M.GT.1 ) THEN - CALL SORGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK, - $ -1, IINFO ) + CALL SORGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1, + $ IINFO ) END IF END IF ELSE @@ -227,8 +227,8 @@ CALL SORGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) ELSE IF( N.GT.1 ) THEN - CALL SORGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK, - $ -1, IINFO ) + CALL SORGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1, + $ IINFO ) END IF END IF END IF