mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-16 18:26:34 -04:00
fb00a603d5
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6702 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
28 lines
1.0 KiB
Fortran
28 lines
1.0 KiB
Fortran
module jt4
|
|
parameter (MAXAVE=64)
|
|
integer iutc(MAXAVE)
|
|
integer nfsave(MAXAVE)
|
|
integer listutc(10)
|
|
logical ok(MAXAVE)
|
|
real ppsave(207,7,MAXAVE) !Accumulated data for message averaging
|
|
real rsymbol(207,7)
|
|
real dtsave(MAXAVE)
|
|
real syncsave(MAXAVE)
|
|
real flipsave(MAXAVE)
|
|
real zz(1260,65,7)
|
|
|
|
integer nsave,nlist,ich1,ich2
|
|
integer nch(7)
|
|
integer npr(207)
|
|
data rsymbol/1449*0.0/
|
|
data nch/1,2,4,9,18,36,72/
|
|
data npr/ &
|
|
0,0,0,0,1,1,0,0,0,1,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,0,1,1,0,0, &
|
|
0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,1,1,0,1,0,1,1,1,1,1,0,1,0,0,0, &
|
|
1,0,0,1,0,0,1,1,1,1,1,0,0,0,1,0,1,0,0,0,1,1,1,1,0,1,1,0,0,1, &
|
|
0,0,0,1,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1,0,1,0,1,1,0,1,0,1, &
|
|
0,1,1,1,0,0,1,0,1,1,0,1,1,1,1,0,0,0,0,1,1,0,1,1,0,0,0,1,1,1, &
|
|
0,1,1,1,0,1,1,1,0,0,1,0,0,0,1,1,0,1,1,0,0,1,0,0,0,1,1,1,1,1, &
|
|
1,0,0,1,1,0,0,0,0,1,1,0,0,0,1,0,1,1,0,1,1,1,1,0,1,0,1/
|
|
end module jt4
|