w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-10-01 17:46:55 -04:00
Code Issues Packages Projects Releases Wiki Activity

Several tweaks for setting startup conditions.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@993 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2008-07-24 17:05:55 +00:00
parent 9b1f100e61
commit c8366844f1
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
map65.py
View File

@ -1,4 +1,4 @@
#-------------------------------------------------------------------- MAP65 #--------------------------------------------------------------------- MAP65
# $Date$ $Revision$ # $Date$ $Revision$
# #
from Tkinter import * from Tkinter import *

10
recvpkt.F90
View File

@ -7,7 +7,7 @@ subroutine recvpkt(iarg)
real*8 d8(NSZ) real*8 d8(NSZ)
integer*1 userx_no,iusb integer*1 userx_no,iusb
integer*2 nblock,nblock0 integer*2 nblock,nblock0
integer txnow logical synced
real*8 center_freq,buf8 real*8 center_freq,buf8
common/plrscom/center_freq,msec,fqso,iptr,nblock,userx_no,iusb,buf8(174) common/plrscom/center_freq,msec,fqso,iptr,nblock,userx_no,iusb,buf8(174)
include 'datcom.f90' include 'datcom.f90'
@ -21,14 +21,14 @@ subroutine recvpkt(iarg)
1 call setup_rsocket(multicast) !Open socket for multicast/unicast data 1 call setup_rsocket(multicast) !Open socket for multicast/unicast data
k=0 k=0
k0=0
kk=0 kk=0
kxp=0 kxp=0
kb=2 kb=1
nsec0=-999 nsec0=-999
fcenter=144.125 !Default (startup) frequency) fcenter=144.125 !Default (startup) frequency)
multicast0=multicast multicast0=multicast
ntx=0 ntx=0
synced=.false.
10 if(multicast.ne.multicast0) go to 1 10 if(multicast.ne.multicast0) go to 1
call recv_pkt(center_freq) call recv_pkt(center_freq)
@ -44,12 +44,12 @@ subroutine recvpkt(iarg)
if(ns.lt.ns0) then if(ns.lt.ns0) then
if(ntx.eq.0) kb=3-kb if(ntx.eq.0) kb=3-kb
k=(kb-1)*60*96000 k=(kb-1)*60*96000
k0=k
ndone1=0 ndone1=0
ntx=0 ntx=0
lost_tot=0 lost_tot=0
kxp=k kxp=k
npkt=0 npkt=0
synced=.true.
endif endif
ns0=ns 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 we have not transmitted in this minute, see if it's time to start FFTs
if(ntx.eq.0) then 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 nutc=mutc
fcenter=center_freq fcenter=center_freq
kbuf=kb kbuf=kb