Mercurial > octave-nkf

comparison libcruft/lapack/dlahrd.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 DLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) 1 SUBROUTINE DLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY )
2 * 2 *
3 * -- LAPACK auxiliary routine (version 3.0) -- 3 * -- LAPACK auxiliary 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 K, LDA, LDT, LDY, N, NB 8 INTEGER K, LDA, LDT, LDY, N, NB
10 * .. 9 * ..
11 * .. Array Arguments .. 10 * .. Array Arguments ..
20 * matrix A so that elements below the k-th subdiagonal are zero. The 19 * matrix A so that elements below the k-th subdiagonal are zero. The
21 * reduction is performed by an orthogonal similarity transformation 20 * reduction is performed by an orthogonal similarity transformation
22 * Q' * A * Q. The routine returns the matrices V and T which determine 21 * Q' * A * Q. The routine returns the matrices V and T which determine
23 * Q as a block reflector I - V*T*V', and also the matrix Y = A * V * T. 22 * Q as a block reflector I - V*T*V', and also the matrix Y = A * V * T.
24 * 23 *
25 * This is an auxiliary routine called by DGEHRD. 24 * This is an OBSOLETE auxiliary routine.
25 * This routine will be 'deprecated' in a future release.
26 * Please use the new routine DLAHR2 instead.
26 * 27 *
27 * Arguments 28 * Arguments
28 * ========= 29 * =========
29 * 30 *
30 * N (input) INTEGER 31 * N (input) INTEGER