diff options
| author | julie <julielangou@users.noreply.github.com> | 2012-04-11 19:43:59 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2012-04-11 19:43:59 +0000 |
| commit | 55d43f3c3c6c20c045e215ef13bc418c1f27e43f (patch) | |
| tree | 5d329f1ec05053070baf1f7a9e67c63aa614935b /SRC/sorbdb.f | |
| parent | c254495b4de7667073f941bdfe89f8325c66687b (diff) | |
Remove unused parameters
Diffstat (limited to 'SRC/sorbdb.f')
| -rw-r--r-- | SRC/sorbdb.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/sorbdb.f b/SRC/sorbdb.f index 597b7900..433b3c03 100644 --- a/SRC/sorbdb.f +++ b/SRC/sorbdb.f @@ -309,8 +309,8 @@ * .. Parameters .. REAL REALONE PARAMETER ( REALONE = 1.0E0 ) - REAL NEGONE, ONE - PARAMETER ( NEGONE = -1.0E0, ONE = 1.0E0 ) + REAL ONE + PARAMETER ( ONE = 1.0E0 ) * .. * .. Local Scalars .. LOGICAL COLMAJOR, LQUERY |