mirror of https://github.com/saitohirga/WSJT-X.git
101 lines
3.3 KiB
Fortran
101 lines
3.3 KiB
Fortran
integer, parameter:: N=174, K=91, M=N-K
|
|
character*23 g(83)
|
|
integer colorder(N)
|
|
|
|
data g/ &
|
|
"2a6a9ab98f661b797baa21a", &
|
|
"5fda604488977fdc30ff630", &
|
|
"8a450007032409e8797b13a", &
|
|
"0f7923bfa5d559590ef6efe", &
|
|
"44dc14bc4461e645f847c78", &
|
|
"f8c66224febd3e60f5e3708", &
|
|
"6d60329e83fb0e1b1bdac2e", &
|
|
"66435a472a7837a0e5d4e12", &
|
|
"9d0feced8745a66e328c310", &
|
|
"1791b0e7c5eaa43710c4276", &
|
|
"e5cbd2d5b4d65d3a432d97e", &
|
|
"c2241f8795e0e5bc6bd9052", &
|
|
"222d861201a4697c2689576", &
|
|
"aa2ee5d6d462e206f59cbe8", &
|
|
"e486eb73894e6a0964d8c40", &
|
|
"4099d5b42d36301cff6dbd6", &
|
|
"40c50b9341f7b5ea08dabde", &
|
|
"c90359074895363d428f072", &
|
|
"ca819cb6569fbfe26b68ef8", &
|
|
"4d983341fb56b8e1dae3450", &
|
|
"2dce341bc8fd0e5de04fa52", &
|
|
"3e7b01b376e3e5f6080de0e", &
|
|
"6c8b0813ca2394c08564f94", &
|
|
"c322ca8ea866784adc9451a", &
|
|
"6378aa1a03fab3e163aa4b0", &
|
|
"3c92ea8df0003883a021d70", &
|
|
"c793729067176eca26b83c2", &
|
|
"d3fae76046a36dff711207a", &
|
|
"bc9bf3ef57137fda1c325da", &
|
|
"a4eabe2df65a083ea6387c8", &
|
|
"650e3da3a0c0349154131d8", &
|
|
"1fb4c59ffc11c648ad06760", &
|
|
"1471f9599543f13fd7eb6ae", &
|
|
"6111012405186e84cba67ce", &
|
|
"c4da3574edafefff976fc08", &
|
|
"953f854e40701063115c0f2", &
|
|
"1f7ae6982f9a5733c44fb70", &
|
|
"83e101fe5e80c1b8541728e", &
|
|
"50375654edd53054f81e228", &
|
|
"1bb03a21a6cde34dff7ec96", &
|
|
"b0b279a934342aa0e188b3a", &
|
|
"e1989846a20a09cd77b1f64", &
|
|
"4eb68e01cb07fdbc83edee2", &
|
|
"f33ac4ec36a7c8e6ea8364c", &
|
|
"99b03a21a6c5e34dfffec96", &
|
|
"e50e3de3a1c034915413158", &
|
|
"fda09f8b05b8fb80ac78600", &
|
|
"ca8709be6b193204dd25ab0", &
|
|
"35701ff0cc3a03f213a93d2", &
|
|
"c2bfdec67f7b5a4c5ee7544", &
|
|
"dc184fe7e93a65c1b4b7cd2", &
|
|
"8cf8aac820f107d6ec6b30a", &
|
|
"e74b3da5a3e43d593d680e2", &
|
|
"c1e51f79db6124243fceadc", &
|
|
"29237d5d05dc1a4cca2ddd0", &
|
|
"050e76be4749b3b279d6414", &
|
|
"dd163959ae739673cde18c6", &
|
|
"03e100fe5e81c1b85417a8e", &
|
|
"06b2b17f70e75fc365bed20", &
|
|
"6df9e72abecd3e03e4b77fa", &
|
|
"4fa5370361b4bf3cf6b1296", &
|
|
"eabbf88f0a88307629bfd1c", &
|
|
"190674f88cf69989c8b8a40", &
|
|
"37740c13cfad07f61dcac3a", &
|
|
"4e7923bfa5d579590ef4ede", &
|
|
"fe74d37b8e5a63a2905da28", &
|
|
"2101e7a95979b2c5c44257e", &
|
|
"841f3ec7a4585a159fb5796", &
|
|
"aa7ff31d4b7f859c21254c2", &
|
|
"6e69229ba0cdb7ddcd50930", &
|
|
"29cfc4288af223bea58b96e", &
|
|
"5d03eba9f51956176b87abe", &
|
|
"399cbc33a7498b31d9f79e4", &
|
|
"034967e48ab80135b1c7fca", &
|
|
"721ad006ac715928df9775e", &
|
|
"37210b395327446ac7108f8", &
|
|
"52acf6de27477ea937e5330", &
|
|
"1f3a8549435c198b68231c8", &
|
|
"ef6809edb4a3557cd173d0a", &
|
|
"09a31639fef9c7a8b6fcae2", &
|
|
"03bc87c137eeec711c68d36", &
|
|
"b09347742319f90131d3146", &
|
|
"a723c9cef1de8c97f34c94c"/
|
|
|
|
data colorder/ &
|
|
0, 1, 2, 3, 28, 4, 5, 6, 7, 8, 9, 10, 11, 34, 12, 32, 13, 14, 15, 16,&
|
|
17, 18, 36, 29, 40, 19, 20, 38, 21, 41, 30, 42, 22, 44, 37, 47, 48, 23, 33, 43,&
|
|
49, 45, 56, 39, 25, 26, 46, 50, 51, 52, 24, 57, 58, 61, 31, 54, 64, 35, 27, 62,&
|
|
59, 53, 60, 63, 55, 70, 66, 67, 68, 65, 71, 74, 72, 73, 77, 75, 69, 76, 79, 82,&
|
|
83, 78, 81, 80, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,&
|
|
100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,&
|
|
120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,&
|
|
140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,&
|
|
160,161,162,163,164,165,166,167,168,169,170,171,172,173/
|
|
|