From 84813be7dbbcaca8796bae4386d03d0a24f9cce0 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Mon, 14 Aug 2017 15:00:48 +0000 Subject: [PATCH] Make default MSK144 amplitude polynomial flat. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8026 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/analytic.f90 | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lib/analytic.f90 b/lib/analytic.f90 index 13b99a808..253692f50 100644 --- a/lib/analytic.f90 +++ b/lib/analytic.f90 @@ -16,8 +16,10 @@ subroutine analytic(d,npts,nfft,c,pc,beq) logical*1 beq ! boolean static equalizer flag data nfft0/0/ - data aclast/1.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 aclast/0.0,0.0,0.0,0.0,0.0/ + 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 @@ -43,8 +45,8 @@ subroutine analytic(d,npts,nfft,c,pc,beq) if( any(aclast .ne. ac) .or. any(pclast .ne. pc) ) then aclast=ac pclast=pc - write(*,3001) pc -3001 format('Phase coeffs:',5f12.6) +! write(*,3001) pc +!3001 format('Phase coeffs:',5f12.6) do i=1,nh+1 ff=(i-1)*df f=ff-1500.0