From fb2ca213a153121e66693465ee89a608bbab1468 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 5 Nov 2023 16:45:41 +0100 Subject: [PATCH] Update zrotg.c --- interface/zrotg.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/interface/zrotg.c b/interface/zrotg.c index cf22f62f6..ea73352dd 100644 --- a/interface/zrotg.c +++ b/interface/zrotg.c @@ -113,12 +113,13 @@ void CNAME(void *VDA, void *VDB, FLOAT *C, void *VS) { } } else { *C = ada / adahsq; - if (*C >= safmin) + if (*C >= safmin) { *R = *DA / *C; *(R+1) = *(DA+1) / *(C+1); - else + } else { *R = *DA * (h / adahsq); *(R+1) = *(DA+1) * (h / adahsq); + } *S = *S1 * ada / adahsq; *(S+1) = *(S1+1) * ada / adahsq; }