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 commita015b21445inserted 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:
+1
-1
@@ -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
@@ -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
@@ -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
@@ -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),
|
||||
|
||||
Reference in New Issue
Block a user