rpl/lapack/lapack/dlasd0.f - diff

Return to dlasd0.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dlasd0.f between versions 1.10 and 1.17

version 1.10, 2011/11/21 20:42:58	version 1.17, 2016/08/27 15:34:31
Line 1	Line 1
*> \brief \b DLASD0	*> \brief \b DLASD0 computes the singular values of a real upper bidiagonal n-by-m matrix B with diagonal d and off-diagonal e. Used by sbdsdc.
*	*
* =========== DOCUMENTATION ===========	* =========== DOCUMENTATION ===========
*	*
Line 138	Line 138
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2011	*> \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.0) --	* -- 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..--
* November 2011	* 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

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.10
changed lines
	Added in v.1.17