WSJT-X/lib/qra/q65/q65.f90

17 lines
394 B
Fortran
Raw Normal View History

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