rpl/lapack/lapack/zla_gercond_c.f - diff

Return to zla_gercond_c.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.6, 2011/11/21 20:43:13	version 1.9, 2012/08/22 09:48:34
Line 193	Line 193
NOTRANS = LSAME( TRANS, 'N' )	NOTRANS = LSAME( TRANS, 'N' )
IF ( .NOT. NOTRANS .AND. .NOT. LSAME( TRANS, 'T' ) .AND. .NOT.	IF ( .NOT. NOTRANS .AND. .NOT. LSAME( TRANS, 'T' ) .AND. .NOT.
$ LSAME( TRANS, 'C' ) ) THEN	$ LSAME( TRANS, 'C' ) ) THEN
	INFO = -1
ELSE IF( N.LT.0 ) THEN	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_GERCOND_C', -INFO )	CALL XERBLA( 'ZLA_GERCOND_C', -INFO )