version 1.7, 2011/11/21 22:19:49
|
version 1.8, 2012/07/31 11:06:39
|
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 ) |