w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Comment out some diagnostic writes.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8114 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-09-23 19:39:42 +00:00
parent 7173bf5749
commit ddbfc0da74
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/msk144signalquality.f90
View File

@ -66,7 +66,7 @@ subroutine msk144signalquality(cframe,snr,freq,t0,softbits,msg,dxcall, &
currently_training=.false. currently_training=.false.
training_dxcall(1:12)=' ' training_dxcall(1:12)=' '
trained_dxcall(1:12)=' ' trained_dxcall(1:12)=' '
write(*,*) 'reset to untrained state ' !write(*,*) 'reset to untrained state '
endif endif
indx_dxcall=index(msg,trim(dxcall)) indx_dxcall=index(msg,trim(dxcall))
@ -76,7 +76,7 @@ write(*,*) 'reset to untrained state '
currently_training=.true. currently_training=.true.
training_dxcall=trim(dxcall) training_dxcall=trim(dxcall)
trained_dxcall(1:12)=' ' trained_dxcall(1:12)=' '
write(*,*) 'start training on call ',training_dxcall !write(*,*) 'start training on call ',training_dxcall
endif endif
if( msg_has_dxcall .and. currently_training ) then if( msg_has_dxcall .and. currently_training ) then
@ -188,7 +188,7 @@ write(*,*) 'start training on call ',training_dxcall
call polyfit(x,y,sigmay,npts,nterms,mode,a,chisqr) call polyfit(x,y,sigmay,npts,nterms,mode,a,chisqr)
pp=a(1)+x*(a(2)+x*(a(3)+x*(a(4)+x*a(5)))) 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 rmsdiff=sum( (pp-phase((864/2-nm/2):(864/2+nm/2)))**2 )/145.0
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
call date_and_time(date,time,zone,values) call date_and_time(date,time,zone,values)
@ -198,7 +198,7 @@ write(*,*) 'training ',navg,sqrt(chisqr),rmsdiff
l1=index(datadir,char(0))-1 l1=index(datadir,char(0))-1
datadir(l1+1:l1+1)="/" datadir(l1+1:l1+1)="/"
pcoeff_filename=datadir(1:l1+1)//trim(pcoeff_filename) pcoeff_filename=datadir(1:l1+1)//trim(pcoeff_filename)
write(*,*) 'trained - writing coefficients to: ',pcoeff_filename !write(*,*) 'trained - writing coefficients to: ',pcoeff_filename
open(17,file=pcoeff_filename,status='new') open(17,file=pcoeff_filename,status='new')
write(17,'(i4,2f10.2,3i5,5e25.16)') navg,sqrt(chisqr),rmsdiff,NFREQLOW,NFREQHIGH,nterms,a write(17,'(i4,2f10.2,3i5,5e25.16)') navg,sqrt(chisqr),rmsdiff,NFREQLOW,NFREQHIGH,nterms,a
do i=1, 145 do i=1, 145