155 lines
5.1 KiB
Fortran
155 lines
5.1 KiB
Fortran
|
integer, parameter:: N=204, K=68, M=N-K
|
||
|
|
character*17 g(136)
|
||
|
|
integer colorder(N)
|
||
|
|
data g/ & !parity generator matrix for (204,68) code
|
||
|
|
"2de7435fd27c0031d", &
|
||
|
|
"f331b40671e20ea80", &
|
||
|
|
"48bd3f8cb9a24392f", &
|
||
|
|
"d4ed71c935162aa2a", &
|
||
|
|
"c437a3284ec58bce7", &
|
||
|
|
"35a806dd5be35627c", &
|
||
|
|
"396e797c33a4739a6", &
|
||
|
|
"768f331a59c15487b", &
|
||
|
|
"c214eac24ae5e1732", &
|
||
|
|
"0b5c53ff3a6da1192", &
|
||
|
|
"99624981d2703fb97", &
|
||
|
|
"e9f5447ef7f1ff6af", &
|
||
|
|
"bd8c730f0cfdf0727", &
|
||
|
|
"26f61e63e1e098f7f", &
|
||
|
|
"ef826566137b6526f", &
|
||
|
|
"af0e4fa251e9b4926", &
|
||
|
|
"75974a8b2a24292c5", &
|
||
|
|
"71caf0f2cd10f6d4f", &
|
||
|
|
"b1103f1f26e6898b7", &
|
||
|
|
"67ceb7d6f490da64f", &
|
||
|
|
"ee0e8fbefec23008a", &
|
||
|
|
"11cc2227e8bd676ca", &
|
||
|
|
"6e71626ba1e278046", &
|
||
|
|
"005d28da267e50e13", &
|
||
|
|
"a9ae4a130aaba8219", &
|
||
|
|
"d8ab72e0158d0da70", &
|
||
|
|
"56009d42b37bd66ff", &
|
||
|
|
"c39a75eca99b0e996", &
|
||
|
|
"6886de0bf7c0bf4bb", &
|
||
|
|
"1046cd8f64162f7b5", &
|
||
|
|
"da0f15843ac21e3a5", &
|
||
|
|
"e9bf9cd19f3db3913", &
|
||
|
|
"2fb9cb42d650f47a7", &
|
||
|
|
"a2b6c5a378fa75a65", &
|
||
|
|
"41a88f3cd60b79d6c", &
|
||
|
|
"fcf175794cc3ac96a", &
|
||
|
|
"8677a3447d40a9f71", &
|
||
|
|
"97a1f08c250b4bf12", &
|
||
|
|
"0168f090a1df6e8ea", &
|
||
|
|
"418a06bf372cc67d9", &
|
||
|
|
"0f17b880c1ff51239", &
|
||
|
|
"b2afd6d585deb961b", &
|
||
|
|
"60298ac5b58dbeee0", &
|
||
|
|
"8350c03c40119feff", &
|
||
|
|
"b29c964a8accf6af4", &
|
||
|
|
"9b46f036a5c178b5d", &
|
||
|
|
"917398bff051c300a", &
|
||
|
|
"5e52c03b2f8c5128c", &
|
||
|
|
"beae6c33c87ba38ab", &
|
||
|
|
"20843f7b056a02ebf", &
|
||
|
|
"66690d65acd9de598", &
|
||
|
|
"8f025841af5b54331", &
|
||
|
|
"b43cd869d3be2c3db", &
|
||
|
|
"c9c342fe63c18df50", &
|
||
|
|
"d331b40671e28ea80", &
|
||
|
|
"62406a0f4947e6ce9", &
|
||
|
|
"d67b1495883b22e1b", &
|
||
|
|
"734534c372408895b", &
|
||
|
|
"d88750e33d9677dcd", &
|
||
|
|
"6f96964da55138687", &
|
||
|
|
"80bee98bb75d50ef2", &
|
||
|
|
"c428ef3e3f06f4c56", &
|
||
|
|
"b1a1499b125883a35", &
|
||
|
|
"ac892d4b37fa9e395", &
|
||
|
|
"458dbda0f95ab11a5", &
|
||
|
|
"6f93c9e95b1094eed", &
|
||
|
|
"2e370d713914f848e", &
|
||
|
|
"758806dd5be35627c", &
|
||
|
|
"8c52e01caec798b49", &
|
||
|
|
"c286cc25bae3669cf", &
|
||
|
|
"87c56fb895c100884", &
|
||
|
|
"e89cb1376a18fd911", &
|
||
|
|
"156ffe5f30dc354e0", &
|
||
|
|
"f20d0b121d6a6b3ee", &
|
||
|
|
"7db08891b491a95d2", &
|
||
|
|
"191fac548d5077bdf", &
|
||
|
|
"023a37d7ea5660bbc", &
|
||
|
|
"6781668b363fee682", &
|
||
|
|
"bbfaf262cab7370da", &
|
||
|
|
"feea557965b7e474f", &
|
||
|
|
"c094eb223e1d305b8", &
|
||
|
|
"2be051abdd5beea35", &
|
||
|
|
"0790449880fda9d00", &
|
||
|
|
"f9029a39ec869e7b4", &
|
||
|
|
"5a29f48926ec9a552", &
|
||
|
|
"e0463306dc1470f87", &
|
||
|
|
"9251058334d790f86", &
|
||
|
|
"3019e1d4578e8a4dc", &
|
||
|
|
"887e46631502fa111", &
|
||
|
|
"c25fcd7a42465d326", &
|
||
|
|
"cf64bcc1056b555c4", &
|
||
|
|
"3e71c0fe5f0ad733b", &
|
||
|
|
"11055ec43b076e5b2", &
|
||
|
|
"3440f64dfa3c30a96", &
|
||
|
|
"2b73885b4d3299f60", &
|
||
|
|
"2e71627ba1e268046", &
|
||
|
|
"ad23743d5e6e5b80c", &
|
||
|
|
"c9757b05f29bfdc10", &
|
||
|
|
"f7112bea739247b51", &
|
||
|
|
"3664062387998b2b1", &
|
||
|
|
"90897a3b8785aefba", &
|
||
|
|
"29e126e3201fc1d46", &
|
||
|
|
"96c9001c84d5257fc", &
|
||
|
|
"067723447d40a9f71", &
|
||
|
|
"1a019cc68f7511402", &
|
||
|
|
"4bd48eb2330032763", &
|
||
|
|
"d139a5da936b37647", &
|
||
|
|
"765ab46a4dec5f04f", &
|
||
|
|
"706f475ad19b91955", &
|
||
|
|
"1755c988fa8a55e5c", &
|
||
|
|
"2fd9ed5777eb01d6a", &
|
||
|
|
"bec27d85b954d3fe8", &
|
||
|
|
"7135a3b92c45b3f8d", &
|
||
|
|
"353237872f002163a", &
|
||
|
|
"e31e4a97aef10c729", &
|
||
|
|
"da527d5e1cbc4edb6", &
|
||
|
|
"6e33cdede17c3207e", &
|
||
|
|
"ef2d2062e84dc401f", &
|
||
|
|
"8217c84c50c1bf833", &
|
||
|
|
"12ffbac7b2219c9e0", &
|
||
|
|
"3729178706f66881f", &
|
||
|
|
"2fdd748c382a608a1", &
|
||
|
|
"dd0a00076f9dcec73", &
|
||
|
|
"46b1d37bced447035", &
|
||
|
|
"7316f33a9c05ef178", &
|
||
|
|
"152c39a6de8954cc3", &
|
||
|
|
"16efffb7b62e12ba3", &
|
||
|
|
"9d9ec2bb467affd83", &
|
||
|
|
"467723445d40a9f61", &
|
||
|
|
"87994762b3bf50697", &
|
||
|
|
"b1bfa5b51526dde9b", &
|
||
|
|
"b0a6a19d709a96148", &
|
||
|
|
"990d567c0aba31a14", &
|
||
|
|
"171f190792461b1e0", &
|
||
|
|
"166011c27d2b6b8a4", &
|
||
|
|
"170c15831244ae73e"/
|
||
|
|
|
||
|
|
data colorder/ &
|
||
|
|
0, 1, 2, 3, 4, 5, 47, 6, 7, 8, 9, 10, 11, 12, 58, 55, 13, &
|
||
|
|
14, 15, 46, 17, 18, 60, 19, 20, 21, 22, 23, 24, 25, 57, 26, 27, 49, &
|
||
|
|
28, 52, 65, 16, 50, 73, 59, 68, 63, 29, 30, 31, 32, 51, 62, 56, 66, &
|
||
|
|
45, 33, 34, 53, 67, 35, 36, 37, 61, 69, 54, 38, 71, 82, 39, 77, 80, &
|
||
|
|
83, 78, 84, 48, 41, 85, 40, 64, 75, 96, 74, 72, 76, 86, 87, 89, 90, &
|
||
|
|
79, 70, 92, 99, 93,101, 95,100, 97, 94, 42, 98,103,105,102, 43,104, &
|
||
|
|
88, 44,106, 81,107,110,108,111,112,109,113,114,117,118,116,121,115, &
|
||
|
|
119,122,120,125,129,124,127,126,128, 91,123,133,131,130,134,135,137, &
|
||
|
|
136,132,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,174,175,176,177,178,179,180,181,182,183,184,185,186, &
|
||
|
|
187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,203/
|