w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 21:40:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Don't correct for supposedly "missing" packets on program startup.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2444 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2011-09-27 19:13:14 +00:00
parent 4bbba3a5f3
commit 7a7019f237
2 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
plrr_subs_win.c
View File

@ -3,7 +3,8 @@
#include <stdlib.h> #include <stdlib.h>
#include <stdio.h> #include <stdio.h>
#define HELLO_PORT 50004 #define HELLO_PORT 50004 // timf2 data
//#define HELLO_PORT 50000 // raw data
#define HELLO_GROUP "239.255.0.0" #define HELLO_GROUP "239.255.0.0"
#define MSGBUFSIZE 1416 #define MSGBUFSIZE 1416

8
recvpkt.F90
View File

@ -7,14 +7,14 @@ 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
logical synced logical first,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'
include 'gcom1.f90' include 'gcom1.f90'
include 'gcom2.f90' include 'gcom2.f90'
equivalence (id,d8) equivalence (id,d8)
data nblock0/0/,kb/1/,ns00/99/ data nblock0/0/,kb/1/,ns00/99/,first/.true./
data sqave/0.0/,u/0.001/,rxnoise/0.0/,pctblank/0.0/,kbuf/1/,lost_tot/0/ data sqave/0.0/,u/0.001/,rxnoise/0.0/,pctblank/0.0/,kbuf/1/,lost_tot/0/
data multicast0/-99/ data multicast0/-99/
save save
@ -46,6 +46,7 @@ subroutine recvpkt(iarg)
if(ns.lt.ns00 .and. (lauto+monitoring.ne.0)) then if(ns.lt.ns00 .and. (lauto+monitoring.ne.0)) then
! print*,'new minute:',mod(nsec/60,60),ns00,ns,ntx,kb ! print*,'new minute:',mod(nsec/60,60),ns00,ns,ntx,kb
if(ntx.eq.0) kb=3-kb if(ntx.eq.0) kb=3-kb
if(first) kb=1
k=(kb-1)*60*96000 k=(kb-1)*60*96000
kxp=k kxp=k
ndone1=0 ndone1=0
@ -62,6 +63,7 @@ subroutine recvpkt(iarg)
if((kb.eq.1 .and. (k+174).gt.NSMAX) .or. & if((kb.eq.1 .and. (k+174).gt.NSMAX) .or. &
(kb.eq.2 .and. (k+174).gt.2*NSMAX)) go to 20 (kb.eq.2 .and. (k+174).gt.2*NSMAX)) go to 20
if(.not.first) then
! Check for lost packets ! Check for lost packets
lost=nblock-nblock0-1 lost=nblock-nblock0-1
if(lost.ne.0) then if(lost.ne.0) then
@ -75,6 +77,8 @@ subroutine recvpkt(iarg)
d8(k)=0 d8(k)=0
enddo enddo
endif endif
endif
first=.false.
nblock0=nblock nblock0=nblock
tdiff=mod(0.001d0*msec,60.d0)-mod(Tsec,60.d0) tdiff=mod(0.001d0*msec,60.d0)-mod(Tsec,60.d0)