diff options
| -rw-r--r-- | SRC/dlaed7.f | 2 | ||||
| -rw-r--r-- | SRC/slaed7.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dlaed7.f b/SRC/dlaed7.f index 972c1bc5..3320b19f 100644 --- a/SRC/dlaed7.f +++ b/SRC/dlaed7.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 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 |