w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-17 00:55:18 -04:00
Code Issues Packages Projects Releases Wiki Activity

Make msk144spd properly track the RxFreq spinbox.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7110 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-09-25 12:53:07 +00:00
parent 68951558d4
commit c05cf2438d
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/msk144spd.f90
View File

@ -63,6 +63,14 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret)
detmet=0 detmet=0
detmet2=0 detmet2=0
detfer=-999.99 detfer=-999.99
nfhi=2*(fc+500)
nflo=2*(fc-500)
ihlo=(nfhi-2*ntol)/df+1
ihhi=(nfhi+2*ntol)/df+1
illo=(nflo-2*ntol)/df+1
ilhi=(nflo+2*ntol)/df+1
i2000=nflo/df+1
i4000=nfhi/df+1
do istp=1,nstep do istp=1,nstep
ns=1+216*(istp-1) ns=1+216*(istp-1)
ne=ns+NSPM-1 ne=ns+NSPM-1
@ -80,8 +88,6 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret)
call four2a(ctmp,NFFT,1,-1,1) call four2a(ctmp,NFFT,1,-1,1)
tonespec=abs(ctmp)**2 tonespec=abs(ctmp)**2
ihlo=(4000-2*ntol)/df+1
ihhi=(4000+2*ntol)/df+1
ismask=.false. ismask=.false.
ismask(ihlo:ihhi)=.true. ! high tone search window ismask(ihlo:ihhi)=.true. ! high tone search window
iloc=maxloc(tonespec,ismask) iloc=maxloc(tonespec,ismask)
@ -90,8 +96,6 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret)
ah=tonespec(ihpk) ah=tonespec(ihpk)
ahavp=(sum(tonespec,ismask)-ah)/count(ismask) ahavp=(sum(tonespec,ismask)-ah)/count(ismask)
trath=ah/(ahavp+0.01) trath=ah/(ahavp+0.01)
illo=(2000-2*ntol)/df+1
ilhi=(2000+2*ntol)/df+1
ismask=.false. ismask=.false.
ismask(illo:ilhi)=.true. ! window for low tone ismask(illo:ilhi)=.true. ! window for low tone
iloc=maxloc(tonespec,ismask) iloc=maxloc(tonespec,ismask)
@ -101,8 +105,6 @@ subroutine msk144spd(cbig,n,ntol,nsuccess,msgreceived,fc,fret,tret)
alavp=(sum(tonespec,ismask)-al)/count(ismask) alavp=(sum(tonespec,ismask)-al)/count(ismask)
tratl=al/(alavp+0.01) tratl=al/(alavp+0.01)
fdiff=(ihpk+deltah-ilpk-deltal)*df fdiff=(ihpk+deltah-ilpk-deltal)*df
i2000=2000/df+1
i4000=4000/df+1
ferrh=(ihpk+deltah-i4000)*df/2.0 ferrh=(ihpk+deltah-i4000)*df/2.0
ferrl=(ilpk+deltal-i2000)*df/2.0 ferrl=(ilpk+deltal-i2000)*df/2.0
if( ah .ge. al ) then if( ah .ge. al ) then