diff options
Diffstat (limited to 'SRC/cla_gercond_x.f')
-rw-r--r-- | SRC/cla_gercond_x.f | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/SRC/cla_gercond_x.f b/SRC/cla_gercond_x.f index 586c22c0..a458f2b7 100644 --- a/SRC/cla_gercond_x.f +++ b/SRC/cla_gercond_x.f @@ -189,6 +189,10 @@ 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_X', -INFO ) |