w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-16 09:01:59 -05:00
Code Issues Packages Projects Releases Wiki Activity
eeef8f2dde
WSJT-X/lib/peakdt9.f90

51 lines
1012 B
Fortran
Raw Normal View History

Can decode in modes 1 2 5 10, but not 30 -- why??? git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2643 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-03 14:39:37 -04:00
subroutine peakdt9(c0,npts8,nsps8,istart,foffset,idtpk)
Working on peakups for DF and DT. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2642 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-03 13:47:55 -04:00
complex c0(0:npts8-1)
complex zsum
Change sync vector from nearly periodic to 2 x Golomb ruler. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2681 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-22 15:18:24 -04:00
include 'jt9sync.f90'
Working on peakups for DF and DT. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2642 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-03 13:47:55 -04:00
twopi=8.0*atan(1.0)
smax=0.
Increase height of status-bar labels. Compute samfac values; put them into "lab5" (for K1JT only). Ransomize the rand() seed on SoundOutThread startup. Increase the DT search range. (This still needs optimization.) git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2724 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-11-13 15:23:03 -05:00
tstep=0.0625*nsps8/1500.0
idtmax=2.5/tstep
Working on peakups for DF and DT. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2642 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-03 13:47:55 -04:00
f0=foffset
dphi=twopi*f0/1500.0
Tweaks to jt9code. Fix reports generated by double-click on callsign. Collapse consecutive spaces in message to a single space. Look at best element in ccfred first; then zap nearby ones; then repeat. Display sqrt(red(i)) in waterfall. Step by 4 (or 2) in peakdt9, then zero in on the peak. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2733 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-11-15 11:34:14 -05:00
idtstep=4
if(idtmax.lt.30) idtstep=2
if(idtmax.lt.15) idtstep=1
idt1=-idtmax
idt2=idtmax
10 do idt=idt1,idt2,idtstep
Can decode in modes 1 2 5 10, but not 30 -- why??? git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2643 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-03 14:39:37 -04:00
i0=istart + 0.0625*nsps8*idt
Working on peakups for DF and DT. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2642 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-03 13:47:55 -04:00
sum=0.
do j=1,16
Correct UTC on waterfall for slow modes. Tweak some GUI widget placements. Send stderr to file wsjtx.log. Fix formatting of std message with "R -7", etc., to "R-7". Introduce calls to "timer". Remove console. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-11-14 10:30:21 -05:00
i1=max(0,(ii(j)-1)*nsps8 + i0)
i2=min(npts8-1,i1+nsps8-1)
Working on peakups for DF and DT. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2642 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-03 13:47:55 -04:00
phi=0.
zsum=0.
Correct UTC on waterfall for slow modes. Tweak some GUI widget placements. Send stderr to file wsjtx.log. Fix formatting of std message with "R -7", etc., to "R-7". Introduce calls to "timer". Remove console. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-11-14 10:30:21 -05:00
do i=i1,i2
Can decode in modes 1 2 5 10, but not 30 -- why??? git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2643 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-03 14:39:37 -04:00
if(i.lt.0 .or. i.gt.npts8-1) cycle
Working on peakups for DF and DT. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2642 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-03 13:47:55 -04:00
phi=phi + dphi
Correct UTC on waterfall for slow modes. Tweak some GUI widget placements. Send stderr to file wsjtx.log. Fix formatting of std message with "R -7", etc., to "R-7". Introduce calls to "timer". Remove console. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2727 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-11-14 10:30:21 -05:00
zsum=zsum + c0(i)*cmplx(cos(phi),-sin(phi))
Working on peakups for DF and DT. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2642 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-03 13:47:55 -04:00
enddo
sum=sum + real(zsum)**2 + aimag(zsum)**2
enddo
if(sum.gt.smax) then
idtpk=idt
smax=sum
endif
enddo
Tweaks to jt9code. Fix reports generated by double-click on callsign. Collapse consecutive spaces in message to a single space. Look at best element in ccfred first; then zap nearby ones; then repeat. Display sqrt(red(i)) in waterfall. Step by 4 (or 2) in peakdt9, then zero in on the peak. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2733 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-11-15 11:34:14 -05:00
if(idtstep.gt.1) then
idtstep=1
Minor tweaks to decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2746 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-11-16 14:38:39 -05:00
idt1=idtpk-3
idt2=idtpk+3
Tweaks to jt9code. Fix reports generated by double-click on callsign. Collapse consecutive spaces in message to a single space. Look at best element in ccfred first; then zap nearby ones; then repeat. Display sqrt(red(i)) in waterfall. Step by 4 (or 2) in peakdt9, then zero in on the peak. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2733 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-11-15 11:34:14 -05:00
go to 10
endif
Working on peakups for DF and DT. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2642 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2012-10-03 13:47:55 -04:00
return
end subroutine peakdt9
Reference in New Issue Copy Permalink