diff options
Diffstat (limited to 'SRC/chgeqz.f')
-rw-r--r-- | SRC/chgeqz.f | 2 |
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 ) |