rpl/lapack/lapack/dgesc2.f - diff

Return to dgesc2.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.19, 2018/05/29 07:17:52	version 1.20, 2020/05/21 21:45:57
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 151	Line 151
* ..	* ..
* .. 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