xORBDB6/xUNBDB6: fix a constant

The commits listed below updated xORBDB6/xUNBDB6 with the aim of
improving numerical stability by avoiding the use of squared values.
With the exception of SORBDB6 these commits did not properly up a magic
constant called `ALPHA` in the code. SORBDB6 was initially updated
correctly before commit a015b21445
inserted an incorrect value again.

The incorrect magic constant may lead to early returns with only
partially orthogonalized output vectors.

Relevant commits:
* 54b3964b0f
* 6479e0f531
* 94419e8bfa
This commit is contained in:
Christoph Conrads
2023-11-06 19:25:22 +01:00
parent ada20a01db
commit e0370cabce
4 changed files with 4 additions and 4 deletions
+1 -1
View File
@@ -174,7 +174,7 @@
*
* .. 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),
+1 -1
View File
@@ -174,7 +174,7 @@
*
* .. 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 )
+1 -1
View File
@@ -174,7 +174,7 @@
*
* .. 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 )
+1 -1
View File
@@ -174,7 +174,7 @@
*
* .. 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),