Mercurial > octave-nkf
comparison libcruft/lapack/zunmlq.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 ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, | 1 SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, |
2 $ WORK, LWORK, INFO ) | 2 $ WORK, LWORK, INFO ) |
3 * | 3 * |
4 * -- LAPACK routine (version 3.0) -- | 4 * -- LAPACK routine (version 3.1) -- |
5 * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., | 5 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. |
6 * Courant Institute, Argonne National Lab, and Rice University | 6 * November 2006 |
7 * June 30, 1999 | |
8 * | 7 * |
9 * .. Scalar Arguments .. | 8 * .. Scalar Arguments .. |
10 CHARACTER SIDE, TRANS | 9 CHARACTER SIDE, TRANS |
11 INTEGER INFO, K, LDA, LDC, LWORK, M, N | 10 INTEGER INFO, K, LDA, LDC, LWORK, M, N |
12 * .. | 11 * .. |
74 * On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q. | 73 * On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q. |
75 * | 74 * |
76 * LDC (input) INTEGER | 75 * LDC (input) INTEGER |
77 * The leading dimension of the array C. LDC >= max(1,M). | 76 * The leading dimension of the array C. LDC >= max(1,M). |
78 * | 77 * |
79 * WORK (workspace/output) COMPLEX*16 array, dimension (LWORK) | 78 * WORK (workspace/output) COMPLEX*16 array, dimension (MAX(1,LWORK)) |
80 * On exit, if INFO = 0, WORK(1) returns the optimal LWORK. | 79 * On exit, if INFO = 0, WORK(1) returns the optimal LWORK. |
81 * | 80 * |
82 * LWORK (input) INTEGER | 81 * LWORK (input) INTEGER |
83 * The dimension of the array WORK. | 82 * The dimension of the array WORK. |
84 * If SIDE = 'L', LWORK >= max(1,N); | 83 * If SIDE = 'L', LWORK >= max(1,N); |