mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-20 04:06:34 -04:00
15 lines
292 B
Fortran
15 lines
292 B
Fortran
|
module q65
|
||
|
|
||
|
parameter (MAXAVE=64)
|
||
|
integer nsave,nlist,LL0
|
||
|
integer iutc(MAXAVE)
|
||
|
integer iseq(MAXAVE)
|
||
|
integer listutc(10)
|
||
|
real fsave(MAXAVE)
|
||
|
real xdtsave(MAXAVE)
|
||
|
real snr1save(MAXAVE)
|
||
|
real,allocatable :: s3save(:,:,:)
|
||
|
real,allocatable :: s3avg(:,:)
|
||
|
|
||
|
end module q65
|