rpl/lapack/lapack/dlasq4.f - diff

Return to dlasq4.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.18, 2017/06/17 11:06:27	version 1.19, 2018/05/29 06:55:20
Line 151	Line 151
SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN,	SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN,
$ DN1, DN2, TAU, TTYPE, G )	$ DN1, DN2, TAU, TTYPE, G )
*	*
* -- LAPACK computational routine (version 3.7.0) --	* -- LAPACK computational routine (version 3.7.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..--
* June 2016	* June 2016
Line 240	Line 240
NP = NN - 9	NP = NN - 9
ELSE	ELSE
NP = NN - 2*PP	NP = NN - 2*PP
B2 = Z( NP-2 )
GAM = DN1	GAM = DN1
IF( Z( NP-4 ) .GT. Z( NP-2 ) )	IF( Z( NP-4 ) .GT. Z( NP-2 ) )
$ RETURN	$ RETURN