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
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
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
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
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
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
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
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