Browse Source

Update rotg.c

tags/v0.3.24
Martin Kroeker GitHub 2 years ago
parent
commit
5e1103b8d7
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
  1. +3
    -3
      interface/rotg.c

+ 3
- 3
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);

if (ada > adb)
sigma = sign(1.,da);
sigma = copysign(1.,da);
else
sigma = sign(1.,db);
sigma = copysign(1.,db);

#ifndef CBLAS
PRINT_DEBUG_NAME;
@@ -113,7 +113,7 @@ void CNAME(FLOAT *DA, FLOAT *DB, FLOAT *C, FLOAT *S){
*C = ONE;
*S = ZERO;
*DB = ZERO;
else if (ada == ZERO) {
} else if (ada == ZERO) {
*C = ZERO;
*S = ONE;
*DA = *DB;


Loading…
Cancel
Save