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