Clean up a couple of loose ends.

This commit is contained in:
Steven Franke 2020-07-09 15:30:46 -05:00
parent a47f34db92
commit 8998537622

View File

@ -391,7 +391,6 @@ contains
fc_synced=candidates(icand,3)
isbest=nint(candidates(icand,4))
xdt=(isbest-nspsec)/fs2
if(ntrperiod.eq.15) xdt=(isbest-real(nspsec)/2.0)/fs2
call fst240_downsample(c_bigfft,nfft1,ndown,fc_synced,sigbw,c2)
@ -419,7 +418,6 @@ contains
ns5=count(hbits(305:320).eq.(/0,0,0,1,1,0,1,1,0,1,0,0,1,1,1,0/))
nsync_qual=ns1+ns2+ns3+ns4+ns5
! if(nsync_qual.lt. 46) cycle !### Value ?? ###
scalefac=2.83
llra( 1: 60)=bitmetrics( 17: 76, 1)
llra( 61:120)=bitmetrics( 93:152, 1)
@ -462,7 +460,6 @@ contains
apmask=0
iaptype=0
endif
napwid=1.2*(4.0*baud*hmod)
if(itry.gt.nblock) then
llr=llra
@ -538,7 +535,6 @@ contains
c77(51:77)='000000000000000000000110000'
call unpack77(c77,0,msg,unpk77_success)
endif
! if(unpk77_success.and.index(msg,"K9AN").ne.0) then
if(unpk77_success) then
idupe=0
do i=1,ndecodes