phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #1039 from haox1/stebz

Browse Source 
Fixes of STEBZ
This commit is contained in:
langou
2026-05-24 09:08:06 -06:00
committed by GitHub
parent 8515a319e7 8785529fae
commit 7e4e6bf07e
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SRC/dstebz.f
+3 -3
View File
@@ -596,7 +596,7 @@
END IF
*
IF( IRANGE.GT.1 ) THEN
IF( GU.LT.WL ) THEN
IF( GU.LE.WL ) THEN
NWL = NWL + IN
NWU = NWU + IN
GO TO 70
@@ -700,7 +700,7 @@
WKILL = W( JE )
END IF
90 CONTINUE
IBLOCK( IW ) = 0
IF( IW .NE. 0) IBLOCK( IW ) = 0
100 CONTINUE
END IF
IF( IDISCU.GT.0 ) THEN
@@ -715,7 +715,7 @@
WKILL = W( JE )
END IF
110 CONTINUE
IBLOCK( IW ) = 0
IF( IW .NE. 0) IBLOCK( IW ) = 0
120 CONTINUE
END IF
IM = 0
SRC/sstebz.f
+4 -4
View File
@@ -292,7 +292,7 @@
PARAMETER ( ZERO = 0.0E0, ONE = 1.0E0, TWO = 2.0E0,
$ HALF = 1.0E0 / TWO )
REAL FUDGE, RELFAC
PARAMETER ( FUDGE = 2.1E0, RELFAC = 2.0E0 )
PARAMETER ( FUDGE = 2.3E0, RELFAC = 2.0E0 )
* ..
* .. Local Scalars ..
LOGICAL NCNVRG, TOOFEW
@@ -595,7 +595,7 @@
END IF
*
IF( IRANGE.GT.1 ) THEN
IF( GU.LT.WL ) THEN
IF( GU.LE.WL ) THEN
NWL = NWL + IN
NWU = NWU + IN
GO TO 70
@@ -699,7 +699,7 @@
WKILL = W( JE )
END IF
90 CONTINUE
IBLOCK( IW ) = 0
IF( IW .NE. 0) IBLOCK( IW ) = 0
100 CONTINUE
END IF
IF( IDISCU.GT.0 ) THEN
@@ -714,7 +714,7 @@
WKILL = W( JE )
END IF
110 CONTINUE
IBLOCK( IW ) = 0
IF( IW .NE. 0) IBLOCK( IW ) = 0
120 CONTINUE
END IF
IM = 0