summaryrefslogtreecommitdiff
path: root/SRC/chgeqz.f
diff options
context:
space:
mode:
Diffstat (limited to 'SRC/chgeqz.f')
-rw-r--r--SRC/chgeqz.f2
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/chgeqz.f b/SRC/chgeqz.f
index 7d2e810d..3cfcaab2 100644
--- a/SRC/chgeqz.f
+++ b/SRC/chgeqz.f
@@ -665,7 +665,7 @@
CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ),
$ 1 )
ELSE
- CALL CSCAL( ILAST, SIGNBC, H( ILAST, ILAST ), 1 )
+ CALL CSCAL( 1, SIGNBC, H( ILAST, ILAST ), 1 )
END IF
IF( ILZ )
$ CALL CSCAL( N, SIGNBC, Z( 1, ILAST ), 1 )