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

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)
  real    f0save(MAXAVE)
  real    xdtsave(MAXAVE)
  real    snr1save(MAXAVE)
  real,allocatable :: s3save(:,:,:)
  real,allocatable :: s3avg(:,:)

end module q65
New files for Q65 message averaging. 2020-12-26 10:08:53 -05:00			`module q65`

			`parameter (MAXAVE=64)`
Much reworking of Q65 decoder. Have temporarily enabled all types of decoding passes. 2020-12-28 15:27:10 -05:00			`parameter (PLOG_MIN=-240.0) !List decoding threshold`
New files for Q65 message averaging. 2020-12-26 10:08:53 -05:00			`integer nsave,nlist,LL0`
			`integer iutc(MAXAVE)`
			`integer iseq(MAXAVE)`
			`integer listutc(10)`
Work in progress, with lots of diagnostics. Do not use on the air! 2020-12-27 15:27:26 -05:00			`integer apmask(13),apsymbols(13)`
Work in progress on message averaging: save current status. 2020-12-27 11:35:55 -05:00			`real f0save(MAXAVE)`
New files for Q65 message averaging. 2020-12-26 10:08:53 -05:00			`real xdtsave(MAXAVE)`
			`real snr1save(MAXAVE)`
			`real,allocatable :: s3save(:,:,:)`
			`real,allocatable :: s3avg(:,:)`

			`end module q65`