Mercurial > octave-nkf

comparison libcruft/lapack/zlange.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 DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK ) 1 DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK )
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 * October 31, 1992
7 * 6 *
8 * .. Scalar Arguments .. 7 * .. Scalar Arguments ..
9 CHARACTER NORM 8 CHARACTER NORM
10 INTEGER LDA, M, N 9 INTEGER LDA, M, N
11 * .. 10 * ..
35 * ( normF(A), NORM = 'F', 'f', 'E' or 'e' 34 * ( normF(A), NORM = 'F', 'f', 'E' or 'e'
36 * 35 *
37 * where norm1 denotes the one norm of a matrix (maximum column sum), 36 * where norm1 denotes the one norm of a matrix (maximum column sum),
38 * normI denotes the infinity norm of a matrix (maximum row sum) and 37 * normI denotes the infinity norm of a matrix (maximum row sum) and
39 * normF denotes the Frobenius norm of a matrix (square root of sum of 38 * normF denotes the Frobenius norm of a matrix (square root of sum of
40 * squares). Note that max(abs(A(i,j))) is not a matrix norm. 39 * squares). Note that max(abs(A(i,j))) is not a consistent matrix norm.
41 * 40 *
42 * Arguments 41 * Arguments
43 * ========= 42 * =========
44 * 43 *
45 * NORM (input) CHARACTER*1 44 * NORM (input) CHARACTER*1
58 * The m by n matrix A. 57 * The m by n matrix A.
59 * 58 *
60 * LDA (input) INTEGER 59 * LDA (input) INTEGER
61 * The leading dimension of the array A. LDA >= max(M,1). 60 * The leading dimension of the array A. LDA >= max(M,1).
62 * 61 *
63 * WORK (workspace) DOUBLE PRECISION array, dimension (LWORK), 62 * WORK (workspace) DOUBLE PRECISION array, dimension (MAX(1,LWORK)),
64 * where LWORK >= M when NORM = 'I'; otherwise, WORK is not 63 * where LWORK >= M when NORM = 'I'; otherwise, WORK is not
65 * referenced. 64 * referenced.
66 * 65 *
67 * ===================================================================== 66 * =====================================================================
68 * 67 *