w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-18 22:48:13 -04:00
Code Issues Packages Projects Releases Wiki Activity

Update test_q65.f90.

Browse Source
This commit is contained in:
Joe Taylor 2020-11-11 15:20:35 -05:00
parent 5fe6a539b6
commit 8703b66983
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lib/test_q65.f90
View File

@ -4,7 +4,7 @@ program test_q65
character*22 msg character*22 msg
character*8 arg character*8 arg
character*1 csubmode character*1 csubmode
integer nretcode(0:11) integer naptype(0:6)
logical decok logical decok
nargs=iargc() nargs=iargc()
@ -77,15 +77,15 @@ program test_q65
cmd2(38:38)=csubmode cmd2(38:38)=csubmode
call system('rm -f *.wav') call system('rm -f *.wav')
call qra_params(ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist) ! call qra_params(ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist)
write(*,1000) ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist ! write(*,1000) ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist
write(12,1000) ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist ! write(12,1000) ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist
1000 format(/'Depth:',i2,' AP:',i2,' df:',i3,' dt:',i3,' bw1:',i3,' bw2:',i3, & !1000 format(/'Depth:',i2,' AP:',i2,' df:',i3,' dt:',i3,' bw1:',i3,' bw2:',i3, &
' dist:',i3) ! ' dist:',i3)
write(*,1010) (j,j=0,11) write(*,1010) (j,j=0,6)
write(12,1010) (j,j=0,11) write(12,1010) (j,j=0,6)
1010 format('SNR d Dop Sync DecN Dec1 Bad',i6,11i4,' tdec'/85('-')) 1010 format('SNR nd Dop Sync DecN Dec1 Bad',i6,6i4,' tdec'/66('-'))
dterr=tsym/4.0 dterr=tsym/4.0
nferr=max(1,nint(0.5*baud),nint(fdop/3.0)) nferr=max(1,nint(0.5*baud),nint(fdop/3.0))
@ -95,7 +95,7 @@ program test_q65
nsync=0 nsync=0
ndec1=0 ndec1=0
nfalse=0 nfalse=0
nretcode=0 naptype=0
ndecn=0 ndecn=0
write(cmd1(63:65),'(i3)') nsnr write(cmd1(63:65),'(i3)') nsnr
call system(cmd1) call system(cmd1)
@ -108,7 +108,6 @@ program test_q65
read(10,'(a71)',end=10) line read(10,'(a71)',end=10) line
if(index(line,'<Decode').eq.1) cycle if(index(line,'<Decode').eq.1) cycle
read(line(11:20),*) xdt,nf read(line(11:20),*) xdt,nf
if(ntrperiod.ge.60) xdt=xdt-0.5 !### TEMPORARY ###
decok=index(line,trim(msg)).gt.0 decok=index(line,trim(msg)).gt.0
if((abs(xdt-dt).le.dterr .and. abs(nf-nf0).le.nferr) .or. decok) then if((abs(xdt-dt).le.dterr .and. abs(nf-nf0).le.nferr) .or. decok) then
nsync=nsync+1 nsync=nsync+1
@ -122,7 +121,7 @@ program test_q65
if(decok) then if(decok) then
ndecn=ndecn + 1 ndecn=ndecn + 1
if(iavg.le.1) ndec1=ndec1 + 1 if(iavg.le.1) ndec1=ndec1 + 1
nretcode(irc)=nretcode(irc) + 1 naptype(irc)=naptype(irc) + 1
else else
nfalse=nfalse + 1 nfalse=nfalse + 1
print*,'False: ',line print*,'False: ',line
@ -131,15 +130,15 @@ program test_q65
10 close(10) 10 close(10)
xdt_avg=0. xdt_avg=0.
xdt_rms=0. xdt_rms=0.
write(*,1100) nsnr,ndepth,fDop,nsync,ndecn,ndec1,nfalse,nretcode, & write(*,1100) nsnr,ndepth,fDop,nsync,ndecn,ndec1,nfalse,naptype, &
tdec/nfiles tdec/nfiles
write(12,1100) nsnr,ndepth,fDop,nsync,ndecn,ndec1,nfalse,nretcode, & write(12,1100) nsnr,ndepth,fDop,nsync,ndecn,ndec1,nfalse,naptype, &
tdec/nfiles tdec/nfiles
1100 format(i3,i2,f5.1,3i5,i4,i6,11i4,f6.2) 1100 format(i3,i3,f5.1,3i5,i4,i6,6i4,f6.2)
if(ndec1.lt.nfiles/2 .and. ndec10.ge.nfiles/2) then if(ndec1.lt.nfiles/2 .and. ndec10.ge.nfiles/2) then
snr_thresh=nsnr + float(nfiles/2 - ndec1)/(ndec10-ndec1) snr_thresh=nsnr + float(nfiles/2 - ndec1)/(ndec10-ndec1)
write(13,1200) ndepth,fdop,csubmode,snr_thresh write(13,1200) ndepth,fdop,csubmode,snr_thresh
1200 format(i1,f6.1,2x,a1,f7.1) 1200 format(i3,f6.1,2x,a1,f7.1)
flush(13) flush(13)
endif endif
flush(6) flush(6)