Skip to content

Commit

Permalink
Update zrotg.c
Browse files Browse the repository at this point in the history
  • Loading branch information
martin-frbg authored Nov 5, 2023
1 parent fbe27a3 commit fb2ca21
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions interface/zrotg.c
Original file line number Diff line number Diff line change
Expand Up @@ -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;
}
Expand Down

0 comments on commit fb2ca21

Please sign in to comment.