WSJT-X/lib/fsk4hf/ldpc_174_101_parity.f90

259 lines
6.3 KiB
Fortran

data Mn/ &
2, 54, 72, &
18, 60, 62, &
37, 50, 70, &
3, 30, 66, &
4, 9, 14, &
5, 19, 23, &
6, 21, 47, &
7, 31, 50, &
8, 39, 70, &
10, 33, 73, &
11, 22, 49, &
12, 60, 61, &
16, 53, 55, &
17, 63, 67, &
24, 59, 64, &
25, 27, 68, &
26, 38, 46, &
28, 57, 72, &
29, 36, 43, &
32, 48, 51, &
34, 52, 69, &
14, 35, 44, &
40, 41, 42, &
45, 56, 65, &
31, 51, 54, &
42, 58, 69, &
1, 37, 72, &
2, 27, 64, &
3, 41, 70, &
4, 10, 12, &
5, 40, 59, &
6, 19, 39, &
7, 53, 68, &
8, 35, 47, &
9, 48, 66, &
11, 18, 36, &
13, 20, 29, &
15, 28, 46, &
16, 23, 54, &
17, 52, 57, &
21, 26, 62, &
22, 63, 73, &
24, 51, 65, &
25, 30, 43, &
32, 47, 61, &
33, 56, 71, &
15, 34, 45, &
38, 43, 60, &
44, 50, 67, &
3, 49, 58, &
22, 55, 72, &
1, 13, 53, &
2, 20, 69, &
4, 46, 49, &
5, 9, 45, &
6, 11, 65, &
7, 35, 57, &
8, 11, 38, &
10, 29, 32, &
12, 16, 21, &
14, 64, 71, &
17, 41, 68, &
1, 18, 66, &
19, 58, 64, &
23, 24, 48, &
25, 31, 67, &
26, 42, 44, &
27, 40, 50, &
28, 56, 62, &
30, 37, 63, &
33, 54, 70, &
34, 36, 73, &
39, 55, 61, &
9, 52, 59, &
50, 54, 60, &
2, 4, 16, &
3, 20, 31, &
5, 55, 67, &
6, 44, 48, &
7, 28, 52, &
8, 29, 30, &
10, 24, 49, &
12, 57, 66, &
13, 42, 73, &
14, 19, 21, &
15, 27, 36, &
17, 39, 43, &
18, 51, 61, &
22, 23, 60, &
25, 46, 70, &
26, 58, 59, &
32, 63, 71, &
5, 33, 65, &
34, 41, 53, &
35, 37, 41, &
38, 68, 73, &
30, 40, 69, &
39, 45, 62, &
47, 69, 72, &
4, 37, 56, &
1, 31, 48, &
1, 21, 58, &
2, 5, 62, &
3, 27, 57, &
4, 43, 51, &
2, 35, 63, &
6, 53, 59, &
7, 29, 66, &
8, 42, 72, &
9, 31, 36, &
10, 35, 55, &
11, 13, 54, &
12, 63, 65, &
10, 11, 15, &
14, 22, 69, &
15, 16, 70, &
9, 16, 24, &
17, 47, 56, &
18, 45, 50, &
19, 30, 44, &
20, 60, 71, &
1, 44, 65, &
22, 26, 68, &
23, 28, 61, &
24, 25, 39, &
13, 46, 50, &
26, 34, 67, &
3, 6, 60, &
14, 28, 40, &
4, 7, 42, &
19, 36, 57, &
25, 32, 34, &
32, 37, 38, &
33, 41, 46, &
17, 18, 23, &
5, 43, 47, &
30, 45, 72, &
12, 37, 64, &
27, 38, 56, &
31, 61, 73, &
40, 49, 52, &
20, 41, 48, &
21, 29, 52, &
8, 68, 71, &
15, 17, 59, &
3, 13, 14, &
2, 61, 66, &
9, 38, 58, &
48, 64, 73, &
49, 53, 62, &
10, 19, 26, &
1, 41, 43, &
52, 55, 71, &
16, 20, 30, &
4, 6, 34, &
51, 69, 70, &
7, 11, 64, &
18, 25, 35, &
54, 58, 67, &
12, 39, 40, &
33, 39, 66, &
5, 37, 68, &
8, 31, 59, &
21, 45, 73, &
27, 51, 55, &
23, 42, 65, &
22, 29, 56, &
20, 28, 67, &
32, 44, 49, &
33, 53, 69, &
13, 24, 47, &
36, 46, 63, &
1, 15, 71, &
48, 57, 62/
data Nm/ &
27, 52, 63, 101, 102, 122, 152, 173, &
1, 28, 53, 76, 103, 106, 147, 0, &
4, 29, 50, 77, 104, 128, 146, 0, &
5, 30, 54, 76, 100, 105, 130, 155, &
6, 31, 55, 78, 93, 103, 136, 162, &
7, 32, 56, 79, 107, 128, 155, 0, &
8, 33, 57, 80, 108, 130, 157, 0, &
9, 34, 58, 81, 109, 144, 163, 0, &
5, 35, 55, 74, 110, 117, 148, 0, &
10, 30, 59, 82, 111, 114, 151, 0, &
11, 36, 56, 58, 112, 114, 157, 0, &
12, 30, 60, 83, 113, 138, 160, 0, &
37, 52, 84, 112, 126, 146, 171, 0, &
5, 22, 61, 85, 115, 129, 146, 0, &
38, 47, 86, 114, 116, 145, 173, 0, &
13, 39, 60, 76, 116, 117, 154, 0, &
14, 40, 62, 87, 118, 135, 145, 0, &
2, 36, 63, 88, 119, 135, 158, 0, &
6, 32, 64, 85, 120, 131, 151, 0, &
37, 53, 77, 121, 142, 154, 168, 0, &
7, 41, 60, 85, 102, 143, 164, 0, &
11, 42, 51, 89, 115, 123, 167, 0, &
6, 39, 65, 89, 124, 135, 166, 0, &
15, 43, 65, 82, 117, 125, 171, 0, &
16, 44, 66, 90, 125, 132, 158, 0, &
17, 41, 67, 91, 123, 127, 151, 0, &
16, 28, 68, 86, 104, 139, 165, 0, &
18, 38, 69, 80, 124, 129, 168, 0, &
19, 37, 59, 81, 108, 143, 167, 0, &
4, 44, 70, 81, 97, 120, 137, 154, &
8, 25, 66, 77, 101, 110, 140, 163, &
20, 45, 59, 92, 132, 133, 169, 0, &
10, 46, 71, 93, 134, 161, 170, 0, &
21, 47, 72, 94, 127, 132, 155, 0, &
22, 34, 57, 95, 106, 111, 158, 0, &
19, 36, 72, 86, 110, 131, 172, 0, &
3, 27, 70, 95, 100, 133, 138, 162, &
17, 48, 58, 96, 133, 139, 148, 0, &
9, 32, 73, 87, 98, 125, 160, 161, &
23, 31, 68, 97, 129, 141, 160, 0, &
23, 29, 62, 94, 95, 134, 142, 152, &
23, 26, 67, 84, 109, 130, 166, 0, &
19, 44, 48, 87, 105, 136, 152, 0, &
22, 49, 67, 79, 120, 122, 169, 0, &
24, 47, 55, 98, 119, 137, 164, 0, &
17, 38, 54, 90, 126, 134, 172, 0, &
7, 34, 45, 99, 118, 136, 171, 0, &
20, 35, 65, 79, 101, 142, 149, 174, &
11, 50, 54, 82, 141, 150, 169, 0, &
3, 8, 49, 68, 75, 119, 126, 0, &
20, 25, 43, 88, 105, 156, 165, 0, &
21, 40, 74, 80, 141, 143, 153, 0, &
13, 33, 52, 94, 107, 150, 170, 0, &
1, 25, 39, 71, 75, 112, 159, 0, &
13, 51, 73, 78, 111, 153, 165, 0, &
24, 46, 69, 100, 118, 139, 167, 0, &
18, 40, 57, 83, 104, 131, 174, 0, &
26, 50, 64, 91, 102, 148, 159, 0, &
15, 31, 74, 91, 107, 145, 163, 0, &
2, 12, 48, 75, 89, 121, 128, 0, &
12, 45, 73, 88, 124, 140, 147, 0, &
2, 41, 69, 98, 103, 150, 174, 0, &
14, 42, 70, 92, 106, 113, 172, 0, &
15, 28, 61, 64, 138, 149, 157, 0, &
24, 43, 56, 93, 113, 122, 166, 0, &
4, 35, 63, 83, 108, 147, 161, 0, &
14, 49, 66, 78, 127, 159, 168, 0, &
16, 33, 62, 96, 123, 144, 162, 0, &
21, 26, 53, 97, 99, 115, 156, 170, &
3, 9, 29, 71, 90, 116, 156, 0, &
46, 61, 92, 121, 144, 153, 173, 0, &
1, 18, 27, 51, 99, 109, 137, 0, &
10, 42, 72, 84, 96, 140, 149, 164/
data nrw/ &
8,7,7,8,8,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, &
7,7,7,7,7,7,7,7,7,8,8,7,7,7,7,7,8,7,8,7, &
8,7,7,7,7,7,7,8,7,7,7,7,7,7,7,7,7,7,7,7, &
7,7,7,7,7,7,7,7,8,7,7,7,8/
ncw=3