Browse Source

Update zrotg.c

pull/4289/head
Martin Kroeker GitHub 2 years ago
parent
commit
fb2ca213a1
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 2 deletions
  1. +3
    -2
      interface/zrotg.c

+ 3
- 2
interface/zrotg.c View File

@@ -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;
}


Loading…
Cancel
Save