Merge branch 'develop' of bitbucket.org:k1jt/wsjtx into develop

This commit is contained in:
Steven Franke 2020-02-29 13:47:09 -06:00
commit 761ee1cd85
8 changed files with 24 additions and 7 deletions

View File

@ -67,6 +67,7 @@ d). Edit lines as needed. Keeping them in alphabetic order help see dupes.
:fmt_group: https://groups.yahoo.com/neo/groups/FMT-nuts/info[FMT Group] :fmt_group: https://groups.yahoo.com/neo/groups/FMT-nuts/info[FMT Group]
:fmt_k5cm: http://www.k5cm.com/[FMT Event Info] :fmt_k5cm: http://www.k5cm.com/[FMT Event Info]
:fmt_wspr: http://www.physics.princeton.edu/pulsar/K1JT/FMT_User.pdf[Accurate Frequency Measurements with your WSPR Setup] :fmt_wspr: http://www.physics.princeton.edu/pulsar/K1JT/FMT_User.pdf[Accurate Frequency Measurements with your WSPR Setup]
:ft4_protocol: http://physics.princeton.edu/pulsar/k1jt/FT4_Protocol.pdf[The FT4 Protocol for Digital Contesting]
:ft8_tips: http://www.g4ifb.com/FT8_Hinson_tips_for_HF_DXers.pdf[FT8 Operating Guide] :ft8_tips: http://www.g4ifb.com/FT8_Hinson_tips_for_HF_DXers.pdf[FT8 Operating Guide]
:ft8_DXped: http://physics.princeton.edu/pulsar/k1jt/FT8_DXpedition_Mode.pdf[FT8 DXpedition Mode] :ft8_DXped: http://physics.princeton.edu/pulsar/k1jt/FT8_DXpedition_Mode.pdf[FT8 DXpedition Mode]
:gnu_gpl: http://www.gnu.org/licenses/gpl-3.0.txt[GNU General Public License] :gnu_gpl: http://www.gnu.org/licenses/gpl-3.0.txt[GNU General Public License]

View File

@ -73,5 +73,12 @@ in message* and *Transmitted message*, reading from top to bottom.
TIP: Keyboard shortcuts *Shift+F11* and *Shift+F12* provide an easy TIP: Keyboard shortcuts *Shift+F11* and *Shift+F12* provide an easy
way to move your FT4 Tx frequency down or up in 90 Hz steps. way to move your FT4 Tx frequency down or up in 90 Hz steps.
TIP: For easy keyboard control of transmitted messages, check
*Alternate F1F6 bindings* on the Settings | General tab. In
contest-style operation you can then hit *F1* to solicit a QSO by
sending CQ. Similarly, keys *F2* to *F5* will send the messages in
entry fields *Tx2* to *Tx5*. More details on contest-style operation
can be found in {ft4_protocol}.
IMPORTANT: When finished with this Tutorial, don't forget to re-enter IMPORTANT: When finished with this Tutorial, don't forget to re-enter
your own callsign as *My Call* on the *Settings | General* tab. your own callsign as *My Call* on the *Settings | General* tab.

View File

@ -276,9 +276,12 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
! JT65 is not yet producing info for nsynced, ndecoded. ! JT65 is not yet producing info for nsynced, ndecoded.
800 ndecoded = my_jt4%decoded + my_jt65%decoded + my_jt9%decoded + & 800 ndecoded = my_jt4%decoded + my_jt65%decoded + my_jt9%decoded + &
my_ft8%decoded + my_ft4%decoded my_ft8%decoded + my_ft4%decoded
if(params%nmode.ne.8 .or. params%nzhsym.ge.48 .or. &
.not.params%ndiskdat) then
write(*,1010) nsynced,ndecoded write(*,1010) nsynced,ndecoded
1010 format('<DecodeFinished>',2i4) 1010 format('<DecodeFinished>',2i4)
call flush(6) call flush(6)
endif
close(13) close(13)
if(ncontest.eq.6) close(19) if(ncontest.eq.6) close(19)
if(params%nmode.eq.4 .or. params%nmode.eq.65) close(14) if(params%nmode.eq.4 .or. params%nmode.eq.65) close(14)

