floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Clean up misdeclaration of the dummy stand-in for A in ?ORGBR/?UNGBR workspace queries (Reference-LAPACK PR 468 and 530)

This commit is contained in:
Martin Kroeker 2021-04-28 19:20:08 +02:00 committed by GitHub
parent 352efdd13a
commit 2b01132515
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lapack-netlib/SRC/cungbr.f
View File

@ -222,8 +222,8 @@
CALL CUNGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) CALL CUNGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
ELSE ELSE
IF( M.GT.1 ) THEN IF( M.GT.1 ) THEN
CALL CUNGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK, CALL CUNGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1,
$ -1, IINFO ) $ IINFO )
END IF END IF
END IF END IF
ELSE ELSE
@ -231,8 +231,8 @@
CALL CUNGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) CALL CUNGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
ELSE ELSE
IF( N.GT.1 ) THEN IF( N.GT.1 ) THEN
CALL CUNGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK, CALL CUNGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1,
$ -1, IINFO ) $ IINFO )
END IF END IF
END IF END IF
END IF END IF

8
lapack-netlib/SRC/dorgbr.f
View File

@ -221,8 +221,8 @@
CALL DORGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) CALL DORGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
ELSE ELSE
IF( M.GT.1 ) THEN IF( M.GT.1 ) THEN
CALL DORGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK, CALL DORGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1,
$ -1, IINFO ) $ IINFO )
END IF END IF
END IF END IF
ELSE ELSE
@ -230,8 +230,8 @@
CALL DORGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) CALL DORGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
ELSE ELSE
IF( N.GT.1 ) THEN IF( N.GT.1 ) THEN
CALL DORGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK, CALL DORGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1,
$ -1, IINFO ) $ IINFO )
END IF END IF
END IF END IF
END IF END IF

8
lapack-netlib/SRC/sorgbr.f
View File

@ -221,8 +221,8 @@
CALL SORGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) CALL SORGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
ELSE ELSE
IF( M.GT.1 ) THEN IF( M.GT.1 ) THEN
CALL SORGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK, CALL SORGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1,
$ -1, IINFO ) $ IINFO )
END IF END IF
END IF END IF
ELSE ELSE
@ -230,8 +230,8 @@
CALL SORGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) CALL SORGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
ELSE ELSE
IF( N.GT.1 ) THEN IF( N.GT.1 ) THEN
CALL SORGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK, CALL SORGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1,
$ -1, IINFO ) $ IINFO )
END IF END IF
END IF END IF
END IF END IF

8
lapack-netlib/SRC/zungbr.f
View File

@ -222,8 +222,8 @@
CALL ZUNGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) CALL ZUNGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
ELSE ELSE
IF( M.GT.1 ) THEN IF( M.GT.1 ) THEN
CALL ZUNGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK, CALL ZUNGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1,
$ -1, IINFO ) $ IINFO )
END IF END IF
END IF END IF
ELSE ELSE
@ -231,8 +231,8 @@
CALL ZUNGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO ) CALL ZUNGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
ELSE ELSE
IF( N.GT.1 ) THEN IF( N.GT.1 ) THEN
CALL ZUNGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK, CALL ZUNGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1,
$ -1, IINFO ) $ IINFO )
END IF END IF
END IF END IF
END IF END IF