|
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 ) |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to zla_gercond_c.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack