Fix ft2 build to accommodate having merged changes from the hotfix branch.

This commit is contained in:
Joe Taylor 2019-01-16 16:25:31 -05:00
parent 074914d607
commit 9b483d5ee1
3 changed files with 1 additions and 1 deletions

View File

@ -180,7 +180,7 @@ subroutine ft2_decode(cdatetime,nfqso,iwave,ndecodes,mycall,hiscall,nrx)
if(sum(message77).eq.0) cycle if(sum(message77).eq.0) cycle
if( nharderror.ge.0 ) then if( nharderror.ge.0 ) then
write(c77,'(77i1)') message77(1:77) write(c77,'(77i1)') message77(1:77)
call unpack77(c77,message,unpk77_success) call unpack77(c77,nrx,message,unpk77_success)
idupe=0 idupe=0
do i=1,ndecodes do i=1,ndecodes
if(decodes(i).eq.message) idupe=1 if(decodes(i).eq.message) idupe=1

Binary file not shown.

Binary file not shown.