diff options
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, |