Mercurial > octave-nkf

comparison libcruft/lapack/dlamc4.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 SUBROUTINE DLAMC4( EMIN, START, BASE ) 1 SUBROUTINE DLAMC4( EMIN, START, BASE )
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 INTEGER BASE, EMIN 8 INTEGER BASE, EMIN
10 DOUBLE PRECISION START 9 DOUBLE PRECISION START
11 * .. 10 * ..
16 * DLAMC4 is a service routine for DLAMC2. 15 * DLAMC4 is a service routine for DLAMC2.
17 * 16 *
18 * Arguments 17 * Arguments
19 * ========= 18 * =========
20 * 19 *
21 * EMIN (output) EMIN 20 * EMIN (output) INTEGER
22 * The minimum exponent before (gradual) underflow, computed by 21 * The minimum exponent before (gradual) underflow, computed by
23 * setting A = START and dividing by BASE until the previous A 22 * setting A = START and dividing by BASE until the previous A
24 * can not be recovered. 23 * can not be recovered.
25 * 24 *
26 * START (input) DOUBLE PRECISION 25 * START (input) DOUBLE PRECISION