Merge pull request #3178 from martin-frbg/fix2864
Fix unwanted fallback to implicit typing in slanv2/dlanv2
This commit is contained in:
commit
0dba04bb58
|
@ -139,7 +139,7 @@
|
|||
* =====================================================================
|
||||
*
|
||||
* .. 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,
|
||||
$ TWO = 2.0D0 )
|
||||
DOUBLE PRECISION MULTPL
|
||||
|
|
|
@ -139,7 +139,7 @@
|
|||
* =====================================================================
|
||||
*
|
||||
* .. Parameters ..
|
||||
REAL ZERO, HALF, ONE
|
||||
REAL ZERO, HALF, ONE, TWO
|
||||
PARAMETER ( ZERO = 0.0E+0, HALF = 0.5E+0, ONE = 1.0E+0,
|
||||
$ TWO = 2.0E+0 )
|
||||
REAL MULTPL
|
||||
|
|
Loading…
Reference in New Issue