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/sgsvj1.f | |
| parent | c254495b4de7667073f941bdfe89f8325c66687b (diff) | |
Remove unused parameters
Diffstat (limited to 'SRC/sgsvj1.f')
| -rw-r--r-- | SRC/sgsvj1.f | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/SRC/sgsvj1.f b/SRC/sgsvj1.f index 57c77d57..3354690b 100644 --- a/SRC/sgsvj1.f +++ b/SRC/sgsvj1.f @@ -254,9 +254,8 @@ * ===================================================================== * * .. Local Parameters .. - REAL ZERO, HALF, ONE, TWO - PARAMETER ( ZERO = 0.0E0, HALF = 0.5E0, ONE = 1.0E0, - $ TWO = 2.0E0 ) + REAL ZERO, HALF, ONE + PARAMETER ( ZERO = 0.0E0, HALF = 0.5E0, ONE = 1.0E0) * .. * .. Local Scalars .. REAL AAPP, AAPP0, AAPQ, AAQQ, APOAQ, AQOAP, BIG, |