w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-16 04:32:34 -04:00
Code Issues Packages Projects Releases Wiki Activity

Reset navg after measuring phase response.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7601 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-03-12 13:02:10 +00:00
parent b2ce24b822
commit 2801c82e98
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/msk144signalquality.f90
View File

@ -191,9 +191,6 @@ write(*,*) 'start training on call ',training_dxcall
write(*,*) 'training ',navg,sqrt(chisqr),rmsdiff write(*,*) 'training ',navg,sqrt(chisqr),rmsdiff
if( (sqrt(chisqr).lt.1.8) .and. (rmsdiff.lt.0.5) .and. (navg.ge.5) ) then if( (sqrt(chisqr).lt.1.8) .and. (rmsdiff.lt.0.5) .and. (navg.ge.5) ) then
trained_dxcall=dxcall trained_dxcall=dxcall
training_dxcall(1:12)=' '
currently_training=.false.
btrain=.false.
call date_and_time(date,time,zone,values) call date_and_time(date,time,zone,values)
write(pcoeff_filename,'(i2.2,i2.2,i2.2,"_",i2.2,i2.2,i2.2)') & 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) 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)) write(17,*) i,real(cframe(i)),imag(cframe(i)),real(cross_avg(i)),imag(cross_avg(i))
enddo enddo
close(17) close(17)
training_dxcall(1:12)=' '
currently_training=.false.
btrain=.false.
navg=0
endif endif
endif endif