Merge pull request #928 from christoph-conrads/fix-critical-xUNBDB6-typo

langou · web-flow · commit 8ecaaf9869b6 · 2023-11-06T13:47:02.000-07:00
xORBDB6/xUNBDB6: fix a constant
diff --git a/SRC/cunbdb6.f b/SRC/cunbdb6.f
@@ -174,7 +174,7 @@ SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
 *
 *     .. Parameters ..
       REAL               ALPHA, REALONE, REALZERO
-      PARAMETER          ( ALPHA = 0.01E0, REALONE = 1.0E0,
+      PARAMETER          ( ALPHA = 0.1E0, REALONE = 1.0E0,
      $                     REALZERO = 0.0E0 )
       COMPLEX            NEGONE, ONE, ZERO
       PARAMETER          ( NEGONE = (-1.0E0,0.0E0), ONE = (1.0E0,0.0E0),
diff --git a/SRC/dorbdb6.f b/SRC/dorbdb6.f
@@ -174,7 +174,7 @@ SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
 *
 *     .. Parameters ..
       DOUBLE PRECISION   ALPHA, REALONE, REALZERO
-      PARAMETER          ( ALPHA = 0.01D0, REALONE = 1.0D0,
+      PARAMETER          ( ALPHA = 0.1D0, REALONE = 1.0D0,
      $                     REALZERO = 0.0D0 )
       DOUBLE PRECISION   NEGONE, ONE, ZERO
       PARAMETER          ( NEGONE = -1.0D0, ONE = 1.0D0, ZERO = 0.0D0 )
diff --git a/SRC/sorbdb6.f b/SRC/sorbdb6.f
@@ -174,7 +174,7 @@ SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
 *
 *     .. Parameters ..
       REAL               ALPHA, REALONE, REALZERO
-      PARAMETER          ( ALPHA = 0.01E0, REALONE = 1.0E0,
+      PARAMETER          ( ALPHA = 0.1E0, REALONE = 1.0E0,
      $                     REALZERO = 0.0E0 )
       REAL               NEGONE, ONE, ZERO
       PARAMETER          ( NEGONE = -1.0E0, ONE = 1.0E0, ZERO = 0.0E0 )
diff --git a/SRC/zunbdb6.f b/SRC/zunbdb6.f
@@ -174,7 +174,7 @@ SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
 *
 *     .. Parameters ..
       DOUBLE PRECISION   ALPHA, REALONE, REALZERO
-      PARAMETER          ( ALPHA = 0.01D0, REALONE = 1.0D0,
+      PARAMETER          ( ALPHA = 0.1D0, REALONE = 1.0D0,
      $                     REALZERO = 0.0D0 )
       COMPLEX*16         NEGONE, ONE, ZERO
       PARAMETER          ( NEGONE = (-1.0D0,0.0D0), ONE = (1.0D0,0.0D0),

Original file line number	Diff line number	Diff line change
`@@ -174,7 +174,7 @@ SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,`
`174`	`174`	`*`
`175`	`175`	`* .. Parameters ..`
`176`	`176`	`REAL ALPHA, REALONE, REALZERO`
`177`		`- PARAMETER ( ALPHA = 0.01E0, REALONE = 1.0E0,`
	`177`	`+ PARAMETER ( ALPHA = 0.1E0, REALONE = 1.0E0,`
`178`	`178`	`$ REALZERO = 0.0E0 )`
`179`	`179`	`COMPLEX NEGONE, ONE, ZERO`
`180`	`180`	`PARAMETER ( NEGONE = (-1.0E0,0.0E0), ONE = (1.0E0,0.0E0),`
Original file line number	Diff line number	Diff line change
`@@ -174,7 +174,7 @@ SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,`
`174`	`174`	`*`
`175`	`175`	`* .. Parameters ..`
`176`	`176`	`DOUBLE PRECISION ALPHA, REALONE, REALZERO`
`177`		`- PARAMETER ( ALPHA = 0.01D0, REALONE = 1.0D0,`
	`177`	`+ PARAMETER ( ALPHA = 0.1D0, REALONE = 1.0D0,`
`178`	`178`	`$ REALZERO = 0.0D0 )`
`179`	`179`	`DOUBLE PRECISION NEGONE, ONE, ZERO`
`180`	`180`	`PARAMETER ( NEGONE = -1.0D0, ONE = 1.0D0, ZERO = 0.0D0 )`
Original file line number	Diff line number	Diff line change
`@@ -174,7 +174,7 @@ SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,`
`174`	`174`	`*`
`175`	`175`	`* .. Parameters ..`
`176`	`176`	`REAL ALPHA, REALONE, REALZERO`
`177`		`- PARAMETER ( ALPHA = 0.01E0, REALONE = 1.0E0,`
	`177`	`+ PARAMETER ( ALPHA = 0.1E0, REALONE = 1.0E0,`
`178`	`178`	`$ REALZERO = 0.0E0 )`
`179`	`179`	`REAL NEGONE, ONE, ZERO`
`180`	`180`	`PARAMETER ( NEGONE = -1.0E0, ONE = 1.0E0, ZERO = 0.0E0 )`
Original file line number	Diff line number	Diff line change
`@@ -174,7 +174,7 @@ SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,`
`174`	`174`	`*`
`175`	`175`	`* .. Parameters ..`
`176`	`176`	`DOUBLE PRECISION ALPHA, REALONE, REALZERO`
`177`		`- PARAMETER ( ALPHA = 0.01D0, REALONE = 1.0D0,`
	`177`	`+ PARAMETER ( ALPHA = 0.1D0, REALONE = 1.0D0,`
`178`	`178`	`$ REALZERO = 0.0D0 )`
`179`	`179`	`COMPLEX*16 NEGONE, ONE, ZERO`
`180`	`180`	`PARAMETER ( NEGONE = (-1.0D0,0.0D0), ONE = (1.0D0,0.0D0),`