diff --git a/map65.py b/map65.py index 140b4f3ca..3ae500c86 100644 --- a/map65.py +++ b/map65.py @@ -994,7 +994,7 @@ def update(): azdist() g.nfreq=nfreq.get() kxp=int(Audio.datcom.kxp) - if kxp-kxp0 < 50000 and \ + if kxp-kxp0 >=0 and kxp-kxp0 < 50000 and \ ((not Audio.gcom2.lauto) or (not Audio.gcom1.transmitting)): msg5.configure(text='No Rx data',bg='red') else: diff --git a/recvpkt.F90 b/recvpkt.F90 index 0273b315c..f736e2b16 100644 --- a/recvpkt.F90 +++ b/recvpkt.F90 @@ -21,9 +21,10 @@ subroutine recvpkt(iarg) 1 call setup_rsocket(multicast) !Open socket for multicast/unicast data k=0 + k0=0 kk=0 kxp=0 - kb=1 + kb=2 nsec0=-999 fcenter=144.125 !Default (startup) frequency) multicast0=multicast @@ -43,6 +44,7 @@ subroutine recvpkt(iarg) if(ns.lt.ns0) then if(ntx.eq.0) kb=3-kb k=(kb-1)*60*96000 + k0=k ndone1=0 ntx=0 lost_tot=0 @@ -105,7 +107,7 @@ subroutine recvpkt(iarg) ! If we have not transmitted in this minute, see if it's time to start FFTs if(ntx.eq.0) then - if(ns.ge.nt1 .and. ndone1.eq.0) then + if(ns.ge.nt1 .and. ndone1.eq.0 .and. (k-k0)/96000.ge.48) then nutc=mutc fcenter=center_freq kbuf=kb @@ -115,7 +117,7 @@ subroutine recvpkt(iarg) endif ! See if it's time to start second stage of processing - if(ns.ge.nt2) then + if(ndone1.eq.1 .and. ns.ge.nt2) then kk=k nlost=lost_tot ! Save stats for printout endif