From eedb6d345849df714ca00898029c61726335b26b Mon Sep 17 00:00:00 2001 From: Bill Somerville Date: Tue, 15 Dec 2015 11:08:56 +0000 Subject: [PATCH] Remove spurious argumenst that should never have been there git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6275 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/JTMSKsim.f90 | 2 +- lib/jt4sim.f90 | 2 +- lib/jt65sim.f90 | 2 +- lib/jt9sim.f90 | 2 +- lib/noisegen.f90 | 2 +- lib/t1.f90 | 2 +- 6 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lib/JTMSKsim.f90 b/lib/JTMSKsim.f90 index c9a17d605..c984deb1f 100644 --- a/lib/JTMSKsim.f90 +++ b/lib/JTMSKsim.f90 @@ -41,7 +41,7 @@ program JTMSKsim phi0=0. sig=10.0**(0.05*snrdb) - call init_random_seed(1) ! seed Fortran RANDOM_NUMBER generator + call init_random_seed() ! seed Fortran RANDOM_NUMBER generator call sgran() ! see C rand generator (used in gran) ! Generate the Tx waveform diff --git a/lib/jt4sim.f90 b/lib/jt4sim.f90 index aabaee707..f3d85e080 100644 --- a/lib/jt4sim.f90 +++ b/lib/jt4sim.f90 @@ -45,7 +45,7 @@ program jt4sim freq=f0 !Silence compiler warning dphi=0.0 !Silence compiler warning - call init_random_seed(1) ! seed Fortran RANDOM_NUMBER generator + call init_random_seed() ! seed Fortran RANDOM_NUMBER generator call sgran() ! see C rand generator (used in gran) h=default_header(12000,npts) diff --git a/lib/jt65sim.f90 b/lib/jt65sim.f90 index 96f1331fa..257f7fc04 100644 --- a/lib/jt65sim.f90 +++ b/lib/jt65sim.f90 @@ -35,7 +35,7 @@ program jt65sim go to 999 endif - call init_random_seed(1) ! seed Fortran RANDOM_NUMBER generator + call init_random_seed() ! seed Fortran RANDOM_NUMBER generator call sgran() ! see C rand generator (used in gran) csubmode='A' diff --git a/lib/jt9sim.f90 b/lib/jt9sim.f90 index c9f4c7e79..480d49306 100644 --- a/lib/jt9sim.f90 +++ b/lib/jt9sim.f90 @@ -67,7 +67,7 @@ program jt9sim ! if(minutes.eq.30) f0=1025. - call init_random_seed(1) ! seed Fortran RANDOM_NUMBER generator + call init_random_seed() ! seed Fortran RANDOM_NUMBER generator call sgran() ! see C rand generator (used in gran) h=default_header(12000,npts) diff --git a/lib/noisegen.f90 b/lib/noisegen.f90 index 333fc4696..b0aa174f9 100644 --- a/lib/noisegen.f90 +++ b/lib/noisegen.f90 @@ -2,7 +2,7 @@ subroutine noisegen(d4,nmax) real*4 d4(4,nmax) - call init_random_seed(1) ! seed Fortran RANDOM_NUMBER generator + call init_random_seed() ! seed Fortran RANDOM_NUMBER generator call sgran() ! see C rand generator (used in gran) do i=1,nmax diff --git a/lib/t1.f90 b/lib/t1.f90 index ea2a636c4..42b71fc65 100644 --- a/lib/t1.f90 +++ b/lib/t1.f90 @@ -23,7 +23,7 @@ program t1 call getarg(3,arg) read(arg,*) iters - call init_random_seed(1) ! seed Fortran RANDOM_NUMBER generator + call init_random_seed() ! seed Fortran RANDOM_NUMBER generator call sgran() ! see C rand generator (used in gran) call random_number(r)