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

Tweak test_qra64.f90

Browse Source
This commit is contained in:
Joe Taylor 2020-10-03 11:02:18 -04:00
parent 5d1fb28d2b
commit 359b97f1ad
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/test_qra64.f90
View File

@ -33,7 +33,7 @@ program test_qra64
nsps=7680
i50=-28
ia=-20
ia=-24
ib=-33
if(nsnr.ne.0) then
ia=nsnr
@ -48,7 +48,6 @@ program test_qra64
cmd1='qra64sim "K1ABC W9XYZ EN37 " A 1 0.2 0.00 100 -20 > junk0'
cmd2='jt9 -q -L 300 -H 3000 -f 1000 -d 3 -b A *.wav > junk'
! jt9 -q -L 300 -H 3000 -f 1000 -d 3 -b A *.w1000 unk
write(cmd1(10:33),'(a)') '"'//msg//'"'
cmd1(35:35)=csubmode