version 1.5, 2010/08/07 13:22:26
|
version 1.8, 2011/07/22 07:38:11
|
Line 2
|
Line 2
|
$ M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, |
$ M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, |
$ INFO ) |
$ INFO ) |
* |
* |
* -- LAPACK routine (version 3.2) -- |
* -- LAPACK routine (version 3.3.1) -- |
* -- 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 |
* -- April 2011 -- |
* 8-18-00: Increase FUDGE factor for T3E (eca) |
* 8-18-00: Increase FUDGE factor for T3E (eca) |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
Line 301
|
Line 301
|
WORK( N ) = ZERO |
WORK( N ) = ZERO |
PIVMIN = ONE |
PIVMIN = ONE |
* |
* |
*DIR$ NOVECTOR |
|
DO 10 J = 2, N |
DO 10 J = 2, N |
TMP1 = E( J-1 )**2 |
TMP1 = E( J-1 )**2 |
IF( ABS( D( J )*D( J-1 ) )*ULP**2+SAFEMN.GT.TMP1 ) THEN |
IF( ABS( D( J )*D( J-1 ) )*ULP**2+SAFEMN.GT.TMP1 ) THEN |