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

More development tool tweaks.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7734 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-06-22 13:54:21 +00:00
parent ff4327cd56
commit d44e580148
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/msk144sd.f90
View File

@ -42,8 +42,8 @@ program msk144sd
data iavpatterns/ & data iavpatterns/ &
1,1,1,1,0,0,0,0, & 1,1,1,1,0,0,0,0, &
0,1,1,1,1,0,0,0, &
0,0,1,1,1,1,0,0, & 0,0,1,1,1,1,0,0, &
1,1,1,1,1,0,0,0, &
1,1,1,1,1,1,0,0/ 1,1,1,1,1,1,0,0/
data xmc/2.0,4.5,2.5,3.0/ data xmc/2.0,4.5,2.5,3.0/
@ -118,7 +118,7 @@ program msk144sd
iavmask=iavpatterns(1:8,iavg) iavmask=iavpatterns(1:8,iavg)
navg=sum(iavmask) navg=sum(iavmask)
deltaf=4.0/real(navg) ! search increment for frequency sync deltaf=4.0/real(navg) ! search increment for frequency sync
npeaks=3 npeaks=4
ntol=200 ntol=200
fc=1500.0 fc=1500.0
call msk144sync(cdat(1:6*NSPM),6,ntol,deltaf,iavmask,npeaks,fc, & call msk144sync(cdat(1:6*NSPM),6,ntol,deltaf,iavmask,npeaks,fc, &
@ -187,6 +187,7 @@ subroutine msksddc(id2,npts,fc,cdat)
cx(1:npts)=id2 cx(1:npts)=id2
call four2a(cx,NFFT1,1,-1,1) call four2a(cx,NFFT1,1,-1,1)
cx=cshift(cx,ishift) cx=cshift(cx,ishift)
cx(1)=0.5*cx(1)
cx(2*i46p875+1:)=cmplx(0.0,0.0) cx(2*i46p875+1:)=cmplx(0.0,0.0)
call four2a(cx,NFFT2,1,1,1) call four2a(cx,NFFT2,1,1,1)
cdat(1:npts/32)=cx(0:npts/32-1)/NFFT1 cdat(1:npts/32)=cx(0:npts/32-1)/NFFT1