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

Updates to test_q65: allow command-line input of QSOprogress.

Browse Source
This commit is contained in:
Joe Taylor 2020-11-17 15:09:03 -05:00
parent d3ed0be318
commit 2dcd8504e8
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/test_q65.f90
View File

@ -8,10 +8,11 @@ program test_q65
logical decok logical decok
nargs=iargc() nargs=iargc()
if(nargs.ne.9) then if(nargs.ne.10) then
print*,'Usage: test_q65 "msg" A-D depth freq DT fDop TRp nfiles SNR' print*,'Usage: test_q65 "msg" A-D depth freq DT fDop TRp Q nfiles SNR'
print*,'Example: test_q65 "K1ABC W9XYZ EN37" A 3 1500 0.0 5.0 60 100 -20' print*,'Example: test_q65 "K1ABC W9XYZ EN37" A 3 1500 0.0 5.0 60 3 100 -20'
print*,' SNR = 0 to loop over all relevant SNRs' print*,'Use SNR = 0 to loop over all relevant SNRs'
print*,'Use MyCall=K1ABC, HisCall=W9XYZ, HisGrid="EN37" for AP decodes'
go to 999 go to 999
endif endif
call getarg(1,msg) call getarg(1,msg)
@ -27,8 +28,10 @@ program test_q65
call getarg(7,arg) call getarg(7,arg)
read(arg,*) ntrperiod read(arg,*) ntrperiod
call getarg(8,arg) call getarg(8,arg)
read(arg,*) nfiles read(arg,*) nQSOprogress
call getarg(9,arg) call getarg(9,arg)
read(arg,*) nfiles
call getarg(10,arg)
read(arg,*) nsnr read(arg,*) nsnr
if(ntrperiod.eq.15) then if(ntrperiod.eq.15) then
@ -62,7 +65,7 @@ program test_q65
! 1 2 3 4 5 6 7 ! 1 2 3 4 5 6 7
! 1234567890123456789012345678901234567890123456789012345678901234567890123' ! 1234567890123456789012345678901234567890123456789012345678901234567890123'
cmd1='q65sim "K1ABC W9XYZ EN37 " A 1500 5.0 0.0 60 100 F -10 > junk0' cmd1='q65sim "K1ABC W9XYZ EN37 " A 1500 5.0 0.0 60 100 F -10 > junk0'
cmd2='jt9 -3 -p 15 -L 300 -H 3000 -d 3 -b A *.wav > junk' cmd2='jt9 -3 -p 15 -L 300 -H 3000 -d 3 -b A -Q 3 *.wav > junk'
write(cmd1(10:33),'(a)') '"'//msg//'"' write(cmd1(10:33),'(a)') '"'//msg//'"'
cmd1(35:35)=csubmode cmd1(35:35)=csubmode
@ -74,6 +77,7 @@ program test_q65
write(cmd2(11:13),'(i3)') ntrperiod write(cmd2(11:13),'(i3)') ntrperiod
write(cmd2(33:34),'(i2)') ndepth write(cmd2(33:34),'(i2)') ndepth
write(cmd2(44:44),'(i1)') nQSOprogress
cmd2(39:39)=csubmode cmd2(39:39)=csubmode
call system('rm -f *.wav') call system('rm -f *.wav')
@ -85,7 +89,7 @@ program test_q65
write(*,1010) (j,j=0,6) write(*,1010) (j,j=0,6)
write(12,1010) (j,j=0,6) write(12,1010) (j,j=0,6)
1010 format('SNR nd Dop Sync DecN Dec1 Bad',i6,6i4,' tdec'/66('-')) 1010 format('SNR d 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))