2017-06-14 00:45:44 +00:00
|
|
|
integer, parameter:: N=174, K=87, M=N-K
|
|
|
|
|
character*22 g(87)
|
|
|
|
|
integer colorder(N)
|
|
|
|
|
data g/ & !parity generator matrix for (174,87) code
|
2017-06-14 15:59:36 +00:00
|
|
|
"23bba830e23b6b6f50982e", &
|
|
|
|
|
"1f8e55da218c5df3309052", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"ca7b3217cd92bd59a5ae20", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"56f78313537d0f4382964e", &
|
|
|
|
|
"29c29dba9c545e267762fe", &
|
|
|
|
|
"6be396b5e2e819e373340c", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"293548a138858328af4210", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"cb6c6afcdc28bb3f7c6e86", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"3f2a86f5c5bd225c961150", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"849dd2d63673481860f62c", &
|
|
|
|
|
"56cdaec6e7ae14b43feeee", &
|
|
|
|
|
"04ef5cfa3766ba778f45a4", &
|
|
|
|
|
"c525ae4bd4f627320a3974", &
|
|
|
|
|
"fe37802941d66dde02b99c", &
|
|
|
|
|
"41fd9520b2e4abeb2f989c", &
|
|
|
|
|
"40907b01280f03c0323946", &
|
|
|
|
|
"7fb36c24085a34d8c1dbc4", &
|
|
|
|
|
"40fc3e44bb7d2bb2756e44", &
|
|
|
|
|
"d38ab0a1d2e52a8ec3bc76", &
|
|
|
|
|
"3d0f929ef3949bd84d4734", &
|
|
|
|
|
"45d3814f504064f80549ae", &
|
|
|
|
|
"f14dbf263825d0bd04b05e", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"f08a91fb2e1f78290619a8", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"7a8dec79a51e8ac5388022", &
|
|
|
|
|
"ca4186dd44c3121565cf5c", &
|
|
|
|
|
"db714f8f64e8ac7af1a76e", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"8d0274de71e7c1a8055eb0", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"51f81573dd4049b082de14", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"d037db825175d851f3af00", &
|
|
|
|
|
"d8f937f31822e57c562370", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"1bf1490607c54032660ede", &
|
|
|
|
|
"1616d78018d0b4745ca0f2", &
|
|
|
|
|
"a9fa8e50bcb032c85e3304", &
|
|
|
|
|
"83f640f1a48a8ebc0443ea", &
|
|
|
|
|
"eca9afa0f6b01d92305edc", &
|
|
|
|
|
"3776af54ccfbae916afde6", &
|
|
|
|
|
"6abb212d9739dfc02580f2", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"05209a0abb530b9e7e34b0", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"612f63acc025b6ab476f7c", &
|
|
|
|
|
"0af7723161ec223080be86", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"a8fc906976c35669e79ce0", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"45b7ab6242b77474d9f11a", &
|
|
|
|
|
"b274db8abd3c6f396ea356", &
|
|
|
|
|
"9059dfa2bb20ef7ef73ad4", &
|
|
|
|
|
"3d188ea477f6fa41317a4e", &
|
|
|
|
|
"8d9071b7e7a6a2eed6965e", &
|
|
|
|
|
"a377253773ea678367c3f6", &
|
|
|
|
|
"ecbd7c73b9cd34c3720c8a", &
|
|
|
|
|
"b6537f417e61d1a7085336", &
|
|
|
|
|
"6c280d2a0523d9c4bc5946", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"d36d662a69ae24b74dcbd8", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"d747bfc5fd65ef70fbd9bc", &
|
|
|
|
|
"a9fa2eefa6f8796a355772", &
|
|
|
|
|
"cc9da55fe046d0cb3a770c", &
|
|
|
|
|
"f6ad4824b87c80ebfce466", &
|
|
|
|
|
"cc6de59755420925f90ed2", &
|
|
|
|
|
"164cc861bdd803c547f2ac", &
|
|
|
|
|
"c0fc3ec4fb7d2bb2756644", &
|
|
|
|
|
"0dbd816fba1543f721dc72", &
|
|
|
|
|
"a0c0033a52ab6299802fd2", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"bf4f56e073271f6ab4bf80", &
|
|
|
|
|
"57da6d13cb96a7689b2790", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"81cfc6f18c35b1e1f17114", &
|
|
|
|
|
"481a2a0df8a23583f82d6c", &
|
|
|
|
|
"1ac4672b549cd6dba79bcc", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"c87af9a5d5206abca532a8", &
|
|
|
|
|
"97d4169cb33e7435718d90", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"a6573f3dc8b16c9d19f746", &
|
|
|
|
|
"2c4142bf42b01e71076acc", &
|
|
|
|
|
"081c29a10d468ccdbcecb6", &
|
|
|
|
|
"5b0f7742bca86b8012609a", &
|
|
|
|
|
"012dee2198eba82b19a1da", &
|
|
|
|
|
"f1627701a2d692fd9449e6", &
|
|
|
|
|
"35ad3fb0faeb5f1b0c30dc", &
|
|
|
|
|
"b1ca4ea2e3d173bad4379c", &
|
|
|
|
|
"37d8e0af9258b9e8c5f9b2", &
|
|
|
|
|
"cd921fdf59e882683763f6", &
|
|
|
|
|
"6114e08483043fd3f38a8a", &
|
|
|
|
|
"2e547dd7a05f6597aac516", &
|
|
|
|
|
"95e45ecd0135aca9d6e6ae", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"b33ec97be83ce413f9acc8", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"c8b5dffc335095dcdcaf2a", &
|
|
|
|
|
"3dd01a59d86310743ec752", &
|
|
|
|
|
"14cd0f642fc0c5fe3a65ca", &
|
2017-06-14 00:45:44 +00:00
|
|
|
"3a0a1dfd7eee29c2e827e0", &
|
|
|
|
|
"8abdb889efbe39a510a118", &
|
2017-06-14 15:59:36 +00:00
|
|
|
"3f231f212055371cf3e2a2"/
|
2017-06-14 00:45:44 +00:00
|
|
|
data colorder/ &
|
|
|
|
|
0, 1, 2, 3, 30, 4, 5, 6, 7, 8, 9, 10, 11, 32, 12, 40, 13, 14, 15, 16,&
|
|
|
|
|
17, 18, 37, 45, 29, 19, 20, 21, 41, 22, 42, 31, 33, 34, 44, 35, 47, 51, 50, 43,&
|
|
|
|
|
36, 52, 63, 46, 25, 55, 27, 24, 23, 53, 39, 49, 59, 38, 48, 61, 60, 57, 28, 62,&
|
|
|
|
|
56, 58, 65, 66, 26, 70, 64, 69, 68, 67, 74, 71, 54, 76, 72, 75, 78, 77, 80, 79,&
|
|
|
|
|
73, 83, 84, 81, 82, 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/
|
|
|
|
|
|
