mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-22 12:23:37 -05:00
Adjusted tx2 to allow for latency.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@106 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
8ce9f91fb6
commit
8668f660bd
14
fivehz.f90
14
fivehz.f90
@ -31,7 +31,7 @@ subroutine fivehz
|
|||||||
if(first) then
|
if(first) then
|
||||||
rxdelay=0.2
|
rxdelay=0.2
|
||||||
txdelay=0.2
|
txdelay=0.2
|
||||||
tlatency=3*2048/11025.0
|
tlatency=1.0
|
||||||
first=.false.
|
first=.false.
|
||||||
iptt=0
|
iptt=0
|
||||||
ntr0=-99
|
ntr0=-99
|
||||||
@ -63,7 +63,7 @@ subroutine fivehz
|
|||||||
tx2=trperiod-(tlatency+txdelay) !Time to turn TX off
|
tx2=trperiod-(tlatency+txdelay) !Time to turn TX off
|
||||||
if(mode(1:4).eq.'JT65') then
|
if(mode(1:4).eq.'JT65') then
|
||||||
if(nwave.lt.126*4096) nwave=126*4096
|
if(nwave.lt.126*4096) nwave=126*4096
|
||||||
tx2=nwave/11025.0
|
tx2=nwave/11025.0 + tlatency
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if(TxFirst.eq.0) then
|
if(TxFirst.eq.0) then
|
||||||
@ -126,7 +126,7 @@ subroutine fivehz
|
|||||||
if(nc1.eq.0) TxOK=1 ! We are transmitting
|
if(nc1.eq.0) TxOK=1 ! We are transmitting
|
||||||
|
|
||||||
! If TxOK was just lowered, start a countdown for lowering PTT:
|
! If TxOK was just lowered, start a countdown for lowering PTT:
|
||||||
nc0a=txdelay/0.18576
|
nc0a=(tlatency+txdelay)/0.18576
|
||||||
if(nc0a.lt.4) nc0a=4
|
if(nc0a.lt.4) nc0a=4
|
||||||
if(TxOK.eq.0 .and. TxOKz.eq.1 .and. iptt.eq.1) nc0=-nc0a
|
if(TxOK.eq.0 .and. TxOKz.eq.1 .and. iptt.eq.1) nc0=-nc0a
|
||||||
if(nc0.le.0) nc0=nc0+1
|
if(nc0.le.0) nc0=nc0+1
|
||||||
@ -150,13 +150,13 @@ subroutine fivehz
|
|||||||
! t60=mod(tsec,60.d0)
|
! t60=mod(tsec,60.d0)
|
||||||
! if(iptt.ne.iptt0) then
|
! if(iptt.ne.iptt0) then
|
||||||
! if(iptt.eq.1) tstart=tsec
|
! if(iptt.eq.1) tstart=tsec
|
||||||
! if(iptt.eq.0) write(*,1101) tsec-tstop,t60
|
! if(iptt.eq.0) write(*,1101) tsec-tstop,t60,t,tx1,tx2
|
||||||
!1101 format('Delay from TxOFF to PTT was',f6.2,' s at t=',f6.2)
|
!1101 format('Delay1:',2f7.2,3f10.1)
|
||||||
! endif
|
! endif
|
||||||
! if(TxOK.ne.TxOKz) then
|
! if(TxOK.ne.TxOKz) then
|
||||||
! if(TxOK.eq.0) tstop=tsec
|
! if(TxOK.eq.0) tstop=tsec
|
||||||
! if(TxOK.eq.1) write(*,1102) tsec-tstart,t60
|
! if(TxOK.eq.1) write(*,1102) tsec-tstart,t60,t,tx1,tx2
|
||||||
!1102 format('Delay from PTT to TxON was ',f6.2,' s at t=',f6.2)
|
!1102 format('Delay2:',2f7.2,3f10.1)
|
||||||
! endif
|
! endif
|
||||||
! endif
|
! endif
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user