Mercurial > octave-nkf

comparison libcruft/lapack/zunmqr.f @ 7034:68db500cb558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, 1 SUBROUTINE ZUNMQR( 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);