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)