w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-29 07:28:54 -04:00
Code Issues Packages Projects Releases Wiki Activity

Code cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2021-01-12 11:28:46 -05:00
parent ef478717ea
commit d25e188dca
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lib/q65_decode.f90
View File

@ -1,27 +1,27 @@
module q65_decode module q65_decode
type :: q65_decoder type :: q65_decoder
procedure(q65_decode_callback), pointer :: callback procedure(q65_decode_callback), pointer :: callback
contains contains
procedure :: decode procedure :: decode
end type q65_decoder end type q65_decoder
abstract interface abstract interface
subroutine q65_decode_callback (this,nutc,sync,nsnr,dt,freq, & subroutine q65_decode_callback (this,nutc,sync,nsnr,dt,freq, &
decoded,nap,ntrperiod) decoded,nap,ntrperiod)
import q65_decoder import q65_decoder
implicit none implicit none
class(q65_decoder), intent(inout) :: this class(q65_decoder), intent(inout) :: this
integer, intent(in) :: nutc integer, intent(in) :: nutc
real, intent(in) :: sync real, intent(in) :: sync
integer, intent(in) :: nsnr integer, intent(in) :: nsnr
real, intent(in) :: dt real, intent(in) :: dt
real, intent(in) :: freq real, intent(in) :: freq
character(len=37), intent(in) :: decoded character(len=37), intent(in) :: decoded
integer, intent(in) :: nap integer, intent(in) :: nap
integer, intent(in) :: ntrperiod integer, intent(in) :: ntrperiod
end subroutine q65_decode_callback end subroutine q65_decode_callback
end interface end interface
contains contains