mirror of https://github.com/saitohirga/WSJT-X.git
185 lines
5.7 KiB
Fortran
185 lines
5.7 KiB
Fortran
data Mn/ &
|
|
10, 25, 37, 0, &
|
|
1, 19, 20, 0, &
|
|
20, 27, 29, 0, &
|
|
3, 22, 36, 0, &
|
|
4, 26, 30, 0, &
|
|
5, 15, 28, 0, &
|
|
6, 21, 23, 0, &
|
|
7, 16, 32, 0, &
|
|
9, 31, 38, 0, &
|
|
10, 13, 18, 0, &
|
|
11, 20, 37, 0, &
|
|
12, 24, 33, 0, &
|
|
14, 25, 33, 0, &
|
|
15, 17, 32, 0, &
|
|
1, 9, 14, 0, &
|
|
2, 16, 17, 0, &
|
|
3, 5, 18, 0, &
|
|
4, 23, 38, 0, &
|
|
6, 24, 37, 0, &
|
|
7, 25, 35, 0, &
|
|
8, 29, 33, 0, &
|
|
10, 30, 36, 0, &
|
|
11, 27, 28, 0, &
|
|
12, 22, 32, 0, &
|
|
13, 17, 21, 0, &
|
|
10, 19, 31, 0, &
|
|
18, 26, 34, 0, &
|
|
1, 5, 30, 0, &
|
|
2, 19, 25, 0, &
|
|
3, 9, 21, 0, &
|
|
4, 8, 11, 0, &
|
|
6, 35, 38, 0, &
|
|
7, 13, 29, 0, &
|
|
12, 20, 26, 0, &
|
|
14, 24, 27, 0, &
|
|
15, 23, 34, 0, &
|
|
16, 31, 37, 0, &
|
|
10, 22, 28, 0, &
|
|
28, 34, 36, 0, &
|
|
1, 37, 38, 0, &
|
|
2, 5, 13, 0, &
|
|
3, 7, 14, 0, &
|
|
4, 16, 19, 0, &
|
|
6, 18, 29, 0, &
|
|
8, 17, 23, 0, &
|
|
9, 33, 36, 0, &
|
|
11, 12, 35, 0, &
|
|
15, 25, 27, 0, &
|
|
20, 30, 32, 0, &
|
|
21, 24, 26, 0, &
|
|
22, 31, 33, 0, &
|
|
1, 3, 17, 0, &
|
|
2, 8, 36, 0, &
|
|
4, 14, 34, 0, &
|
|
5, 20, 24, 0, &
|
|
6, 12, 30, 0, &
|
|
7, 19, 37, 0, &
|
|
9, 22, 23, 0, &
|
|
10, 27, 35, 0, &
|
|
11, 25, 38, 0, &
|
|
13, 28, 31, 0, &
|
|
11, 15, 29, 0, &
|
|
16, 18, 21, 0, &
|
|
26, 27, 32, 0, &
|
|
1, 4, 10, 0, &
|
|
2, 9, 29, 32, &
|
|
3, 6, 20, 33, &
|
|
5, 21, 31, 34, &
|
|
7, 8, 15, 30, &
|
|
12, 13, 14, 16, &
|
|
17, 22, 26, 37, &
|
|
15, 18, 36, 38, &
|
|
19, 22, 24, 35, &
|
|
12, 23, 25, 28, &
|
|
1, 13, 32, 33, &
|
|
2, 11, 14, 18, &
|
|
3, 10, 26, 38, &
|
|
4, 24, 31, 32, &
|
|
5, 6, 17, 25, &
|
|
7, 9, 24, 28, &
|
|
8, 9, 34, 37, &
|
|
16, 20, 23, 35, &
|
|
19, 21, 27, 30, &
|
|
16, 26, 29, 36, &
|
|
1, 22, 25, 29, &
|
|
2, 3, 15, 37, &
|
|
4, 12, 21, 36, &
|
|
5, 8, 14, 19, &
|
|
6, 7, 10, 34, &
|
|
11, 17, 19, 33, &
|
|
1, 12, 31, 0, &
|
|
2, 4, 33, 0, &
|
|
3, 16, 30, 0, &
|
|
1, 2, 24, 0, &
|
|
5, 23, 27, 0, &
|
|
6, 28, 32, 0, &
|
|
7, 17, 36, 0, &
|
|
8, 22, 38, 0, &
|
|
9, 18, 20, 0, &
|
|
10, 21, 29, 0, &
|
|
11, 13, 34, 0, &
|
|
4, 20, 22, 0, &
|
|
7, 11, 21, 0, &
|
|
14, 35, 37, 0, &
|
|
15, 19, 26, 0, &
|
|
3, 28, 29, 0, &
|
|
9, 13, 35, 0, &
|
|
14, 17, 30, 0, &
|
|
10, 15, 33, 0, &
|
|
5, 12, 37, 0, &
|
|
18, 25, 32, 0, &
|
|
8, 16, 27, 0, &
|
|
19, 34, 38, 0, &
|
|
24, 25, 36, 0, &
|
|
2, 28, 35, 0, &
|
|
19, 23, 36, 0, &
|
|
3, 12, 34, 0, &
|
|
9, 15, 16, 0, &
|
|
4, 5, 7, 0, &
|
|
1, 8, 21, 0, &
|
|
6, 13, 22, 0, &
|
|
11, 24, 30, 0, &
|
|
8, 26, 35, 0, &
|
|
6, 26, 31, 0, &
|
|
14, 32, 38, 0, &
|
|
18, 23, 33, 0, &
|
|
2, 27, 34, 0, &
|
|
17, 29, 31, 0/
|
|
|
|
data Nm/ &
|
|
2, 15, 28, 40, 52, 65, 75, 85, 91, 94, 120, 0, &
|
|
16, 29, 41, 53, 66, 76, 86, 92, 94, 115, 127, 0, &
|
|
4, 17, 30, 42, 52, 67, 77, 86, 93, 106, 117, 0, &
|
|
5, 18, 31, 43, 54, 65, 78, 87, 92, 102, 119, 0, &
|
|
6, 17, 28, 41, 55, 68, 79, 88, 95, 110, 119, 0, &
|
|
7, 19, 32, 44, 56, 67, 79, 89, 96, 121, 124, 0, &
|
|
8, 20, 33, 42, 57, 69, 80, 89, 97, 103, 119, 0, &
|
|
21, 31, 45, 53, 69, 81, 88, 98, 112, 120, 123, 0, &
|
|
9, 15, 30, 46, 58, 66, 80, 81, 99, 107, 118, 0, &
|
|
1, 10, 22, 26, 38, 59, 65, 77, 89, 100, 109, 0, &
|
|
11, 23, 31, 47, 60, 62, 76, 90, 101, 103, 122, 0, &
|
|
12, 24, 34, 47, 56, 70, 74, 87, 91, 110, 117, 0, &
|
|
10, 25, 33, 41, 61, 70, 75, 101, 107, 121, 0, 0, &
|
|
13, 15, 35, 42, 54, 70, 76, 88, 104, 108, 125, 0, &
|
|
6, 14, 36, 48, 62, 69, 72, 86, 105, 109, 118, 0, &
|
|
8, 16, 37, 43, 63, 70, 82, 84, 93, 112, 118, 0, &
|
|
14, 16, 25, 45, 52, 71, 79, 90, 97, 108, 128, 0, &
|
|
10, 17, 27, 44, 63, 72, 76, 99, 111, 126, 0, 0, &
|
|
2, 26, 29, 43, 57, 73, 83, 88, 90, 105, 113, 116, &
|
|
2, 3, 11, 34, 49, 55, 67, 82, 99, 102, 0, 0, &
|
|
7, 25, 30, 50, 63, 68, 83, 87, 100, 103, 120, 0, &
|
|
4, 24, 38, 51, 58, 71, 73, 85, 98, 102, 121, 0, &
|
|
7, 18, 36, 45, 58, 74, 82, 95, 116, 126, 0, 0, &
|
|
12, 19, 35, 50, 55, 73, 78, 80, 94, 114, 122, 0, &
|
|
1, 13, 20, 29, 48, 60, 74, 79, 85, 111, 114, 0, &
|
|
5, 27, 34, 50, 64, 71, 77, 84, 105, 123, 124, 0, &
|
|
3, 23, 35, 48, 59, 64, 83, 95, 112, 127, 0, 0, &
|
|
6, 23, 38, 39, 61, 74, 80, 96, 106, 115, 0, 0, &
|
|
3, 21, 33, 44, 62, 66, 84, 85, 100, 106, 128, 0, &
|
|
5, 22, 28, 49, 56, 69, 83, 93, 108, 122, 0, 0, &
|
|
9, 26, 37, 51, 61, 68, 78, 91, 124, 128, 0, 0, &
|
|
8, 14, 24, 49, 64, 66, 75, 78, 96, 111, 125, 0, &
|
|
12, 13, 21, 46, 51, 67, 75, 90, 92, 109, 126, 0, &
|
|
27, 36, 39, 54, 68, 81, 89, 101, 113, 117, 127, 0, &
|
|
20, 32, 47, 59, 73, 82, 104, 107, 115, 123, 0, 0, &
|
|
4, 22, 39, 46, 53, 72, 84, 87, 97, 114, 116, 0, &
|
|
1, 11, 19, 37, 40, 57, 71, 81, 86, 104, 110, 0, &
|
|
9, 18, 32, 40, 60, 72, 77, 98, 113, 125, 0, 0/
|
|
|
|
data nrw/ &
|
|
11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11, &
|
|
11,10,12,10,11,11,10,11,11,11,10,10,11,10,10,11, &
|
|
11,11,10,11,11,10/
|
|
|
|
data ncw/ &
|
|
3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, &
|
|
3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, &
|
|
3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, &
|
|
3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, &
|
|
3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, &
|
|
4,4,4,4,4,4,4,4,4,4,3,3,3,3,3,3, &
|
|
3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, &
|
|
3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3/
|