2016-03-25 18:02:57 +00:00
|
|
|
subroutine decode65b(s2,nflip,nadd,mode65,ntrials,naggressive,ndepth, &
|
2015-12-16 19:31:12 +00:00
|
|
|
mycall,hiscall,hisgrid,nexp_decode,nqd,nft,qual,nhist,decoded)
|
2013-07-08 13:17:22 +00:00
|
|
|
|
2016-03-11 16:26:06 +00:00
|
|
|
use jt65_mod
|
2013-07-08 13:17:22 +00:00
|
|
|
real s2(66,126)
|
|
|
|
|
real s3(64,63)
|
2016-04-06 22:37:22 +00:00
|
|
|
logical ltext
|
2013-07-08 13:17:22 +00:00
|
|
|
character decoded*22
|
2015-12-16 19:31:12 +00:00
|
|
|
character mycall*12,hiscall*12,hisgrid*6
|
2013-07-08 13:17:22 +00:00
|
|
|
save
|
|
|
|
|
|
2016-06-09 19:39:48 +00:00
|
|
|
if(nqd.eq.-99) stop !Silence compiler warning
|
2013-07-08 13:17:22 +00:00
|
|
|
do j=1,63
|
|
|
|
|
k=mdat(j) !Points to data symbol
|
|
|
|
|
if(nflip.lt.0) k=mdat2(j)
|
|
|
|
|
do i=1,64
|
|
|
|
|
s3(i,j)=s2(i+2,k)
|
|
|
|
|
enddo
|
|
|
|
|
enddo
|
|
|
|
|
|
2016-05-17 17:19:27 +00:00
|
|
|
call extract(s3,nadd,mode65,ntrials,naggressive,ndepth,nflip,mycall, &
|
|
|
|
|
hiscall,hisgrid,nexp_decode,ncount,nhist,decoded,ltext,nft,qual)
|
2015-11-18 01:28:12 +00:00
|
|
|
|
2013-07-08 13:17:22 +00:00
|
|
|
! Suppress "birdie messages" and other garbage decodes:
|
|
|
|
|
if(decoded(1:7).eq.'000AAA ') ncount=-1
|
|
|
|
|
if(decoded(1:7).eq.'0L6MWK ') ncount=-1
|
|
|
|
|
if(nflip.lt.0 .and. ltext) ncount=-1
|
|
|
|
|
if(ncount.lt.0) then
|
2015-12-09 21:02:37 +00:00
|
|
|
nft=0
|
2013-07-08 13:17:22 +00:00
|
|
|
decoded=' '
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine decode65b
|
