WSJT-X/lib/qra/q65/q65.f90
2020-12-28 18:53:13 -05:00

18 lines
409 B
Fortran

module q65
parameter (MAXAVE=64)
parameter (PLOG_MIN=-240.0) !List decoding threshold
integer nsave,nlist,LL0
integer iutc(MAXAVE)
integer iseq(MAXAVE)
integer listutc(10)
integer apmask(13),apsymbols(13)
integer navg
real f0save(MAXAVE)
real xdtsave(MAXAVE)
real snr1save(MAXAVE)
real,allocatable :: s3save(:,:,:)
real,allocatable :: s3avg(:,:)
end module q65