Mercurial > octave-nkf
comparison libcruft/lapack/zunglq.f @ 7034:68db500cb558
[project @ 2007-10-16 18:54:19 by jwe]
author | jwe |
---|---|
date | Tue, 16 Oct 2007 18:54:23 +0000 |
parents | 15cddaacbc2d |
children |
comparison
equal
deleted
inserted
replaced
7033:f0142f2afdc6 | 7034:68db500cb558 |
---|---|
1 SUBROUTINE ZUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) | 1 SUBROUTINE ZUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) |
2 * | 2 * |
3 * -- LAPACK routine (version 3.0) -- | 3 * -- LAPACK routine (version 3.1) -- |
4 * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., | 4 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. |
5 * Courant Institute, Argonne National Lab, and Rice University | 5 * November 2006 |
6 * June 30, 1999 | |
7 * | 6 * |
8 * .. Scalar Arguments .. | 7 * .. Scalar Arguments .. |
9 INTEGER INFO, K, LDA, LWORK, M, N | 8 INTEGER INFO, K, LDA, LWORK, M, N |
10 * .. | 9 * .. |
11 * .. Array Arguments .. | 10 * .. Array Arguments .. |
47 * | 46 * |
48 * TAU (input) COMPLEX*16 array, dimension (K) | 47 * TAU (input) COMPLEX*16 array, dimension (K) |
49 * TAU(i) must contain the scalar factor of the elementary | 48 * TAU(i) must contain the scalar factor of the elementary |
50 * reflector H(i), as returned by ZGELQF. | 49 * reflector H(i), as returned by ZGELQF. |
51 * | 50 * |
52 * WORK (workspace/output) COMPLEX*16 array, dimension (LWORK) | 51 * WORK (workspace/output) COMPLEX*16 array, dimension (MAX(1,LWORK)) |
53 * On exit, if INFO = 0, WORK(1) returns the optimal LWORK. | 52 * On exit, if INFO = 0, WORK(1) returns the optimal LWORK. |
54 * | 53 * |
55 * LWORK (input) INTEGER | 54 * LWORK (input) INTEGER |
56 * The dimension of the array WORK. LWORK >= max(1,M). | 55 * The dimension of the array WORK. LWORK >= max(1,M). |
57 * For optimum performance LWORK >= M*NB, where NB is | 56 * For optimum performance LWORK >= M*NB, where NB is |