diff options
Diffstat (limited to 'SRC/chgeqz.f')
| -rw-r--r-- | SRC/chgeqz.f | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/SRC/chgeqz.f b/SRC/chgeqz.f index 61afd4b7..b7e50fb0 100644 --- a/SRC/chgeqz.f +++ b/SRC/chgeqz.f @@ -743,8 +743,7 @@ * * Exceptional shift. Chosen for no particularly good reason. * - ESHIFT = ESHIFT + CONJG( ( ASCALE*H( ILAST-1, ILAST ) ) / - $ ( BSCALE*T( ILAST-1, ILAST-1 ) ) ) + ESHIFT = ESHIFT + H(ILAST,ILAST-1)/T(ILAST-1,ILAST-1) SHIFT = ESHIFT END IF * |