diff options
Diffstat (limited to 'SRC/sggesx.f')
| -rw-r--r-- | SRC/sggesx.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/sggesx.f b/SRC/sggesx.f index 74a0201e..ee99a537 100644 --- a/SRC/sggesx.f +++ b/SRC/sggesx.f @@ -579,7 +579,7 @@ DO 20 I = 1, N IF( ALPHAI( I ).NE.ZERO ) THEN IF( ( ALPHAR( I ) / SAFMAX ).GT.( ANRMTO / ANRM ) .OR. - $ ( SAFMIN / ALPHAR( I ) ).GT.( ANRM / ANRMTO ) ) + $ ( SAFMIN / ALPHAR( I ) ).GT.( ANRM / ANRMTO ) ) $ THEN WORK( 1 ) = ABS( A( I, I ) / ALPHAR( I ) ) BETA( I ) = BETA( I )*WORK( 1 ) |