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

Correct the S/N scale in jt65sim; set some params for command-line use of jt9.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6172 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-11-24 18:20:45 +00:00
parent 4680817a93
commit 1a08ce3383
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/fillcom.f90
View File

@ -18,10 +18,11 @@ subroutine fillcom(nutc0,ndepth0,nrxfreq,mode,tx9,flow,fsplit,fhigh)
nfa=flow nfa=flow
nfsplit=fsplit nfsplit=fsplit
nfb=fhigh nfb=fhigh
ntol=3 ntol=20
kin=1024 kin=648000
nzhsym=181 nzhsym=181
ndepth=ndepth0 ndepth=ndepth0
dttol=3.0
if (tx9) then if (tx9) then
ntxmode=9 ntxmode=9
else else

3
lib/jt65sim.f90
View File

@ -98,7 +98,8 @@ program jt65sim
endif endif
enddo enddo
sig=10.0**(0.05*nsnr) bandwidth_ratio=2500.0/6000.0
sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*nsnr)
if(nsnr.gt.90.0) sig=1.0 if(nsnr.gt.90.0) sig=1.0
write(*,1020) ifile,isig,f0,csubmode,nsnr,sig,msg write(*,1020) ifile,isig,f0,csubmode,nsnr,sig,msg
1020 format(i4,i4,f10.3,1x,a1,i5,f8.4,2x,a22) 1020 format(i4,i4,f10.3,1x,a1,i5,f8.4,2x,a22)