rpl/lapack/lapack/dlasd3.f - diff

Return to dlasd3.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.15, 2014/01/27 09:28:22	version 1.16, 2015/11/26 11:44:18
Line 210	Line 210
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date September 2012	*> \date November 2015
*	*
*> \ingroup auxOTHERauxiliary	*> \ingroup auxOTHERauxiliary
*	*
Line 225	Line 225
$ LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z,	$ LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z,
$ INFO )	$ INFO )
*	*
* -- LAPACK auxiliary routine (version 3.4.2) --	* -- LAPACK auxiliary routine (version 3.6.0) --
* -- 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..--
* September 2012	* November 2015
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR,	INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR,
Line 351	Line 351
CALL DLASD4( K, J, DSIGMA, Z, U( 1, J ), RHO, D( J ),	CALL DLASD4( K, J, DSIGMA, Z, U( 1, J ), RHO, D( J ),
$ VT( 1, J ), INFO )	$ VT( 1, J ), INFO )
*	*
* If the zero finder fails, the computation is terminated.	* If the zero finder fails, report the convergence failure.
*	*
IF( INFO.NE.0 ) THEN	IF( INFO.NE.0 ) THEN
RETURN	RETURN