mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-17 17:42:02 -05:00
128b8a70d2
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8397 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
24 lines
895 B
Fortran
24 lines
895 B
Fortran
parameter (NN=162)
|
|
parameter (NSPS0=8192) !Samples per symbol at 12000 S/s
|
|
parameter (NDOWN=32)
|
|
parameter (NSPS=NSPS0/NDOWN)
|
|
parameter (NZ=NSPS*NN) !Samples in waveform at 12000 S/s
|
|
parameter (NZ0=NSPS0*NN) !Samples in waveform at 375 S/s
|
|
parameter (NMAX=120*12000) !Samples in waveform at 375 S/s
|
|
|
|
! Define the sync vector:
|
|
integer*1 sync(162)
|
|
data sync/ &
|
|
1,1,0,0,0,0,0,0,1,0,0,0,1,1,1,0,0,0,1,0, &
|
|
0,1,0,1,1,1,1,0,0,0,0,0,0,0,1,0,0,1,0,1, &
|
|
0,0,0,0,0,0,1,0,1,1,0,0,1,1,0,1,0,0,0,1, &
|
|
1,0,1,0,0,0,0,1,1,0,1,0,1,0,1,0,1,0,0,1, &
|
|
0,0,1,0,1,1,0,0,0,1,1,0,1,0,1,0,0,0,1,0, &
|
|
0,0,0,0,1,0,0,1,0,0,1,1,1,0,1,1,0,0,1,1, &
|
|
0,1,0,0,0,1,1,1,0,0,0,0,0,1,0,1,0,0,1,1, &
|
|
0,0,0,0,0,0,0,1,1,0,1,0,1,1,0,0,0,1,1,0, &
|
|
0,0/
|
|
|
|
|
|
|