diff options
author | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-10 17:33:47 +0000 |
---|---|---|
committer | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-10 17:33:47 +0000 |
commit | adba39b8df491800ff087067cef1d54e36ad659c (patch) | |
tree | 3bf3e8a1691e8cc779cbad1758521f7535f2e295 /SRC/sormql.f | |
parent | 7b9b17997ea18c8a3689c6ebb318c78956e99406 (diff) |
Bux fix from Rodney James about implicit typing.
Some variables were undeclared, some were mistyped, and others were unused.
Diffstat (limited to 'SRC/sormql.f')
-rw-r--r-- | SRC/sormql.f | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/SRC/sormql.f b/SRC/sormql.f index ccb47c3d..7b092d12 100644 --- a/SRC/sormql.f +++ b/SRC/sormql.f @@ -276,8 +276,6 @@ NBMIN = MAX( 2, ILAENV( 2, 'SORMQL', SIDE // TRANS, M, N, K, $ -1 ) ) END IF - ELSE - IWS = NW END IF * IF( NB.LT.NBMIN .OR. NB.GE.K ) THEN |