rpl/lapack/lapack/zbbcsd.f - diff

Return to zbbcsd.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.7, 2012/12/14 14:22:43	version 1.8, 2014/01/27 09:24:36
Line 322	Line 322
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2011	*> \date November 2013
*	*
*> \ingroup complex16OTHERcomputational	*> \ingroup complex16OTHERcomputational
*	*
Line 332	Line 332
$ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E,	$ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E,
$ B22D, B22E, RWORK, LRWORK, INFO )	$ B22D, B22E, RWORK, LRWORK, INFO )
*	*
* -- LAPACK computational routine (version 3.4.0) --	* -- LAPACK computational routine (version 3.5.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 2013
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS	CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS
Line 476	Line 476
* Initial deflation	* Initial deflation
*	*
IMAX = Q	IMAX = Q
DO WHILE( ( IMAX .GT. 1 ) .AND. ( PHI(IMAX-1) .EQ. ZERO ) )	DO WHILE( IMAX .GT. 1 )
	IF( PHI(IMAX-1) .NE. ZERO ) THEN
	EXIT
	END IF
IMAX = IMAX - 1	IMAX = IMAX - 1
END DO	END DO
IMIN = IMAX - 1	IMIN = IMAX - 1