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 ) |