mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-18 10:01:57 -05:00
71137e9729
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8201 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
33 lines
734 B
Fortran
33 lines
734 B
Fortran
program jt65osdtest
|
|
!
|
|
! Test k9an's JT65 encoder by comparing codewords with
|
|
! those produced by the tried-and-true KA9Q encoder
|
|
!
|
|
use jt65_generator_matrix
|
|
use gf64math
|
|
|
|
integer m(12),cwka9q(63),cwk9an(63),cwtest(63)
|
|
integer gmrb(12,63)
|
|
do i=1,12
|
|
m(i)=i
|
|
enddo
|
|
call rs_encode(m,cwka9q)
|
|
write(*,'(63i3)') cwka9q
|
|
call gf64_encode(g,m,cwk9an)
|
|
write(*,'(63i3)') cwk9an
|
|
|
|
gmrb=g
|
|
call gf64_standardize_genmat(gmrb)
|
|
do i=1,12
|
|
write(*,'(63i3)') gmrb(i,:)
|
|
enddo
|
|
|
|
m(1:12)=cwk9an(1:12)
|
|
call gf64_encode(gmrb,m,cwtest)
|
|
write(*,*) 'Test message:'
|
|
write(*,'(12i3)') m
|
|
write(*,*) 'Codeword:'
|
|
write(*,'(63i3)') cwtest
|
|
|
|
end program jt65osdtest
|