rpl/lapack/lapack/dgesc2.f - diff

Return to dgesc2.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dgesc2.f between versions 1.18 and 1.21

version 1.18, 2018/05/29 06:55:16	version 1.21, 2023/08/07 08:38:49
Line 90	Line 90
*> \verbatim	*> \verbatim
*> SCALE is DOUBLE PRECISION	*> SCALE is DOUBLE PRECISION
*> On exit, SCALE contains the scale factor. SCALE is chosen	*> On exit, SCALE contains the scale factor. SCALE is chosen
*> 0 <= SCALE <= 1 to prevent owerflow in the solution.	*> 0 <= SCALE <= 1 to prevent overflow in the solution.
*> \endverbatim	*> \endverbatim
*	*
* Authors:	* Authors:
Line 101	Line 101
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date November 2017
*
*> \ingroup doubleGEauxiliary	*> \ingroup doubleGEauxiliary
*	*
*> \par Contributors:	*> \par Contributors:
Line 114	Line 112
* =====================================================================	* =====================================================================
SUBROUTINE DGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE )	SUBROUTINE DGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE )
*	*
* -- LAPACK auxiliary routine (version 3.8.0) --	* -- LAPACK auxiliary 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..--
* November 2017
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER LDA, N	INTEGER LDA, N
Line 151	Line 148
* ..	* ..
* .. Executable Statements ..	* .. Executable Statements ..
*	*
* Set constant to control owerflow	* Set constant to control overflow
*	*
EPS = DLAMCH( 'P' )	EPS = DLAMCH( 'P' )
SMLNUM = DLAMCH( 'S' ) / EPS	SMLNUM = DLAMCH( 'S' ) / EPS

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.18
changed lines
	Added in v.1.21