SUBROUTINE DORGRQ( M, N, K, A, LDA, TAU, WORK, LDWORK, INFO) INTEGER M, N, K, LDA, LDWORK, INFO DOUBLE PRECISION A(LDA,*), TAU(*), WORK(*) SUBROUTINE DORGRQ_64( M, N, K, A, LDA, TAU, WORK, LDWORK, INFO) INTEGER*8 M, N, K, LDA, LDWORK, INFO DOUBLE PRECISION A(LDA,*), TAU(*), WORK(*)
SUBROUTINE ORGRQ( M, [N], [K], A, [LDA], TAU, [WORK], [LDWORK], * [INFO]) INTEGER :: M, N, K, LDA, LDWORK, INFO REAL(8), DIMENSION(:) :: TAU, WORK REAL(8), DIMENSION(:,:) :: A SUBROUTINE ORGRQ_64( M, [N], [K], A, [LDA], TAU, [WORK], [LDWORK], * [INFO]) INTEGER(8) :: M, N, K, LDA, LDWORK, INFO REAL(8), DIMENSION(:) :: TAU, WORK REAL(8), DIMENSION(:,:) :: A
void dorgrq(int m, int n, int k, double *a, int lda, double *tau, int *info);
void dorgrq_64(long m, long n, long k, double *a, long lda, double *tau, long *info);
Q = H(1) H(2) . . . H(k)
as returned by SGERQF.
If LDWORK = -1, then a workspace query is assumed; the routine only calculates the optimal size of the WORK array, returns this value as the first entry of the WORK array, and no error message related to LDWORK is issued by XERBLA.