subroutine decode65b(s2,nflip,nadd,mode65,ntrials,naggressive,ndepth,      &
     mycall,hiscall,hisgrid,nexp_decode,nqd,nft,qual,nhist,decoded)

  use jt65_mod
  real s2(66,126)
  real s3(64,63)
  logical ltext
  character decoded*22
  character mycall*12,hiscall*12,hisgrid*6
  save

  if(nqd.eq.-99) stop                !Silence compiler warning
  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

  call extract(s3,nadd,mode65,ntrials,naggressive,ndepth,nflip,mycall,   &
       hiscall,hisgrid,nexp_decode,ncount,nhist,decoded,ltext,nft,qual)

! 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 
     nft=0
     decoded='                      '
  endif

  return
end subroutine decode65b