diff options
| -rw-r--r-- | SRC/chgeqz.f | 2 | ||||
| -rw-r--r-- | SRC/zhgeqz.f | 2 |
2 files changed, 2 insertions, 2 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 ) diff --git a/SRC/zhgeqz.f b/SRC/zhgeqz.f index 3df67545..2699e1ed 100644 --- a/SRC/zhgeqz.f +++ b/SRC/zhgeqz.f @@ -666,7 +666,7 @@ CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), $ 1 ) ELSE - CALL ZSCAL( ILAST, SIGNBC, H( ILAST, ILAST ), 1 ) + CALL ZSCAL( 1, SIGNBC, H( ILAST, ILAST ), 1 ) END IF IF( ILZ ) $ CALL ZSCAL( N, SIGNBC, Z( 1, ILAST ), 1 ) |