From b1e69292bf9021200f6e064d674867cb85b98c70 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 21 Nov 2016 20:30:11 +0000 Subject: [PATCH] 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 --- lib/genqra64.f90 | 3 +++ lib/jt9.f90 | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/genqra64.f90 b/lib/genqra64.f90 index b9c660ac0..79c34dfca 100644 --- a/lib/genqra64.f90 +++ b/lib/genqra64.f90 @@ -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 diff --git a/lib/jt9.f90 b/lib/jt9.f90 index 922734710..7ef04c59f 100644 --- a/lib/jt9.f90 +++ b/lib/jt9.f90 @@ -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