Mercurial > octave-nkf

comparison libcruft/lapack/dorghr.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 DORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) 1 SUBROUTINE DORGHR( N, ILO, IHI, 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 IHI, ILO, INFO, LDA, LWORK, N 8 INTEGER IHI, ILO, INFO, LDA, LWORK, N
10 * .. 9 * ..
11 * .. Array Arguments .. 10 * .. Array Arguments ..
44 * 43 *
45 * TAU (input) DOUBLE PRECISION array, dimension (N-1) 44 * TAU (input) DOUBLE PRECISION array, dimension (N-1)
46 * TAU(i) must contain the scalar factor of the elementary 45 * TAU(i) must contain the scalar factor of the elementary
47 * reflector H(i), as returned by DGEHRD. 46 * reflector H(i), as returned by DGEHRD.
48 * 47 *
49 * WORK (workspace/output) DOUBLE PRECISION array, dimension (LWORK) 48 * WORK (workspace/output) DOUBLE PRECISION array, dimension (MAX(1,LWORK))
50 * On exit, if INFO = 0, WORK(1) returns the optimal LWORK. 49 * On exit, if INFO = 0, WORK(1) returns the optimal LWORK.
51 * 50 *
52 * LWORK (input) INTEGER 51 * LWORK (input) INTEGER
53 * The dimension of the array WORK. LWORK >= IHI-ILO. 52 * The dimension of the array WORK. LWORK >= IHI-ILO.
54 * For optimum performance LWORK >= (IHI-ILO)*NB, where NB is 53 * For optimum performance LWORK >= (IHI-ILO)*NB, where NB is