SUBROUTINE DORGLQ( M, N, K, A, LDA, TAU, WORK, LDWORK, INFO) INTEGER M, N, K, LDA, LDWORK, INFO DOUBLE PRECISION A(LDA,*), TAU(*), WORK(*) SUBROUTINE DORGLQ_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 ORGLQ( 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 ORGLQ_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 dorglq(int m, int n, int k, double *a, int lda, double *tau, int *info);
void dorglq_64(long m, long n, long k, double *a, long lda, double *tau, long *info);
Q = H(k) . . . H(2) H(1)
as returned by SGELQF.
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.