rpl/lapack/lapack/dstebz.f - diff

Return to dstebz.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.7, 2010/12/21 13:53:38	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