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:
parent
352efdd13a
commit
2b01132515
|
@ -222,8 +222,8 @@
|
|||
CALL CUNGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
|
||||
ELSE
|
||||
IF( M.GT.1 ) THEN
|
||||
CALL CUNGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK,
|
||||
$ -1, IINFO )
|
||||
CALL CUNGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1,
|
||||
$ IINFO )
|
||||
END IF
|
||||
END IF
|
||||
ELSE
|
||||
|
@ -231,8 +231,8 @@
|
|||
CALL CUNGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
|
||||
ELSE
|
||||
IF( N.GT.1 ) THEN
|
||||
CALL CUNGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK,
|
||||
$ -1, IINFO )
|
||||
CALL CUNGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1,
|
||||
$ IINFO )
|
||||
END IF
|
||||
END IF
|
||||
END IF
|
||||
|
|
|
@ -221,8 +221,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
|
||||
|
@ -230,8 +230,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
|
||||
|
|
|
@ -221,8 +221,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
|
||||
|
@ -230,8 +230,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
|
||||
|
|
|
@ -222,8 +222,8 @@
|
|||
CALL ZUNGQR( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
|
||||
ELSE
|
||||
IF( M.GT.1 ) THEN
|
||||
CALL ZUNGQR( M-1, M-1, M-1, A( 2, 2 ), LDA, TAU, WORK,
|
||||
$ -1, IINFO )
|
||||
CALL ZUNGQR( M-1, M-1, M-1, A, LDA, TAU, WORK, -1,
|
||||
$ IINFO )
|
||||
END IF
|
||||
END IF
|
||||
ELSE
|
||||
|
@ -231,8 +231,8 @@
|
|||
CALL ZUNGLQ( M, N, K, A, LDA, TAU, WORK, -1, IINFO )
|
||||
ELSE
|
||||
IF( N.GT.1 ) THEN
|
||||
CALL ZUNGLQ( N-1, N-1, N-1, A( 2, 2 ), LDA, TAU, WORK,
|
||||
$ -1, IINFO )
|
||||
CALL ZUNGLQ( N-1, N-1, N-1, A, LDA, TAU, WORK, -1,
|
||||
$ IINFO )
|
||||
END IF
|
||||
END IF
|
||||
END IF
|
||||
|
|
Loading…
Reference in New Issue