View File

@ -431,7 +431,11 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, &
endif endif
nbadcrc=0 ! If we get this far: valid codeword, valid (i3,n3), nonquirky message. nbadcrc=0 ! If we get this far: valid codeword, valid (i3,n3), nonquirky message.
call get_ft8_tones_from_77bits(message77,itone) call get_ft8_tones_from_77bits(message77,itone)
if(lsubtract) call subtractft8(dd0,itone,f1,xdt,.false.) if(lsubtract) then
call timer('sub_ft8b',0)
call subtractft8(dd0,itone,f1,xdt,.false.)
call timer('sub_ft8b',1)
endif
! write(21,3001) nzhsym,npasses,nqsoprogress,ipass,iaptype,lsubtract, & ! write(21,3001) nzhsym,npasses,nqsoprogress,ipass,iaptype,lsubtract, &
! f1,xdt,msg37(1:22); flush(21) ! f1,xdt,msg37(1:22); flush(21)
!3001 format(5i3,L3,f7.1,f9.4,2x,a22) !3001 format(5i3,L3,f7.1,f9.4,2x,a22)

View File

@ -76,9 +76,11 @@ contains
ndecodes=ndec_early ndecodes=ndec_early
endif endif
if(nzhsym.eq.50 .and. ndec_early.ge.1) then if(nzhsym.eq.50 .and. ndec_early.ge.1) then
call timer('sub_ft8a',0)
do i=1,ndec_early do i=1,ndec_early
call subtractft8(dd,itone_save(1,i),f1_save(i),xdt_save(i),.true.) call subtractft8(dd,itone_save(1,i),f1_save(i),xdt_save(i),.true.)
enddo enddo
call timer('sub_ft8a',1)
endif endif
ifa=nfa ifa=nfa
ifb=nfb ifb=nfb

View File

@ -304,7 +304,7 @@ program jt9
if(mode.eq.9 .and. fsplit.ne.2700) shared_data%params%nfa=fsplit if(mode.eq.9 .and. fsplit.ne.2700) shared_data%params%nfa=fsplit
if(mode.eq.8) then if(mode.eq.8) then
! "Early" decoding pass, FT8 only ! "Early" decoding pass, FT8 only
nearly=35 nearly=41
shared_data%params%nzhsym=nearly shared_data%params%nzhsym=nearly
id2a(1:nearly*3456)=shared_data%id2(1:nearly*3456) id2a(1:nearly*3456)=shared_data%id2(1:nearly*3456)
id2a(nearly*3456+1:)=0 id2a(nearly*3456+1:)=0

View File

@ -64,7 +64,7 @@ subroutine jt9a()
call timer('decoder ',0) call timer('decoder ',0)
if(local_params%nmode.eq.8 .and. local_params%ndiskdat) then if(local_params%nmode.eq.8 .and. local_params%ndiskdat) then
! "Early" decoding pass for data read from disk: FT8 only ! "Early" decoding pass for data read from disk: FT8 only
nearly=35 nearly=41
local_params%nzhsym=nearly local_params%nzhsym=nearly
id2a(1:nearly*3456)=shared_data%id2(1:nearly*3456) id2a(1:nearly*3456)=shared_data%id2(1:nearly*3456)
id2a(nearly*3456+1:)=0 id2a(nearly*3456+1:)=0

View File

@ -467,7 +467,7 @@ private:
qint32 m_nFoxFreq; //Audio freq at which Hound received a call from Fox qint32 m_nFoxFreq; //Audio freq at which Hound received a call from Fox
qint32 m_nSentFoxRrpt=0; //Serial number for next R+rpt Hound will send to Fox qint32 m_nSentFoxRrpt=0; //Serial number for next R+rpt Hound will send to Fox
qint32 m_kin0=0; qint32 m_kin0=0;
qint32 m_earlyDecode=35; qint32 m_earlyDecode=41;
bool m_btxok; //True if OK to transmit bool m_btxok; //True if OK to transmit
bool m_diskData; bool m_diskData;