SUBROUTINE DTZRQF( M, N, A, LDA, TAU, INFO) INTEGER M, N, LDA, INFO DOUBLE PRECISION A(LDA,*), TAU(*) SUBROUTINE DTZRQF_64( M, N, A, LDA, TAU, INFO) INTEGER*8 M, N, LDA, INFO DOUBLE PRECISION A(LDA,*), TAU(*)
SUBROUTINE TZRQF( M, N, A, [LDA], TAU, [INFO]) INTEGER :: M, N, LDA, INFO REAL(8), DIMENSION(:) :: TAU REAL(8), DIMENSION(:,:) :: A SUBROUTINE TZRQF_64( M, N, A, [LDA], TAU, [INFO]) INTEGER(8) :: M, N, LDA, INFO REAL(8), DIMENSION(:) :: TAU REAL(8), DIMENSION(:,:) :: A
void dtzrqf(int m, int n, double *a, int lda, double *tau, int *info);
void dtzrqf_64(long m, long n, double *a, long lda, double *tau, long *info);
STZRQF reduces the M-by-N ( M<=N ) real upper trapezoidal matrix A to upper triangular form by means of orthogonal transformations.
The upper trapezoidal matrix A is factored as
A = ( R 0 ) * Z,
where Z is an N-by-N orthogonal matrix and R is an M-by-M upper triangular matrix.