|
version 1.4, 2010/08/06 15:32:29
|
version 1.5, 2010/08/07 13:18:07
|
|
Line 4
|
Line 4
|
| $ WORK, IWORK, INFO ) |
$ WORK, IWORK, INFO ) |
| IMPLICIT NONE |
IMPLICIT NONE |
| * |
* |
| * -- LAPACK auxiliary routine (version 3.2) -- |
* -- LAPACK auxiliary routine (version 3.2.2) -- |
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| * November 2006 |
* June 2010 |
| * |
* |
| * .. Scalar Arguments .. |
* .. Scalar Arguments .. |
| CHARACTER RANGE |
CHARACTER RANGE |
|
Line 91
|
Line 91
|
| * An interval [LEFT,RIGHT] has converged if |
* An interval [LEFT,RIGHT] has converged if |
| * RIGHT-LEFT.LT.MAX( RTOL1*GAP, RTOL2*MAX(|LEFT|,|RIGHT|) ) |
* RIGHT-LEFT.LT.MAX( RTOL1*GAP, RTOL2*MAX(|LEFT|,|RIGHT|) ) |
| * |
* |
| * SPLTOL (input) DOUBLE PRECISION |
* SPLTOL (input) DOUBLE PRECISION |
| * The threshold for splitting. |
* The threshold for splitting. |
| * |
* |
| * NSPLIT (output) INTEGER |
* NSPLIT (output) INTEGER |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dlarre.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack