rpl/lapack/lapack/zla_syrcond_c.f - diff

Return to zla_syrcond_c.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.7, 2011/11/21 22:19:50	version 1.8, 2012/07/31 11:06:39
Line 162	Line 162
INTEGER KASE	INTEGER KASE
DOUBLE PRECISION AINVNM, ANORM, TMP	DOUBLE PRECISION AINVNM, ANORM, TMP
INTEGER I, J	INTEGER I, J
LOGICAL UP	LOGICAL UP, UPPER
COMPLEX*16 ZDUM	COMPLEX*16 ZDUM
* ..	* ..
* .. Local Arrays ..	* .. Local Arrays ..
Line 189	Line 189
ZLA_SYRCOND_C = 0.0D+0	ZLA_SYRCOND_C = 0.0D+0
*	*
INFO = 0	INFO = 0
IF( N.LT.0 ) THEN	UPPER = LSAME( UPLO, 'U' )
	IF( .NOT.UPPER .AND. .NOT.LSAME( UPLO, 'L' ) ) THEN
	INFO = -1
	ELSE IF( N.LT.0 ) THEN
INFO = -2	INFO = -2
	ELSE IF( LDA.LT.MAX( 1, N ) ) THEN
	INFO = -4
	ELSE IF( LDAF.LT.MAX( 1, N ) ) THEN
	INFO = -6
END IF	END IF
IF( INFO.NE.0 ) THEN	IF( INFO.NE.0 ) THEN
CALL XERBLA( 'ZLA_SYRCOND_C', -INFO )	CALL XERBLA( 'ZLA_SYRCOND_C', -INFO )