mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-08 22:36:40 -04:00
Account for lost packets, substituting zeros.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@399 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
f4bf9ef27c
commit
5d9d4d992c
11
map65a.f90
11
map65a.f90
@ -24,9 +24,9 @@ subroutine map65a
|
|||||||
include 'gcom2.f90'
|
include 'gcom2.f90'
|
||||||
save
|
save
|
||||||
|
|
||||||
! print*,'A',newdat2,nutc,nfile
|
print*,'nlost:',nlost
|
||||||
if(newdat2.eq.0) newdat2=1 !###
|
|
||||||
|
|
||||||
|
if(newdat2.eq.0) newdat2=1 !###
|
||||||
if(newdat2.gt.0) nid=1
|
if(newdat2.gt.0) nid=1
|
||||||
if(nid.eq.0) go to 999
|
if(nid.eq.0) go to 999
|
||||||
rewind 11
|
rewind 11
|
||||||
@ -70,15 +70,8 @@ subroutine map65a
|
|||||||
nfilt=2 !nfilt=2 is faster for selected freq
|
nfilt=2 !nfilt=2 is faster for selected freq
|
||||||
freq=fselect
|
freq=fselect
|
||||||
dt=2.314240 !Not needed?
|
dt=2.314240 !Not needed?
|
||||||
! print*,'B',newdat2,nfilt,freq,nflip,ip0
|
|
||||||
|
|
||||||
write(*,3001) newdat2,nfilt,nflip,ip0,freq, &
|
|
||||||
(id(1,i,kbuf),id(2,i,kbuf),id(3,i,kbuf),id(4,i,kbuf),i=1,2)
|
|
||||||
3001 format(4i5,f10.3,8i5)
|
|
||||||
|
|
||||||
call decode1a(id(1,1,kbuf),newdat2,nfilt,freq,nflip,ip0,sync2, &
|
call decode1a(id(1,1,kbuf),newdat2,nfilt,freq,nflip,ip0,sync2, &
|
||||||
a,dt,pol,nkv,nhist,qual,decoded)
|
a,dt,pol,nkv,nhist,qual,decoded)
|
||||||
! print*,'C',nkv,qual,decoded
|
|
||||||
nsync1=0
|
nsync1=0
|
||||||
nsync2=nint(10.0*log10(sync2)) - 40 !### empirical ###
|
nsync2=nint(10.0*log10(sync2)) - 40 !### empirical ###
|
||||||
ndf=nint(a(1))
|
ndf=nint(a(1))
|
||||||
|
15
recvpkt.F90
15
recvpkt.F90
@ -30,14 +30,19 @@ subroutine recvpkt(iarg)
|
|||||||
nsec0=-999
|
nsec0=-999
|
||||||
|
|
||||||
10 call recv_pkt(center_freq)
|
10 call recv_pkt(center_freq)
|
||||||
if((nblock-nblock0).ne.1 .and. .not.first) then
|
lost=nblock-nblock0-1
|
||||||
print*,'Lost packets?',nblock-nblock0,nblock,nblock0
|
if(lost.ne.0 .and. .not.first) then
|
||||||
|
print*,'Lost packets?',nblock,nblock0,lost
|
||||||
|
nlost=nlost + lost
|
||||||
|
do i=1,174*lost
|
||||||
|
k=k+1
|
||||||
|
d8(k)=0
|
||||||
|
enddo
|
||||||
endif
|
endif
|
||||||
first=.false.
|
first=.false.
|
||||||
nblock0=nblock
|
nblock0=nblock
|
||||||
|
|
||||||
if(monitoring.eq.1) then
|
if(monitoring.eq.1) then
|
||||||
|
|
||||||
nsec=msec/1000
|
nsec=msec/1000
|
||||||
if(mod(nsec,60).eq.1) nreset=1
|
if(mod(nsec,60).eq.1) nreset=1
|
||||||
if(mod(nsec,60).eq.0 .and. nreset.eq.1) then
|
if(mod(nsec,60).eq.0 .and. nreset.eq.1) then
|
||||||
@ -46,6 +51,7 @@ subroutine recvpkt(iarg)
|
|||||||
kb=3-kb
|
kb=3-kb
|
||||||
k=0
|
k=0
|
||||||
if(kb.eq.2) k=NSZ
|
if(kb.eq.2) k=NSZ
|
||||||
|
nlost=0
|
||||||
endif
|
endif
|
||||||
|
|
||||||
do i=1,174
|
do i=1,174
|
||||||
@ -64,9 +70,10 @@ subroutine recvpkt(iarg)
|
|||||||
nsec0=nsec
|
nsec0=nsec
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if(mod(nsec,60).eq.59) then
|
if(mod(nsec,60).eq.52) then
|
||||||
kbuf=kb
|
kbuf=kb
|
||||||
nutc=mutc
|
nutc=mutc
|
||||||
|
klost=nlost
|
||||||
ndecoding=1
|
ndecoding=1
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
|
Loading…
Reference in New Issue
Block a user