w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-23 18:02:29 -04:00
Code Issues Packages Projects Releases Wiki Activity

Correct broken S/N for tx_once transmissions.

Browse Source
This commit is contained in:
Joe Taylor 2019-01-16 15:00:12 -05:00
parent 3023f7e5c6
commit 0a648a109f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/ft2/ft2.f90
View File

@ -62,6 +62,7 @@ program ft2
tx_once=.true. tx_once=.true.
ftx=1500.0 ftx=1500.0
call transmit(-1,ftx,iptt) call transmit(-1,ftx,iptt)
snrdb=99.0
endif endif
! Start the audio streams ! Start the audio streams
@ -218,7 +219,7 @@ subroutine transmit(nfunc,ftx,iptt)
' R 559 '//trim(exch) ' R 559 '//trim(exch)
if(nfunc.eq.4) txmsg=trim(hiscall)//' '//trim(mycall)//' RR73' if(nfunc.eq.4) txmsg=trim(hiscall)//' '//trim(mycall)//' RR73'
if(nfunc.eq.5) txmsg='TNX 73 GL' if(nfunc.eq.5) txmsg='TNX 73 GL'
call ft2_iwave(txmsg,ftx,99.0,iwave) call ft2_iwave(txmsg,ftx,snrdb,iwave)
i1=ptt(nport,1,1,iptt) i1=ptt(nport,1,1,iptt)
ntxok=1 ntxok=1
n=len(trim(txmsg)) n=len(trim(txmsg))