Mercurial > octave-nkf
diff libcruft/lapack/zlantr.f @ 7034:68db500cb558
[project @ 2007-10-16 18:54:19 by jwe]
author | jwe |
---|---|
date | Tue, 16 Oct 2007 18:54:23 +0000 |
parents | 6c6ff9b82577 |
children |
line wrap: on
line diff
--- a/libcruft/lapack/zlantr.f Tue Oct 16 17:46:44 2007 +0000 +++ b/libcruft/lapack/zlantr.f Tue Oct 16 18:54:23 2007 +0000 @@ -1,10 +1,9 @@ DOUBLE PRECISION FUNCTION ZLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.0) -- -* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., -* Courant Institute, Argonne National Lab, and Rice University -* October 31, 1992 +* -- LAPACK auxiliary routine (version 3.1) -- +* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. +* November 2006 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO @@ -38,7 +37,7 @@ * where norm1 denotes the one norm of a matrix (maximum column sum), * normI denotes the infinity norm of a matrix (maximum row sum) and * normF denotes the Frobenius norm of a matrix (square root of sum of -* squares). Note that max(abs(A(i,j))) is not a matrix norm. +* squares). Note that max(abs(A(i,j))) is not a consistent matrix norm. * * Arguments * ========= @@ -80,7 +79,7 @@ * LDA (input) INTEGER * The leading dimension of the array A. LDA >= max(M,1). * -* WORK (workspace) DOUBLE PRECISION array, dimension (LWORK), +* WORK (workspace) DOUBLE PRECISION array, dimension (MAX(1,LWORK)), * where LWORK >= M when NORM = 'I'; otherwise, WORK is not * referenced. *