module jt65_generator_matrix 

   implicit none

! generator matrix for the jt65 (63,12) RS code
   integer :: g(12,63)
   data g/    &
     58,56,36,31,12,21,48,25,62,11, 3,62,   &
     22,19,36,16,27,62, 5, 6,50, 6,10,40,   &
     62,59, 9,40,57,11,28,60,30, 6,61,18,   &
      5,31,43,14,53,12,60,52,50,62,48,51,   &
     24,56,29, 2,21,43,35,57,37,54,40,33,   &
     29, 4,42,51, 4,62,51,14,38, 1,22,55,   &
     53, 5,16,60,24,13,20,17,34,14,27,58,   &
     59,57,15,27, 8,61,24, 5, 7,54, 3,13,   &
     14,47,39,18, 4,36, 2,43,63,59,33,57,   &
     54, 9,10,13,50,30,34,56,60,54,51,54,   &
     15,22,57, 3,42,46, 4,25,42,31,47,33,   &
     29,19, 4,23, 5, 1,54,41, 6,14,63,48,   &
     21,43,62,12,24,36,61,24,57,31,29,47,   &
     30,22, 8,44, 1,32,16, 8,60,60,45,57,   &
     54,25,51,34,12,27,38,42,31,53,52,58,   &
     59,58,19,56,22,41,14,55,60,11,56,34,   &
     16,44, 7,28,42, 2,34, 8,41, 5,46,38,   &
     61,34, 7,55,62,41,12, 3,43,60,44,13,   &
     14,41,60,26,40,18,22,63,57,23,43,22,   &
     40,10,47, 4,55,10,32,25,12,53,45,24,   &
     43,51,61,43,34, 6,20,55,17,33,29,37,   &
     48,18,55,44,29,30,27,30,21,25,13,63,   &
     44,33,42,28,36,58,62,52,11,38,27,24,   &
     43,55,22,46,58,21,36,41,60,38,14,19,   &
     63,50, 3,14,63,26,18,21,25,23,19,62,   &
     22,22,46,55,10,13,10,36,62,33,22,56,   &
     12,41,23,27,27, 5,59,41,13,60,42,63,   &
     44,29,17,60,19,60,37,20,60,62,62,63,   &
     44,61,37,58,52,52,28,10, 1,15,60,43,   &
     51,10, 8, 8, 7,27, 5,14,19,40,49,37,   &
     48,10,14,25,62,59, 6,15,44,27, 4,19,   &
     63,41,62,22, 8,30,60,55,63, 7,46,52,   &
     56,44,18, 9,41,62,39,53,26,10,24, 3,   &
     13,51, 3,51,29,22,45,12,52, 7,15,25,   &
     17,46,32,24,25,57,56,35,58,18,44,57,   &
     54,22,11,10,56, 3,63, 2,52,51,26,59,   &
      1, 2,56,31,50, 8,38,55,42,43,61,50,   &
     34, 4,36,14, 8,57,23,58,24,37,62,18,   &
      5, 3,20,35,19,61,14,63,52,56,19,48,   &
     21,51,46,28,44,50, 1,32,47,45,43, 3,   &
     13,30,28,15, 8,19,33,42,33,50,40,42,   &
      9,19,15,46,62,50,18,42,13, 3,15,15,   &
     57,46, 6,44,41,56,46,19,47,39,18,10,   &
     46, 3, 9, 5,23,45,17,17,21,34,57,20,   &
     31,25,14,15,48,31,60,44,29,15,30,53,   &
      2,52, 6,38,60,19,22,44,63,35,19,13,   &
     14,22,42,27,57,16,44,37,22, 3,52,41,   &
      4,27,40,57,62,60, 2,12, 3,41,59,18,   &
      5,37,11,47,36,11,11,42, 2,35,31,53,   &
      2,46,58,35,28, 7, 2,27,57,60,63,12,   &
     52,46,20,56,48,37, 8,40,31,14,40,59,   &
      1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,   &
      0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,   &
      0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,   &
      0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0,   &
      0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,   &
      0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0,   &
      0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0,   &
      0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,   &
      0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0,   &
      0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,   &
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0,   &
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1/

   contains

end module jt65_generator_matrix