From 5ba225f0affd09c7073fe9111ff6cda85a90b6aa Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Tue, 27 Dec 2016 14:30:00 +0000 Subject: [PATCH] Decrease number of frames that must be averaged for valid dynamic equalization. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7427 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/msk144signalquality.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/msk144signalquality.f90 b/lib/msk144signalquality.f90 index 211c5eda9..fabefe1eb 100644 --- a/lib/msk144signalquality.f90 +++ b/lib/msk144signalquality.f90 @@ -196,7 +196,8 @@ write(*,*) 'start training on call ',training_dxcall pp=a(1)+x*(a(2)+x*(a(3)+x*(a(4)+x*a(5)))) rmsdiff=sum( (pp-phase((864/2-nm/2):(864/2+nm/2)))**2 )/145.0 write(*,*) 'training ',navg,sqrt(chisqr),rmsdiff - if( (sqrt(chisqr).lt.1.5) .and. (rmsdiff.lt.1.1) .and. (navg.ge.5) ) then +! if( (sqrt(chisqr).lt.1.5) .and. (rmsdiff.lt.1.1) .and. (navg.ge.5) ) then + if( (sqrt(chisqr).lt.1.5) .and. (rmsdiff.lt.1.1) .and. (navg.ge.2) ) then open(18,file='phasefit.dat',status='unknown') do i=1, 145 write(18,*) x(i),pp(i),y(i),sigmay(i)