Skip to content

Commit

Permalink
Reduce warnings for gnu directory (#3134)
Browse files Browse the repository at this point in the history
  • Loading branch information
alkino authored Oct 18, 2024
1 parent 27efa92 commit 33263d0
Showing 1 changed file with 1 addition and 14 deletions.
15 changes: 1 addition & 14 deletions src/gnu/mcran4.cpp
Original file line number Diff line number Diff line change
Expand Up @@ -92,19 +92,6 @@ uint32_t nrnRan4int(uint32_t* idx1, uint32_t idx2) {
/*n ^= (((u >> 16) | (u << 16)) ^ 0x178b0f3c) + w * v;*/
n ^= (((u >> 16) | (u << 16)) ^ 0xe874f0c3) + w * v;
return n;

w = n ^ 0x03bcdc3c;
v = w >> 16;
w &= 0xffff;
u = (v - w) * (v + w);
m ^= (((u >> 16) | (u << 16)) ^ 0x96aa3a59) + w * v;

w = m ^ 0x0f33d1b2;
v = w >> 16;
w &= 0xffff;
u = (v - w) * (v + w);
n ^= (((u >> 16) | (u << 16)) ^ 0xaa5835b9) + w * v;
return n;
}

/*
Expand All @@ -128,7 +115,7 @@ uint32_t nrnRan4int(uint32_t* idx1, uint32_t idx2) {
*/
static const double SHIFT32 = 1.0 / 4294967296.0; /* 2^-32 */
double nrnRan4dbl(uint32_t* idx1, uint32_t idx2) {
uint32_t hi, lo, extra;
uint32_t hi;
hi = (uint32_t) nrnRan4int(idx1, idx2); /*top 32 bits*/
/*
// lo = (extra // low bits
Expand Down

0 comments on commit 33263d0

Please sign in to comment.