diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-06-22 09:45:40 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-06-22 09:45:40 +0000 |
| commit | 0d0b443c697874898ee9947afe634c1b89761dce (patch) | |
| tree | 27a6fd0102f166d128c1f5e9ae60942e788a242d /SRC/sggesx.f | |
| parent | ffd034b32b7f443988c8fb54274b97d5968dbd85 (diff) | |
Summer cleanup
Cleanup some codes, like unused variables.
Used -Walls to detect problems.
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 ) |