floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #3172 from martin-frbg/lapack477-final 

Copy missing fixes from the final revision of Reference-LAPACK PR477
This commit is contained in:
Martin Kroeker 2021-04-04 20:19:09 +02:00 committed by GitHub
parent 147e0a75fd 081d5ae971
commit 209b026e46
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lapack-netlib/SRC/chgeqz.f
View File

@ -319,14 +319,14 @@
REAL ABSB, ANORM, ASCALE, ATOL, BNORM, BSCALE, BTOL, REAL ABSB, ANORM, ASCALE, ATOL, BNORM, BSCALE, BTOL,
$ C, SAFMIN, TEMP, TEMP2, TEMPR, ULP $ C, SAFMIN, TEMP, TEMP2, TEMPR, ULP
COMPLEX ABI22, AD11, AD12, AD21, AD22, CTEMP, CTEMP2, COMPLEX ABI22, AD11, AD12, AD21, AD22, CTEMP, CTEMP2,
$ CTEMP3, ESHIFT, RTDISC, S, SHIFT, SIGNBC, T1, $ CTEMP3, ESHIFT, S, SHIFT, SIGNBC,
$ U12, X, ABI12, Y $ U12, X, ABI12, Y
* .. * ..
* .. External Functions .. * .. External Functions ..
COMPLEX CLADIV COMPLEX CLADIV
LOGICAL LSAME LOGICAL LSAME
REAL CLANHS, SLAMCH REAL CLANHS, SLAMCH
EXTERNAL CLADIV, LLSAME, CLANHS, SLAMCH EXTERNAL CLADIV, LSAME, CLANHS, SLAMCH
* .. * ..
* .. External Subroutines .. * .. External Subroutines ..
EXTERNAL CLARTG, CLASET, CROT, CSCAL, XERBLA EXTERNAL CLARTG, CLASET, CROT, CSCAL, XERBLA
@ -351,6 +351,7 @@
ILSCHR = .TRUE. ILSCHR = .TRUE.
ISCHUR = 2 ISCHUR = 2
ELSE ELSE
ILSCHR = .TRUE.
ISCHUR = 0 ISCHUR = 0
END IF END IF
* *
@ -364,6 +365,7 @@
ILQ = .TRUE. ILQ = .TRUE.
ICOMPQ = 3 ICOMPQ = 3
ELSE ELSE
ILQ = .TRUE.
ICOMPQ = 0 ICOMPQ = 0
END IF END IF
* *
@ -377,6 +379,7 @@
ILZ = .TRUE. ILZ = .TRUE.
ICOMPZ = 3 ICOMPZ = 3
ELSE ELSE
ILZ = .TRUE.
ICOMPZ = 0 ICOMPZ = 0
END IF END IF
* *

5
lapack-netlib/SRC/zhgeqz.f
View File

@ -319,7 +319,7 @@
DOUBLE PRECISION ABSB, ANORM, ASCALE, ATOL, BNORM, BSCALE, BTOL, DOUBLE PRECISION ABSB, ANORM, ASCALE, ATOL, BNORM, BSCALE, BTOL,
$ C, SAFMIN, TEMP, TEMP2, TEMPR, ULP $ C, SAFMIN, TEMP, TEMP2, TEMPR, ULP
COMPLEX*16 ABI22, AD11, AD12, AD21, AD22, CTEMP, CTEMP2, COMPLEX*16 ABI22, AD11, AD12, AD21, AD22, CTEMP, CTEMP2,
$ CTEMP3, ESHIFT, RTDISC, S, SHIFT, SIGNBC, T1, $ CTEMP3, ESHIFT, S, SHIFT, SIGNBC,
$ U12, X, ABI12, Y $ U12, X, ABI12, Y
* .. * ..
* .. External Functions .. * .. External Functions ..
@ -352,6 +352,7 @@
ILSCHR = .TRUE. ILSCHR = .TRUE.
ISCHUR = 2 ISCHUR = 2
ELSE ELSE
ILSCHR = .TRUE.
ISCHUR = 0 ISCHUR = 0
END IF END IF
* *
@ -365,6 +366,7 @@
ILQ = .TRUE. ILQ = .TRUE.
ICOMPQ = 3 ICOMPQ = 3
ELSE ELSE
ILQ = .TRUE.
ICOMPQ = 0 ICOMPQ = 0
END IF END IF
* *
@ -378,6 +380,7 @@
ILZ = .TRUE. ILZ = .TRUE.
ICOMPZ = 3 ICOMPZ = 3
ELSE ELSE
ILZ = .TRUE.
ICOMPZ = 0 ICOMPZ = 0
END IF END IF
* *