From 5e1103b8d7cd3ff60dc7ebddbcc8f47c9c927f98 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 13 Jul 2023 23:35:38 +0200 Subject: [PATCH] Update rotg.c --- interface/rotg.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/interface/rotg.c b/interface/rotg.c index 8d6df531a..8d40d9c53 100644 --- a/interface/rotg.c +++ b/interface/rotg.c @@ -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;