w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

If we must bail out of an early decode, should still output its results.

Browse Source
This commit is contained in:
Joe Taylor 2021-07-16 08:30:37 -04:00
parent 1257b87118
commit 8c62f0280d
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
map65/libm65/map65a.f90
View File

@ -400,7 +400,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
close(16) close(16)
endif endif
call sec0(1,tsec0) call sec0(1,tsec0)
if(nhsym.eq.nhsym1 .and. tsec0.gt.3.0) go to 900 if(nhsym.eq.nhsym1 .and. tsec0.gt.3.0) go to 700
if(nqd.eq.1 .and. nagain.eq.1) go to 900 if(nqd.eq.1 .and. nagain.eq.1) go to 900
if(nqd.eq.0 .and. bq65) then if(nqd.eq.0 .and. bq65) then
@ -427,11 +427,8 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
! Trim the list and produce a sorted index and sizes of groups. ! Trim the list and produce a sorted index and sizes of groups.
! (Should trimlist remove all but best SNR for given UTC and message content?) ! (Should trimlist remove all but best SNR for given UTC and message content?)
call trimlist(sig,km,ftol,indx,nsiz,nz) 700 call trimlist(sig,km,ftol,indx,nsiz,nz)
done(1:km)=.false.
do i=1,km
done(i)=.false.
enddo
j=0 j=0
ilatest=-1 ilatest=-1
do n=1,nz do n=1,nz