WSJT-X/lib/ft8_decode.f90

54 lines
1.5 KiB
Fortran
Raw Normal View History

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