From 558724e99f09353ee31b2bbe5fd09beb5522dd53 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 9 Apr 2021 10:03:31 +0200 Subject: [PATCH 1/2] Fix implicit typing of new variable TWO --- lapack-netlib/SRC/slanv2.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/SRC/slanv2.f b/lapack-netlib/SRC/slanv2.f index e678305f2..375645b75 100644 --- a/lapack-netlib/SRC/slanv2.f +++ b/lapack-netlib/SRC/slanv2.f @@ -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 From e96f5e3c6500f2fe58c6e8d19d1e3db3e71fa893 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 9 Apr 2021 10:04:15 +0200 Subject: [PATCH 2/2] Fix implicit typing of new variable TWO --- lapack-netlib/SRC/dlanv2.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/SRC/dlanv2.f b/lapack-netlib/SRC/dlanv2.f index 61b016f16..1c277c6bb 100644 --- a/lapack-netlib/SRC/dlanv2.f +++ b/lapack-netlib/SRC/dlanv2.f @@ -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