Mercurial > octave-nkf

comparison libcruft/lapack/dlamc3.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 f8b4692eb51c
children
comparison
equal deleted inserted replaced
7033:f0142f2afdc6 7034:68db500cb558
1 DOUBLE PRECISION FUNCTION DLAMC3( A, B ) 1 DOUBLE PRECISION FUNCTION DLAMC3( A, B )
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 DOUBLE PRECISION A, B 8 DOUBLE PRECISION A, B
10 * .. 9 * ..
11 * 10 *
17 * might hold one of these in a register. 16 * might hold one of these in a register.
18 * 17 *
19 * Arguments 18 * Arguments
20 * ========= 19 * =========
21 * 20 *
22 * A, B (input) DOUBLE PRECISION 21 * A (input) DOUBLE PRECISION
22 * B (input) DOUBLE PRECISION
23 * The values A and B. 23 * The values A and B.
24 * 24 *
25 * ===================================================================== 25 * =====================================================================
26 * 26 *
27 * .. Executable Statements .. 27 * .. Executable Statements ..