2020-12-26 10:08:53 -05:00
|
|
|
module q65
|
|
|
|
|
|
|
|
|
|
parameter (MAXAVE=64)
|
2020-12-28 15:27:10 -05:00
|
|
|
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)
|
2020-12-30 15:40:06 -05:00
|
|
|
integer apsym0(58),aph10(10)
|
2020-12-27 15:27:26 -05:00
|
|
|
integer apmask(13),apsymbols(13)
|
2020-12-28 18:53:13 -05:00
|
|
|
integer navg
|
2020-12-27 11:35:55 -05:00
|
|
|
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
|
