diff options
Diffstat (limited to 'SRC/cunbdb.f')
-rw-r--r-- | SRC/cunbdb.f | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/SRC/cunbdb.f b/SRC/cunbdb.f index 15826d9a..eacba1f8 100644 --- a/SRC/cunbdb.f +++ b/SRC/cunbdb.f @@ -309,9 +309,8 @@ * .. Parameters .. REAL REALONE PARAMETER ( REALONE = 1.0E0 ) - COMPLEX NEGONE, ONE - PARAMETER ( NEGONE = (-1.0E0,0.0E0), - $ ONE = (1.0E0,0.0E0) ) + COMPLEX ONE + PARAMETER ( ONE = (1.0E0,0.0E0) ) * .. * .. Local Scalars .. LOGICAL COLMAJOR, LQUERY |