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'
|
||||
save
|
||||
|
||||
! print*,'A',newdat2,nutc,nfile
|
||||
if(newdat2.eq.0) newdat2=1 !###
|
||||
print*,'nlost:',nlost
|
||||
|
||||
if(newdat2.eq.0) newdat2=1 !###
|
||||
if(newdat2.gt.0) nid=1
|
||||
if(nid.eq.0) go to 999
|
||||
rewind 11
|
||||
@ -70,15 +70,8 @@ subroutine map65a
|
||||
nfilt=2 !nfilt=2 is faster for selected freq
|
||||
freq=fselect
|
||||
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, &
|
||||
a,dt,pol,nkv,nhist,qual,decoded)
|
||||
! print*,'C',nkv,qual,decoded
|
||||
nsync1=0
|
||||
nsync2=nint(10.0*log10(sync2)) - 40 !### empirical ###
|
||||
ndf=nint(a(1))
|
||||
|
15
recvpkt.F90
15
recvpkt.F90
@ -30,14 +30,19 @@ subroutine recvpkt(iarg)
|
||||
nsec0=-999
|
||||
|
||||
10 call recv_pkt(center_freq)
|
||||
if((nblock-nblock0).ne.1 .and. .not.first) then
|
||||
print*,'Lost packets?',nblock-nblock0,nblock,nblock0
|
||||
lost=nblock-nblock0-1
|
||||
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
|
||||
first=.false.
|
||||
nblock0=nblock
|
||||
|
||||
if(monitoring.eq.1) then
|
||||
|
||||
nsec=msec/1000
|
||||
if(mod(nsec,60).eq.1) nreset=1
|
||||
if(mod(nsec,60).eq.0 .and. nreset.eq.1) then
|
||||
@ -46,6 +51,7 @@ subroutine recvpkt(iarg)
|
||||
kb=3-kb
|
||||
k=0
|
||||
if(kb.eq.2) k=NSZ
|
||||
nlost=0
|
||||
endif
|
||||
|
||||
do i=1,174
|
||||
@ -64,9 +70,10 @@ subroutine recvpkt(iarg)
|
||||
nsec0=nsec
|
||||
endif
|
||||
|
||||
if(mod(nsec,60).eq.59) then
|
||||
if(mod(nsec,60).eq.52) then
|
||||
kbuf=kb
|
||||
nutc=mutc
|
||||
klost=nlost
|
||||
ndecoding=1
|
||||
endif
|
||||
endif
|
||||
|
Loading…
Reference in New Issue
Block a user