mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-18 10:01:57 -05:00
76 lines
3.1 KiB
Fortran
76 lines
3.1 KiB
Fortran
|
module jt65_generator_matrix
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
! generator matrix for the jt65 (63,12) RS code
|
||
|
|
integer :: g(12,63)
|
||
|
|
data g/ &
|
||
|
|
58,56,36,31,12,21,48,25,62,11, 3,62, &
|
||
|
|
22,19,36,16,27,62, 5, 6,50, 6,10,40, &
|
||
|
|
62,59, 9,40,57,11,28,60,30, 6,61,18, &
|
||
|
|
5,31,43,14,53,12,60,52,50,62,48,51, &
|
||
|
|
24,56,29, 2,21,43,35,57,37,54,40,33, &
|
||
|
|
29, 4,42,51, 4,62,51,14,38, 1,22,55, &
|
||
|
|
53, 5,16,60,24,13,20,17,34,14,27,58, &
|
||
|
|
59,57,15,27, 8,61,24, 5, 7,54, 3,13, &
|
||
|
|
14,47,39,18, 4,36, 2,43,63,59,33,57, &
|
||
|
|
54, 9,10,13,50,30,34,56,60,54,51,54, &
|
||
|
|
15,22,57, 3,42,46, 4,25,42,31,47,33, &
|
||
|
|
29,19, 4,23, 5, 1,54,41, 6,14,63,48, &
|
||
|
|
21,43,62,12,24,36,61,24,57,31,29,47, &
|
||
|
|
30,22, 8,44, 1,32,16, 8,60,60,45,57, &
|
||
|
|
54,25,51,34,12,27,38,42,31,53,52,58, &
|
||
|
|
59,58,19,56,22,41,14,55,60,11,56,34, &
|
||
|
|
16,44, 7,28,42, 2,34, 8,41, 5,46,38, &
|
||
|
|
61,34, 7,55,62,41,12, 3,43,60,44,13, &
|
||
|
|
14,41,60,26,40,18,22,63,57,23,43,22, &
|
||
|
|
40,10,47, 4,55,10,32,25,12,53,45,24, &
|
||
|
|
43,51,61,43,34, 6,20,55,17,33,29,37, &
|
||
|
|
48,18,55,44,29,30,27,30,21,25,13,63, &
|
||
|
|
44,33,42,28,36,58,62,52,11,38,27,24, &
|
||
|
|
43,55,22,46,58,21,36,41,60,38,14,19, &
|
||
|
|
63,50, 3,14,63,26,18,21,25,23,19,62, &
|
||
|
|
22,22,46,55,10,13,10,36,62,33,22,56, &
|
||
|
|
12,41,23,27,27, 5,59,41,13,60,42,63, &
|
||
|
|
44,29,17,60,19,60,37,20,60,62,62,63, &
|
||
|
|
44,61,37,58,52,52,28,10, 1,15,60,43, &
|
||
|
|
51,10, 8, 8, 7,27, 5,14,19,40,49,37, &
|
||
|
|
48,10,14,25,62,59, 6,15,44,27, 4,19, &
|
||
|
|
63,41,62,22, 8,30,60,55,63, 7,46,52, &
|
||
|
|
56,44,18, 9,41,62,39,53,26,10,24, 3, &
|
||
|
|
13,51, 3,51,29,22,45,12,52, 7,15,25, &
|
||
|
|
17,46,32,24,25,57,56,35,58,18,44,57, &
|
||
|
|
54,22,11,10,56, 3,63, 2,52,51,26,59, &
|
||
|
|
1, 2,56,31,50, 8,38,55,42,43,61,50, &
|
||
|
|
34, 4,36,14, 8,57,23,58,24,37,62,18, &
|
||
|
|
5, 3,20,35,19,61,14,63,52,56,19,48, &
|
||
|
|
21,51,46,28,44,50, 1,32,47,45,43, 3, &
|
||
|
|
13,30,28,15, 8,19,33,42,33,50,40,42, &
|
||
|
|
9,19,15,46,62,50,18,42,13, 3,15,15, &
|
||
|
|
57,46, 6,44,41,56,46,19,47,39,18,10, &
|
||
|
|
46, 3, 9, 5,23,45,17,17,21,34,57,20, &
|
||
|
|
31,25,14,15,48,31,60,44,29,15,30,53, &
|
||
|
|
2,52, 6,38,60,19,22,44,63,35,19,13, &
|
||
|
|
14,22,42,27,57,16,44,37,22, 3,52,41, &
|
||
|
|
4,27,40,57,62,60, 2,12, 3,41,59,18, &
|
||
|
|
5,37,11,47,36,11,11,42, 2,35,31,53, &
|
||
|
|
2,46,58,35,28, 7, 2,27,57,60,63,12, &
|
||
|
|
52,46,20,56,48,37, 8,40,31,14,40,59, &
|
||
|
|
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, &
|
||
|
|
0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, &
|
||
|
|
0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, &
|
||
|
|
0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, &
|
||
|
|
0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, &
|
||
|
|
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, &
|
||
|
|
0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, &
|
||
|
|
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, &
|
||
|
|
0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, &
|
||
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, &
|
||
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, &
|
||
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1/
|
||
|
|
|
||
|
|
contains
|
||
|
|
|
||
|
|
end module jt65_generator_matrix
|
||
|
|
|