w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove spurious argumenst that should never have been there

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6275 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Bill Somerville 2015-12-15 11:08:56 +00:00
parent 3962a3514a
commit eedb6d3458
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/JTMSKsim.f90
View File

@ -41,7 +41,7 @@ program JTMSKsim
phi0=0. phi0=0.
sig=10.0**(0.05*snrdb) 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) call sgran() ! see C rand generator (used in gran)
! Generate the Tx waveform ! Generate the Tx waveform

2
lib/jt4sim.f90
View File

@ -45,7 +45,7 @@ program jt4sim
freq=f0 !Silence compiler warning freq=f0 !Silence compiler warning
dphi=0.0 !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) call sgran() ! see C rand generator (used in gran)
h=default_header(12000,npts) h=default_header(12000,npts)

2
lib/jt65sim.f90
View File

@ -35,7 +35,7 @@ program jt65sim
go to 999 go to 999
endif 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) call sgran() ! see C rand generator (used in gran)
csubmode='A' csubmode='A'

2
lib/jt9sim.f90
View File

@ -67,7 +67,7 @@ program jt9sim
! if(minutes.eq.30) f0=1025. ! 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) call sgran() ! see C rand generator (used in gran)
h=default_header(12000,npts) h=default_header(12000,npts)

2
lib/noisegen.f90
View File

@ -2,7 +2,7 @@ subroutine noisegen(d4,nmax)
real*4 d4(4,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) call sgran() ! see C rand generator (used in gran)
do i=1,nmax do i=1,nmax

2
lib/t1.f90
View File

@ -23,7 +23,7 @@ program t1
call getarg(3,arg) call getarg(3,arg)
read(arg,*) iters 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 sgran() ! see C rand generator (used in gran)
call random_number(r) call random_number(r)