mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-31 23:57:10 -04:00
5c21f6806d
2. ft8d is now a bare-bones multi-decoder. 3. wsjt-x now includes the bare-bones multi-decoder for FT8. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7729 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
54 lines
1.5 KiB
Fortran
54 lines
1.5 KiB
Fortran
module ft8_decode
|
|
|
|
type :: ft8_decoder
|
|
procedure(ft8_decode_callback), pointer :: callback
|
|
contains
|
|
procedure :: decode
|
|
end type ft8_decoder
|
|
|
|
abstract interface
|
|
subroutine ft8_decode_callback (this, sync, snr, dt, freq, drift, &
|
|
decoded)
|
|
import ft8_decoder
|
|
implicit none
|
|
class(ft8_decoder), intent(inout) :: this
|
|
real, intent(in) :: sync
|
|
integer, intent(in) :: snr
|
|
real, intent(in) :: dt
|
|
real, intent(in) :: freq
|
|
integer, intent(in) :: drift
|
|
character(len=22), intent(in) :: decoded
|
|
end subroutine ft8_decode_callback
|
|
end interface
|
|
|
|
contains
|
|
|
|
subroutine decode(this,callback,ss,iwave,nfqso,newdat,npts8,nfa, &
|
|
nfsplit,nfb,ntol,nzhsym,nagain,ndepth,nmode,nsubmode,nexp_decode)
|
|
use timer_module, only: timer
|
|
|
|
! include 'constants.f90'
|
|
include 'fsk4hf/ft8_params.f90'
|
|
|
|
class(ft8_decoder), intent(inout) :: this
|
|
procedure(ft8_decode_callback) :: callback
|
|
real ss(1,1) !### dummy, to be removed ###
|
|
real s(NH1,NHSYM)
|
|
real candidate(3,100)
|
|
logical, intent(in) :: newdat, nagain
|
|
integer*2 iwave(15*12000)
|
|
character*13 datetime
|
|
|
|
datetime="000000_000000" !### TEMPORARY ###
|
|
|
|
call sync8(iwave,s,candidate,ncand)
|
|
call ft8b(datetime,s,candidate,ncand)
|
|
! if (associated(this%callback)) then
|
|
! call this%callback(sync,nsnr,xdt,freq,ndrift,msg)
|
|
! end if
|
|
|
|
return
|
|
end subroutine decode
|
|
|
|
end module ft8_decode
|