diff options
Diffstat (limited to 'SRC/shgeqz.f')
| -rw-r--r-- | SRC/shgeqz.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/shgeqz.f b/SRC/shgeqz.f index 0019f2f7..4d2b6bea 100644 --- a/SRC/shgeqz.f +++ b/SRC/shgeqz.f @@ -741,7 +741,7 @@ * IF( ( REAL( MAXIT )*SAFMIN )*ABS( H( ILAST-1, ILAST ) ).LT. $ ABS( T( ILAST-1, ILAST-1 ) ) ) THEN - ESHIFT = ESHIFT + H( ILAST-1, ILAST ) / + ESHIFT = ESHIFT + H( ILAST, ILAST-1 ) / $ T( ILAST-1, ILAST-1 ) ELSE ESHIFT = ESHIFT + ONE / ( SAFMIN*REAL( MAXIT ) ) |