rpl/lapack/lapack/dlasd0.f - diff

Return to dlasd0.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 138	Line 138
*> \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 152	Line 152
SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK,	SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK,
$ WORK, INFO )	$ WORK, 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, LDU, LDVT, N, SMLSIZ, SQRE	INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
Line 302	Line 302
CALL DLASD1( NL, NR, SQREI, D( NLF ), ALPHA, BETA,	CALL DLASD1( NL, NR, SQREI, D( NLF ), ALPHA, BETA,
$ U( NLF, NLF ), LDU, VT( NLF, NLF ), LDVT,	$ U( NLF, NLF ), LDU, VT( NLF, NLF ), LDVT,
$ IWORK( IDXQC ), IWORK( IWK ), WORK, INFO )	$ IWORK( IDXQC ), IWORK( IWK ), WORK, INFO )
	*
	* Report the possible convergence failure.
	*
IF( INFO.NE.0 ) THEN	IF( INFO.NE.0 ) THEN
RETURN	RETURN
END IF	END IF