Fix implicit typing of new variable TWO
This commit is contained in:
parent
558724e99f
commit
e96f5e3c65
|
@ -139,7 +139,7 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
*
|
*
|
||||||
* .. Parameters ..
|
* .. Parameters ..
|
||||||
DOUBLE PRECISION ZERO, HALF, ONE
|
DOUBLE PRECISION ZERO, HALF, ONE, TWO
|
||||||
PARAMETER ( ZERO = 0.0D+0, HALF = 0.5D+0, ONE = 1.0D+0,
|
PARAMETER ( ZERO = 0.0D+0, HALF = 0.5D+0, ONE = 1.0D+0,
|
||||||
$ TWO = 2.0D0 )
|
$ TWO = 2.0D0 )
|
||||||
DOUBLE PRECISION MULTPL
|
DOUBLE PRECISION MULTPL
|
||||||
|
|
Loading…
Reference in New Issue