From 2801c82e981e7c5dc1129ffdca23d96362844908 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sun, 12 Mar 2017 13:02:10 +0000 Subject: [PATCH] Reset navg after measuring phase response. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7601 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/msk144signalquality.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/msk144signalquality.f90 b/lib/msk144signalquality.f90 index 466ac6118..4a84bd069 100644 --- a/lib/msk144signalquality.f90 +++ b/lib/msk144signalquality.f90 @@ -191,9 +191,6 @@ write(*,*) 'start training on call ',training_dxcall write(*,*) 'training ',navg,sqrt(chisqr),rmsdiff if( (sqrt(chisqr).lt.1.8) .and. (rmsdiff.lt.0.5) .and. (navg.ge.5) ) then trained_dxcall=dxcall - training_dxcall(1:12)=' ' - currently_training=.false. - btrain=.false. call date_and_time(date,time,zone,values) write(pcoeff_filename,'(i2.2,i2.2,i2.2,"_",i2.2,i2.2,i2.2)') & values(1)-2000,values(2),values(3),values(5),values(6),values(7) @@ -211,6 +208,10 @@ write(*,*) 'trained - writing coefficients to: ',pcoeff_filename write(17,*) i,real(cframe(i)),imag(cframe(i)),real(cross_avg(i)),imag(cross_avg(i)) enddo close(17) + training_dxcall(1:12)=' ' + currently_training=.false. + btrain=.false. + navg=0 endif endif