w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-30 20:40:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Make default MSK144 amplitude polynomial flat.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8026 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-08-14 15:00:48 +00:00
parent e8eb1fd248
commit 84813be7db
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/analytic.f90
View File

@ -16,8 +16,10 @@ subroutine analytic(d,npts,nfft,c,pc,beq)
logical*1 beq ! boolean static equalizer flag logical*1 beq ! boolean static equalizer flag
data nfft0/0/ data nfft0/0/
data aclast/1.0,0.0,0.0,0.0,0.0/ data aclast/0.0,0.0,0.0,0.0,0.0/
data ac/1.0,0.05532,0.11438,0.12918,0.09274/ ! amp coeffs for TS2000 data pclast/0.0,0.0,0.0,0.0,0.0/
! data ac/1.0,0.05532,0.11438,0.12918,0.09274/ ! amp coeffs for TS2000
data ac/1.0,0.0,0.0,0.0,0.0/
save corr,nfft0,h,ac,aclast,pclast,pi,t,beta save corr,nfft0,h,ac,aclast,pclast,pi,t,beta
@ -43,8 +45,8 @@ subroutine analytic(d,npts,nfft,c,pc,beq)
if( any(aclast .ne. ac) .or. any(pclast .ne. pc) ) then if( any(aclast .ne. ac) .or. any(pclast .ne. pc) ) then
aclast=ac aclast=ac
pclast=pc pclast=pc
write(*,3001) pc ! write(*,3001) pc
3001 format('Phase coeffs:',5f12.6) !3001 format('Phase coeffs:',5f12.6)
do i=1,nh+1 do i=1,nh+1
ff=(i-1)*df ff=(i-1)*df
f=ff-1500.0 f=ff-1500.0