Mercurial > octave-nkf

comparison libcruft/lapack/dlansy.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 DLANSY( NORM, UPLO, N, A, LDA, WORK ) 1 DOUBLE PRECISION FUNCTION DLANSY( NORM, UPLO, 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, UPLO 8 CHARACTER NORM, UPLO
10 INTEGER LDA, N 9 INTEGER LDA, N
11 * .. 10 * ..
34 * ( normF(A), NORM = 'F', 'f', 'E' or 'e' 33 * ( normF(A), NORM = 'F', 'f', 'E' or 'e'
35 * 34 *
36 * where norm1 denotes the one norm of a matrix (maximum column sum), 35 * where norm1 denotes the one norm of a matrix (maximum column sum),
37 * normI denotes the infinity norm of a matrix (maximum row sum) and 36 * normI denotes the infinity norm of a matrix (maximum row sum) and
38 * normF denotes the Frobenius norm of a matrix (square root of sum of 37 * normF denotes the Frobenius norm of a matrix (square root of sum of
39 * squares). Note that max(abs(A(i,j))) is not a matrix norm. 38 * squares). Note that max(abs(A(i,j))) is not a consistent matrix norm.
40 * 39 *
41 * Arguments 40 * Arguments
42 * ========= 41 * =========
43 * 42 *
44 * NORM (input) CHARACTER*1 43 * NORM (input) CHARACTER*1
65 * not referenced. 64 * not referenced.
66 * 65 *
67 * LDA (input) INTEGER 66 * LDA (input) INTEGER
68 * The leading dimension of the array A. LDA >= max(N,1). 67 * The leading dimension of the array A. LDA >= max(N,1).
69 * 68 *
70 * WORK (workspace) DOUBLE PRECISION array, dimension (LWORK), 69 * WORK (workspace) DOUBLE PRECISION array, dimension (MAX(1,LWORK)),
71 * where LWORK >= N when NORM = 'I' or '1' or 'O'; otherwise, 70 * where LWORK >= N when NORM = 'I' or '1' or 'O'; otherwise,
72 * WORK is not referenced. 71 * WORK is not referenced.
73 * 72 *
74 * ===================================================================== 73 * =====================================================================
75 * 74 *