rpl/lapack/lapack/zla_syrfsx_extended.f - diff

Return to zla_syrfsx_extended.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.6, 2011/11/21 22:19:50	version 1.7, 2012/07/31 11:06:39
Line 373	Line 373
*> \verbatim	*> \verbatim
*> INFO is INTEGER	*> INFO is INTEGER
*> = 0: Successful exit.	*> = 0: Successful exit.
*> < 0: if INFO = -i, the ith argument to ZSYTRS had an illegal	*> < 0: if INFO = -i, the ith argument to ZLA_HERFSX_EXTENDED had an illegal
*> value	*> value
*> \endverbatim	*> \endverbatim
*	*
Line 428	Line 428
$ DZRAT, PREVNORMDX, PREV_DZ_Z, DXRATMAX,	$ DZRAT, PREVNORMDX, PREV_DZ_Z, DXRATMAX,
$ DZRATMAX, DX_X, DZ_Z, FINAL_DX_X, FINAL_DZ_Z,	$ DZRATMAX, DX_X, DZ_Z, FINAL_DX_X, FINAL_DZ_Z,
$ EPS, HUGEVAL, INCR_THRESH	$ EPS, HUGEVAL, INCR_THRESH
LOGICAL INCR_PREC	LOGICAL INCR_PREC, UPPER
COMPLEX*16 ZDUM	COMPLEX*16 ZDUM
* ..	* ..
* .. Parameters ..	* .. Parameters ..
Line 479	Line 479
* ..	* ..
* .. Executable Statements ..	* .. Executable Statements ..
*	*
IF ( INFO.NE.0 ) RETURN	INFO = 0
	UPPER = LSAME( UPLO, 'U' )
	IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN
	INFO = -2
	ELSE IF( N.LT.0 ) THEN
	INFO = -3
	ELSE IF( NRHS.LT.0 ) THEN
	INFO = -4
	ELSE IF( LDA.LT.MAX( 1, N ) ) THEN
	INFO = -6
	ELSE IF( LDAF.LT.MAX( 1, N ) ) THEN
	INFO = -8
	ELSE IF( LDB.LT.MAX( 1, N ) ) THEN
	INFO = -13
	ELSE IF( LDY.LT.MAX( 1, N ) ) THEN
	INFO = -15
	END IF
	IF( INFO.NE.0 ) THEN
	CALL XERBLA( 'ZLA_HERFSX_EXTENDED', -INFO )
	RETURN
	END IF
EPS = DLAMCH( 'Epsilon' )	EPS = DLAMCH( 'Epsilon' )
HUGEVAL = DLAMCH( 'Overflow' )	HUGEVAL = DLAMCH( 'Overflow' )
* Force HUGEVAL to Inf	* Force HUGEVAL to Inf