rpl/lapack/lapack/dlaqr1.f - diff

Return to dlaqr1.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.18, 2018/05/29 07:17:58	version 1.19, 2020/05/21 21:46:00
Line 69	Line 69
*> \verbatim	*> \verbatim
*> LDH is INTEGER	*> LDH is INTEGER
*> The leading dimension of H as declared in	*> The leading dimension of H as declared in
*> the calling procedure. LDH.GE.N	*> the calling procedure. LDH >= N
*> \endverbatim	*> \endverbatim
*>	*>
*> \param[in] SR1	*> \param[in] SR1
Line 147	Line 147
INTRINSIC ABS	INTRINSIC ABS
* ..	* ..
* .. Executable Statements ..	* .. Executable Statements ..
	*
	* Quick return if possible
	*
	IF( N.NE.2 .AND. N.NE.3 ) THEN
	RETURN
	END IF
	*
IF( N.EQ.2 ) THEN	IF( N.EQ.2 ) THEN
S = ABS( H( 1, 1 )-SR2 ) + ABS( SI2 ) + ABS( H( 2, 1 ) )	S = ABS( H( 1, 1 )-SR2 ) + ABS( SI2 ) + ABS( H( 2, 1 ) )
IF( S.EQ.ZERO ) THEN	IF( S.EQ.ZERO ) THEN