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

Update rotg.c

This commit is contained in:
Martin Kroeker 2023-07-13 23:35:38 +02:00 committed by GitHub
parent 4cc232bb07
commit 5e1103b8d7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
interface/rotg.c
View File

@ -98,9 +98,9 @@ void CNAME(FLOAT *DA, FLOAT *DB, FLOAT *C, FLOAT *S){
scale = MIN(MAX(safmin,maxab), safmax); scale = MIN(MAX(safmin,maxab), safmax);
if (ada > adb) if (ada > adb)
sigma = sign(1.,da); sigma = copysign(1.,da);
else else
sigma = sign(1.,db); sigma = copysign(1.,db);
#ifndef CBLAS #ifndef CBLAS
PRINT_DEBUG_NAME; PRINT_DEBUG_NAME;
@ -113,7 +113,7 @@ void CNAME(FLOAT *DA, FLOAT *DB, FLOAT *C, FLOAT *S){
*C = ONE; *C = ONE;
*S = ZERO; *S = ZERO;
*DB = ZERO; *DB = ZERO;
else if (ada == ZERO) { } else if (ada == ZERO) {
*C = ZERO; *C = ZERO;
*S = ONE; *S = ONE;
*DA = *DB; *DA = *DB;