Merge pull request #485 from thijssteel/fix-typing-in-xlanv2

weslleyspereira · web-flow · commit 3b4c73e4e644 · 2021-02-10T14:24:31.000-03:00
fix-typing-xlanv2
diff --git a/SRC/dlanv2.f b/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
diff --git a/SRC/slanv2.f b/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 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`
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`