w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 02:12:37 -04:00
Code Issues Packages Projects Releases Wiki Activity

Update the Q65 test program.

Browse Source
This commit is contained in:
Joe Taylor 2021-01-31 09:06:20 -05:00
parent b8ea4c1c2c
commit ec6fe749f9
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lib/test_q65.f90
View File

@ -86,10 +86,10 @@ program test_q65
write(cmd1(62:66),'(i5)') nfiles write(cmd1(62:66),'(i5)') nfiles
write(cmd2(11:13),'(i3)') ntrperiod write(cmd2(11:13),'(i3)') ntrperiod
write(cmd2(33:34),'(i2)') ndepth write(cmd2(33:35),'(i3)') ndepth
write(cmd2(44:44),'(i1)') nQSOprogress write(cmd2(45:45),'(i1)') nQSOprogress
write(cmd2(49:52),'(i4)') nf0 write(cmd2(50:53),'(i4)') nf0
cmd2(39:39)=csubmode cmd2(40:40)=csubmode
call system('rm -f *.wav') call system('rm -f *.wav')
@ -142,13 +142,14 @@ program test_q65
if(line(i0:i0).ne.' ') then if(line(i0:i0).ne.' ') then
i1=index(line,'q') i1=index(line,'q')
idec=-1 idec=-1
read(line(i1+1:),*) idec read(line(i1+1:i1+1),*) idec
if(line(i1+2:i1+2).eq.'*') then
iavg=10
else
read(line(i1+2:i1+2),*,end=100) iavg
endif endif
if(idec.lt.0) cycle
if(idec.ge.12) then
iavg=idec-10
idec=1
endif endif
100 if(idec.lt.0) cycle
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