mirror of https://github.com/saitohirga/WSJT-X.git
Don't correct for supposedly "missing" packets on program startup.
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:
parent
6d6596500a
commit
acea2993ae
|
@ -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
|
||||||
|
|
||||||
|
|
30
recvpkt.F90
30
recvpkt.F90
|
@ -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,19 +63,22 @@ 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
|
||||||
nb=nblock
|
nb=nblock
|
||||||
if(nb.lt.0) nb=nb+65536
|
if(nb.lt.0) nb=nb+65536
|
||||||
nb0=nblock0
|
nb0=nblock0
|
||||||
if(nb0.lt.0) nb0=nb0+65536
|
if(nb0.lt.0) nb0=nb0+65536
|
||||||
lost_tot=lost_tot + lost ! Insert zeros for the lost data.
|
lost_tot=lost_tot + lost ! Insert zeros for the lost data.
|
||||||
do i=1,174*lost
|
do i=1,174*lost
|
||||||
k=k+1
|
k=k+1
|
||||||
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)
|
||||||
|
|
Loading…
Reference in New Issue