Fix implicit typing of new variable TWO

martin-frbg · web-flow · commit 558724e99f09 · 2021-04-09T10:03:31.000+02:00
diff --git a/lapack-netlib/SRC/slanv2.f b/lapack-netlib/SRC/slanv2.f
@@ -139,7 +139,7 @@ SUBROUTINE SLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN )
 *  =====================================================================
 *
 *     .. 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

Original file line number	Diff line number	Diff line change
`@@ -139,7 +139,7 @@ SUBROUTINE SLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN )`
`139`	`139`	`* =====================================================================`
`140`	`140`	`*`
`141`	`141`	`* .. Parameters ..`
`142`		`- REAL ZERO, HALF, ONE`
	`142`	`+ REAL ZERO, HALF, ONE, TWO`
`143`	`143`	`PARAMETER ( ZERO = 0.0E+0, HALF = 0.5E+0, ONE = 1.0E+0,`
`144`	`144`	`$ TWO = 2.0E+0 )`
`145`	`145`	`REAL MULTPL`