diff options
Diffstat (limited to 'SRC/cla_gercond_c.f')
| -rw-r--r-- | SRC/cla_gercond_c.f | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/SRC/cla_gercond_c.f b/SRC/cla_gercond_c.f index 97d18a79..6a516897 100644 --- a/SRC/cla_gercond_c.f +++ b/SRC/cla_gercond_c.f @@ -192,8 +192,13 @@ NOTRANS = LSAME( TRANS, 'N' ) IF ( .NOT. NOTRANS .AND. .NOT. LSAME( TRANS, 'T' ) .AND. .NOT. $ LSAME( TRANS, 'C' ) ) THEN + INFO = -1 ELSE IF( N.LT.0 ) THEN INFO = -2 + ELSE IF( LDA.LT.MAX( 1, N ) ) THEN + INFO = -4 + ELSE IF( LDAF.LT.MAX( 1, N ) ) THEN + INFO = -6 END IF IF( INFO.NE.0 ) THEN CALL XERBLA( 'CLA_GERCOND_C', -INFO ) |