SUBROUTINE ZUNGQR( M, N, K, A, LDA, TAU, WORKIN, LWORKIN, INFO) DOUBLE COMPLEX A(LDA,*), TAU(*), WORKIN(*) INTEGER M, N, K, LDA, LWORKIN, INFO SUBROUTINE ZUNGQR_64( M, N, K, A, LDA, TAU, WORKIN, LWORKIN, INFO) DOUBLE COMPLEX A(LDA,*), TAU(*), WORKIN(*) INTEGER*8 M, N, K, LDA, LWORKIN, INFO
SUBROUTINE UNGQR( M, [N], [K], A, [LDA], TAU, [WORKIN], [LWORKIN], * [INFO]) COMPLEX(8), DIMENSION(:) :: TAU, WORKIN COMPLEX(8), DIMENSION(:,:) :: A INTEGER :: M, N, K, LDA, LWORKIN, INFO SUBROUTINE UNGQR_64( M, [N], [K], A, [LDA], TAU, [WORKIN], [LWORKIN], * [INFO]) COMPLEX(8), DIMENSION(:) :: TAU, WORKIN COMPLEX(8), DIMENSION(:,:) :: A INTEGER(8) :: M, N, K, LDA, LWORKIN, INFO
void zungqr(int m, int n, int k, doublecomplex *a, int lda, doublecomplex *tau, int *info);
void zungqr_64(long m, long n, long k, doublecomplex *a, long lda, doublecomplex *tau, long *info);
Q = H(1) H(2) . . . H(k)
as returned by CGEQRF.
If LWORKIN = -1, then a workspace query is assumed; the routine only calculates the optimal size of the WORKIN array, returns this value as the first entry of the WORKIN array, and no error message related to LWORKIN is issued by XERBLA.