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
2026-06-19 22:28:54 -04:00 · 2015-12-14 19:40:44 +00:00
parent cebe445ce9
commit 9a8d9bd2fa
10 changed files with 34 additions and 26 deletions
@@ -17,6 +17,8 @@ program code426
  call getarg(2,arg)
  read(arg,*) iters

+  call init_random_seed()
+
  open(13,file='code426.out',status='unknown')

  write(*,1002) nmsgs,iters