--- rpl/lapack/lapack/zla_gercond_c.f 2011/11/21 22:19:49 1.7 +++ rpl/lapack/lapack/zla_gercond_c.f 2012/07/31 11:06:39 1.8 @@ -193,8 +193,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( 'ZLA_GERCOND_C', -INFO )