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

prevent compilers from using FMA (Reference-LAPACK PR 1033)

This commit is contained in:
Martin Kroeker 2024-08-05 16:45:05 +02:00 committed by GitHub
parent 14a8a9a43c
commit c8b4ceca85
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lapack-netlib/SRC/dlanv2.f
View File

@ -109,7 +109,7 @@
*> \author Univ. of Colorado Denver *> \author Univ. of Colorado Denver
*> \author NAG Ltd. *> \author NAG Ltd.
* *
*> \ingroup doubleOTHERauxiliary *> \ingroup lanv2
* *
*> \par Further Details: *> \par Further Details:
* ===================== * =====================
@ -144,7 +144,7 @@
* .. * ..
* .. Local Scalars .. * .. Local Scalars ..
DOUBLE PRECISION AA, BB, BCMAX, BCMIS, CC, CS1, DD, EPS, P, SAB, DOUBLE PRECISION AA, BB, BCMAX, BCMIS, CC, CS1, DD, EPS, P, SAB,
$ SAC, SCALE, SIGMA, SN1, TAU, TEMP, Z, SAFMIN, $ SAC, SCALE, SIGMA, SN1, TAU, TEMP, Z, SAFMIN,
$ SAFMN2, SAFMX2 $ SAFMN2, SAFMX2
INTEGER COUNT INTEGER COUNT
* .. * ..
@ -248,10 +248,14 @@
* *
* Compute [ A B ] = [ CS SN ] [ AA BB ] * Compute [ A B ] = [ CS SN ] [ AA BB ]
* [ C D ] [-SN CS ] [ CC DD ] * [ C D ] [-SN CS ] [ CC DD ]
*
* Note: Some of the multiplications are wrapped in parentheses to
* prevent compilers from using FMA instructions. See
* https://github.com/Reference-LAPACK/lapack/issues/1031.
* *
A = AA*CS + CC*SN A = AA*CS + CC*SN
B = BB*CS + DD*SN B = ( BB*CS ) + ( DD*SN )
C = -AA*SN + CC*CS C = -( AA*SN ) + ( CC*CS )
D = -BB*SN + DD*CS D = -BB*SN + DD*CS
* *
TEMP = HALF*( A+D ) TEMP = HALF*( A+D )

12
lapack-netlib/SRC/slanv2.f
View File

@ -109,7 +109,7 @@
*> \author Univ. of Colorado Denver *> \author Univ. of Colorado Denver
*> \author NAG Ltd. *> \author NAG Ltd.
* *
*> \ingroup realOTHERauxiliary *> \ingroup lanv2
* *
*> \par Further Details: *> \par Further Details:
* ===================== * =====================
@ -144,7 +144,7 @@
* .. * ..
* .. Local Scalars .. * .. Local Scalars ..
REAL AA, BB, BCMAX, BCMIS, CC, CS1, DD, EPS, P, SAB, REAL AA, BB, BCMAX, BCMIS, CC, CS1, DD, EPS, P, SAB,
$ SAC, SCALE, SIGMA, SN1, TAU, TEMP, Z, SAFMIN, $ SAC, SCALE, SIGMA, SN1, TAU, TEMP, Z, SAFMIN,
$ SAFMN2, SAFMX2 $ SAFMN2, SAFMX2
INTEGER COUNT INTEGER COUNT
* .. * ..
@ -248,10 +248,14 @@
* *
* Compute [ A B ] = [ CS SN ] [ AA BB ] * Compute [ A B ] = [ CS SN ] [ AA BB ]
* [ C D ] [-SN CS ] [ CC DD ] * [ C D ] [-SN CS ] [ CC DD ]
*
* Note: Some of the multiplications are wrapped in parentheses to
* prevent compilers from using FMA instructions. See
* https://github.com/Reference-LAPACK/lapack/issues/1031.
* *
A = AA*CS + CC*SN A = AA*CS + CC*SN
B = BB*CS + DD*SN B = ( BB*CS ) + ( DD*SN )
C = -AA*SN + CC*CS C = -( AA*SN ) + ( CC*CS )
D = -BB*SN + DD*CS D = -BB*SN + DD*CS
* *
TEMP = HALF*( A+D ) TEMP = HALF*( A+D )