WSJT-X/lib/ldpc_128_90_reordered_parity.f90

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