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

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

View File

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

View File

@ -259,10 +259,10 @@ program jt9
shared_data%params%dttol=3.
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
hiscall="VK7MO " !### TEST ONLY
mycall="QE37 " !### TEST ONLY
hisgrid="QE37 " !### TEST ONLY
if(mode.eq.164 .and. nsubmode.lt.100) nsubmode=nsubmode+100
shared_data%params%naggressive=10