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