Fix implicit typing of new variable TWO

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

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