WSJT-X/lib/sgran.c

#include "init_random_seed.h"

/* seed rand */
float sgran_()
{
  init_random_seed();
  return(0);
}
Rationalize random number seeding in C and Fortran git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6272 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-12-14 19:40:44 +00:00			`#include "init_random_seed.h"`
Mods to jt65sim to use new seed for each invocation - for use in a script that estimates high-snr FER. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6227 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-12-06 04:37:14 +00:00
Rationalize random number seeding in C and Fortran git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6272 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-12-14 19:40:44 +00:00			`/* seed rand */`
Mods to jt65sim to use new seed for each invocation - for use in a script that estimates high-snr FER. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6227 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-12-06 04:37:14 +00:00			`float sgran_()`
			`{`
Rationalize random number seeding in C and Fortran git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6272 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-12-14 19:40:44 +00:00			`init_random_seed();`
Mods to jt65sim to use new seed for each invocation - for use in a script that estimates high-snr FER. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6227 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-12-06 04:37:14 +00:00			`return(0);`
			`}`