diff --git a/map65.py b/map65.py index 3ae500c86..5760bcf27 100644 --- a/map65.py +++ b/map65.py @@ -1,4 +1,4 @@ -#-------------------------------------------------------------------- MAP65 +#--------------------------------------------------------------------- MAP65 # $Date$ $Revision$ # from Tkinter import * diff --git a/recvpkt.F90 b/recvpkt.F90 index f736e2b16..77fef5a6d 100644 --- a/recvpkt.F90 +++ b/recvpkt.F90 @@ -7,7 +7,7 @@ subroutine recvpkt(iarg) real*8 d8(NSZ) integer*1 userx_no,iusb integer*2 nblock,nblock0 - integer txnow + logical synced real*8 center_freq,buf8 common/plrscom/center_freq,msec,fqso,iptr,nblock,userx_no,iusb,buf8(174) include 'datcom.f90' @@ -21,14 +21,14 @@ subroutine recvpkt(iarg) 1 call setup_rsocket(multicast) !Open socket for multicast/unicast data k=0 - k0=0 kk=0 kxp=0 - kb=2 + kb=1 nsec0=-999 fcenter=144.125 !Default (startup) frequency) multicast0=multicast ntx=0 + synced=.false. 10 if(multicast.ne.multicast0) go to 1 call recv_pkt(center_freq) @@ -44,12 +44,12 @@ 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 kxp=k npkt=0 + synced=.true. endif ns0=ns @@ -107,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 .and. (k-k0)/96000.ge.48) then + if(ns.ge.nt1 .and. ndone1.eq.0 .and. synced) then nutc=mutc fcenter=center_freq kbuf=kb