WSJT-X/lib/fsk4hf/ldpc_240_101_parity.f90

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

data Nm/   &
   3,  52,  95, 102, 140, 182, &
   4,  53,  96, 103, 108, 210, &
   5,  54,  97, 104, 150, 194, &
   6,  55,  98, 105, 136, 187, &
   7,  56,  99, 106, 139, 182, &
   8,  57, 100, 107, 149, 193, &
   9,  58, 101, 103, 135, 186, &
  10,  59, 109, 172, 200,   0, &
  11,  60, 110, 157, 207,   0, &
  12,  61, 111, 122, 204,   0, &
  13,  62, 112, 117, 205,   0, &
   3,  39, 113, 137, 195,   0, &
  14,  63, 114, 133, 202,   0, &
  15,  64, 115, 116, 203,   0, &
   3,  60, 115, 183, 209,   0, &
  16,  65, 112, 124, 194,   0, &
  11,  66, 118, 156, 197,   0, &
  17,  67, 119, 184, 208,   0, &
  18,  36, 101, 120, 145, 212, &
  19,  37, 108, 121, 211,   0, &
  20,  68, 122, 153, 193,   0, &
  17,  61, 123, 124, 214,   0, &
   4,  51, 123, 152, 219,   0, &
  21,  68, 125, 139, 202,   0, &
  22,  69, 100, 126, 138, 194, &
  21,  70, 127, 144, 213,   0, &
  23,  71, 128, 169, 213,   0, &
  24,  72, 129, 166, 195,   0, &
  25,  73,  99, 130, 163, 215, &
  10,  28, 131, 155, 217,   0, &
  26,  74, 100, 132, 179, 224, &
  27,  75, 114, 143, 216,   0, &
  28,  76, 134, 141, 221,   0, &
  12,  77, 135, 142, 222,   0, &
  29,  76,  97, 136, 178, 205, &
  13,  78, 137, 153, 220,   0, &
  20,  79, 126, 143, 217,   0, &
   8,  80, 125, 166, 223,   0, &
  69, 102, 151, 218, 238,   0, &
   9,  52, 134, 177, 225,   0, &
  30,  66,  96, 142, 201, 226, &
  30,  81, 126, 176, 229,   0, &
  82, 127, 164, 227, 231,   0, &
  31,  60, 120, 133, 228,   0, &
  32,  33, 146, 196, 230,   0, &
  33,  46, 147, 156, 231,   0, &
  34,  77, 148, 162, 229,   0, &
  35,  83, 148, 149, 232,   0, &
  23,  62, 104, 175, 215,   0, &
  15,  84, 148, 151, 214,   0, &
  36,  51, 107, 117, 233,   0, &
  37,  85, 127, 137, 216,   0, &
  38,  52, 154, 166, 203,   0, &
  39,  65, 155, 171, 224,   0, &
   8,  63, 147, 155, 211,   0, &
   2,  74, 110, 168, 236,   0, &
   1,  16,  74,  88, 158, 169, &
  40,  86, 159, 180, 223,   0, &
  87, 160, 177, 234, 237,   0, &
  18,  56, 124, 161, 227,   0, &
  20,  47, 123, 167, 234,   0, &
  41,  86, 130, 170, 229,   0, &
  42,  54, 111, 188, 227,   0, &
  35,  72, 165, 180, 204,   0, &
  29,  88, 129, 145, 235,   0, &
  40,  50, 161, 189, 236,   0, &
  37,  89, 110, 170, 212,   0, &
   7,  55, 128, 172, 181,   0, &
  67,  70, 117, 130, 237, 238, &
  42,  83,  96, 116, 147, 225, &
  42,  69, 128, 168, 186,   0, &
   4,  57, 144, 173, 207,   0, &
  43,  53,  94, 164, 174, 209, &
  24,  79, 150, 174, 208,   0, &
  21,  79, 145, 165, 225,   0, &
  44,  64, 160, 189, 220,   0, &
  45,  82, 136, 154, 217,   0, &
   9,  56, 132, 133, 205,   0, &
  46,  80, 120, 150, 181,   0, &
  41,  63, 109, 140, 187,   0, &
  47,  53, 105, 188, 215,   0, &
  48,  81, 183, 185, 230,   0, &
  16,  90,  95, 119, 190, 216, &
  10,  87, 185, 188, 228,   0, &
  44,  91, 158, 163, 211,   0, &
  49,  78, 173, 176, 228,   0, &
  30,  92, 158, 180, 209,   0, &
  22,  40, 178, 184, 210,   0, &
  18,  59,  95, 118, 192, 222, &
  14,  70, 191, 206, 230,   0, &
  26,  75, 140, 142, 231,   0, &
  48,  83, 131, 157, 208,   0, &
   6,  61, 160, 183, 197,   0, &
  32,  73, 149, 174, 187,   0, &
  12,  64, 178, 196, 213,   0, &
  27,  93, 101, 105, 141, 236, &
  33,  89, 141, 198, 239,   0, &
  19,  93, 138, 199, 204,   0, &
   2,  82,  99, 116, 119, 200, &
   1,  50,  62, 106, 206,   0, &
  32,  71, 112, 201, 207,   0, &
  34,  75, 111, 157, 233,   0, &
  39,  73, 186, 199, 206,   0, &
  27,  35,  38, 171, 181, 237, &
  49,  93, 118, 175, 202,   0, &
  45,  80, 121, 167, 240,   0, &
  19,  94, 161, 179, 203,   0, &
  31,  86, 106, 164, 234,   0, &
  45,  84, 104, 177, 226,   0, &
  47,  66, 102, 196, 212,   0, &
  25,  65,  98, 173, 192, 240, &
  49,  85, 179, 191, 232,   0, &
  38,  89, 153, 175, 210,   0, &
  25,  43, 125, 168, 214,   0, &
  22,  58, 113, 172, 239,   0, &
  36,  68, 184, 191, 226,   0, &
  15,  78, 103, 143, 235,   0, &
  50,  84, 152, 171, 222,   0, &
  24,  85, 135, 185, 238,   0, &
  48,  59, 134, 169, 193,   0, &
  17,  91, 176, 182, 198,   0, &
  11,  88, 113, 167, 232,   0, &
  43,  81, 122, 132, 239,   0, &
  41,  58, 107, 190, 197,   0, &
   6,  91, 144, 159, 224,   0, &
  46,  72, 131, 151, 220,   0, &
  23,  90, 152, 198, 223,   0, &
  44,  77,  98, 114, 218, 219, &
  26,  76, 165, 190, 240,   0, &
  28,  54, 115, 170, 219,   0, &
  31,  57,  97, 146, 163, 195, &
  14,  92, 108, 162, 221,   0, &
   5,  71, 121, 139, 233,   0, &
   1,  34,  87, 154, 192,   0, &
  29,  90, 156, 199, 218,   0, &
   2,  51,  55, 138, 146,   0, &
   5,  92, 109, 189, 235,   0, &
  13,  94, 159, 162, 200,   0, &
   7,  67, 129, 201, 221,   0/

data nrw/    &
6,6,6,6,6,6,6,5,5,5,5,5,5,5,5,5,5,5,6,5,  &
5,5,5,5,6,5,5,5,6,5,6,5,5,5,6,5,5,5,5,5,  &
6,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,6,5,5,5,  &
5,5,5,5,5,5,5,5,6,6,5,5,6,5,5,5,5,5,5,5,  &
5,5,6,5,5,5,5,5,6,5,5,5,5,5,5,6,5,5,6,5,  &
5,5,5,6,5,5,5,5,5,5,6,5,5,5,5,5,5,5,5,5,  &
5,5,5,5,5,5,5,6,5,5,6,5,5,5,5,5,5,5,5/

ncw=3