Move pseudo RNG seeding to start of application

Also switched  to qrand() in place  of rand() where possible  as it is
thread safe.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5716 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Bill Somerville
2015-07-12 10:28:28 +00:00
parent 5e2507e179
commit 5e3ec0e891
6 changed files with 19 additions and 15 deletions
+2 -2
View File
@@ -145,8 +145,8 @@ float gran()
* that are inside the unit circle
*/
do {
v1 = 2.0 * (float)rand() / RAND_MAX - 1;
v2 = 2.0 * (float)rand() / RAND_MAX - 1;
v1 = 2.0 * (float)qrand() / RAND_MAX - 1;
v2 = 2.0 * (float)qrand() / RAND_MAX - 1;
rsq = v1*v1 + v2*v2;
} while(rsq >= 1.0 || rsq == 0.0);
fac = sqrt(-2.0*log(rsq)/rsq);