diff options
Diffstat (limited to 'SRC/slaed7.f')
| -rw-r--r-- | SRC/slaed7.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/slaed7.f b/SRC/slaed7.f index 766e1c7b..c0c790a4 100644 --- a/SRC/slaed7.f +++ b/SRC/slaed7.f @@ -304,7 +304,7 @@ ELSE IF( N.LT.0 ) THEN INFO = -2 ELSE IF( ICOMPQ.EQ.1 .AND. QSIZ.LT.N ) THEN - INFO = -4 + INFO = -3 ELSE IF( LDQ.LT.MAX( 1, N ) ) THEN INFO = -9 ELSE IF( MIN( 1, N ).GT.CUTPNT .OR. N.LT.CUTPNT ) THEN |