Merge pull request #3178 from martin-frbg/fix2864

Fix unwanted fallback to implicit typing in slanv2/dlanv2
This commit is contained in:
Martin Kroeker 2021-04-09 13:38:05 +02:00 committed by GitHub
commit 0dba04bb58
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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