Skip to content

Commit 7e35d25

Browse files
authored
Merge pull request #3198 from martin-frbg/lapack539
Apply fixes from Reference-LAPACK PR468 and 539 for array declarations in ?ORGBR/?UNGBR
2 parents 8e95a1e + 2b01132 commit 7e35d25

File tree

4 files changed

+16
-16
lines changed

4 files changed

+16
-16
lines changed

lapack-netlib/SRC/cungbr.f

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -222,17 +222,17 @@ SUBROUTINE CUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO )
222222
CALL CUNGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
223223
ELSE
224224
IF( M.GT.1 ) THEN
225-
CALL CUNGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK,
226-
$ -1, IINFO )
225+
CALL CUNGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1,
226+
$ IINFO )
227227
END IF
228228
END IF
229229
ELSE
230230
IF( K.LT.N ) THEN
231231
CALL CUNGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
232232
ELSE
233233
IF( N.GT.1 ) THEN
234-
CALL CUNGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK,
235-
$ -1, IINFO )
234+
CALL CUNGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1,
235+
$ IINFO )
236236
END IF
237237
END IF
238238
END IF

lapack-netlib/SRC/dorgbr.f

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -221,17 +221,17 @@ SUBROUTINE DORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO )
221221
CALL DORGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
222222
ELSE
223223
IF( M.GT.1 ) THEN
224-
CALL DORGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK,
225-
$ -1, IINFO )
224+
CALL DORGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1,
225+
$ IINFO )
226226
END IF
227227
END IF
228228
ELSE
229229
IF( K.LT.N ) THEN
230230
CALL DORGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
231231
ELSE
232232
IF( N.GT.1 ) THEN
233-
CALL DORGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK,
234-
$ -1, IINFO )
233+
CALL DORGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1,
234+
$ IINFO )
235235
END IF
236236
END IF
237237
END IF

lapack-netlib/SRC/sorgbr.f

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -221,17 +221,17 @@ SUBROUTINE SORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO )
221221
CALL SORGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
222222
ELSE
223223
IF( M.GT.1 ) THEN
224-
CALL SORGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK,
225-
$ -1, IINFO )
224+
CALL SORGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1,
225+
$ IINFO )
226226
END IF
227227
END IF
228228
ELSE
229229
IF( K.LT.N ) THEN
230230
CALL SORGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
231231
ELSE
232232
IF( N.GT.1 ) THEN
233-
CALL SORGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK,
234-
$ -1, IINFO )
233+
CALL SORGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1,
234+
$ IINFO )
235235
END IF
236236
END IF
237237
END IF

lapack-netlib/SRC/zungbr.f

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -222,17 +222,17 @@ SUBROUTINE ZUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO )
222222
CALL ZUNGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
223223
ELSE
224224
IF( M.GT.1 ) THEN
225-
CALL ZUNGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK,
226-
$ -1, IINFO )
225+
CALL ZUNGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1,
226+
$ IINFO )
227227
END IF
228228
END IF
229229
ELSE
230230
IF( K.LT.N ) THEN
231231
CALL ZUNGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
232232
ELSE
233233
IF( N.GT.1 ) THEN
234-
CALL ZUNGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK,
235-
$ -1, IINFO )
234+
CALL ZUNGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1,
235+
$ IINFO )
236236
END IF
237237
END IF
238238
END IF

0 commit comments

Comments
 (0)