rpl/lapack/lapack/zpoequb.f - diff

Return to zpoequb.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.13, 2017/06/17 11:06:59	version 1.15, 2023/08/07 08:39:33
Line 112	Line 112
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date December 2016
*
*> \ingroup complex16POcomputational	*> \ingroup complex16POcomputational
*	*
* =====================================================================	* =====================================================================
SUBROUTINE ZPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO )	SUBROUTINE ZPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO )
*	*
* -- LAPACK computational routine (version 3.7.0) --	* -- LAPACK computational routine --
* -- 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..--
* December 2016
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER INFO, LDA, N	INTEGER INFO, LDA, N
Line 183	Line 180
*	*
* Find the minimum and maximum diagonal elements.	* Find the minimum and maximum diagonal elements.
*	*
S( 1 ) = A( 1, 1 )	S( 1 ) = DBLE( A( 1, 1 ) )
SMIN = S( 1 )	SMIN = S( 1 )
AMAX = S( 1 )	AMAX = S( 1 )
DO 10 I = 2, N	DO 10 I = 2, N
S( I ) = A( I, I )	S( I ) = DBLE( A( I, I ) )
SMIN = MIN( SMIN, S( I ) )	SMIN = MIN( SMIN, S( I ) )
AMAX = MAX( AMAX, S( I ) )	AMAX = MAX( AMAX, S( I ) )
10 CONTINUE	10 CONTINUE