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

Display sine-wave frequency for QRA64 "@nnnn" messages.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7326 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-11-21 20:30:11 +00:00
parent 76e8f5ec85
commit b1e69292bf
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/genqra64.f90
View File

@ -20,6 +20,9 @@ subroutine genqra64(msg0,ichk,msgsent,itone,itype)
go to 2 go to 2
1 nfreq=1000 1 nfreq=1000
2 itone(1)=nfreq 2 itone(1)=nfreq
write(msgsent,1000) nfreq
1000 format(i5,' Hz')
print*,'aa ',msgsent
else else
message=msg0 message=msg0
do i=1,22 do i=1,22

4
lib/jt9.f90
View File

@ -259,10 +259,10 @@ program jt9
shared_data%params%dttol=3. shared_data%params%dttol=3.
shared_data%params%minsync=0 !### TEST ONLY shared_data%params%minsync=0 !### TEST ONLY
! shared_data%params%nfqso=1500 !### TEST ONLY ! shared_data%params%nfqso=1500 !### TEST ONLY
mycall="G3WDG " !### TEST ONLY mycall="G3WDG " !### TEST ONLY
hiscall="VK7MO " !### TEST ONLY hiscall="VK7MO " !### TEST ONLY
mycall="QE37 " !### TEST ONLY hisgrid="QE37 " !### TEST ONLY
if(mode.eq.164 .and. nsubmode.lt.100) nsubmode=nsubmode+100 if(mode.eq.164 .and. nsubmode.lt.100) nsubmode=nsubmode+100
shared_data%params%naggressive=10 shared_data%params%naggressive=10