mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-10-30 20:40:28 -04:00
23 lines
398 B
Fortran
23 lines
398 B
Fortran
|
subroutine get_crc14(mc,ncrc)
|
||
|
|
|
||
|
|
character c14*14
|
||
|
|
|
||
|
|
integer*1 mc(68),r(15),p(15)
|
||
|
|
integer ncrc
|
||
|
|
! polynomial for 14-bit CRC 0x6757
|
||
|
|
data p/1,1,0,0,1,1,1,0,1,0,1,0,1,1,1/
|
||
|
|
|
||
|
|
! divide by polynomial
|
||
|
|
r=mc(1:15)
|
||
|
|
do i=0,53
|
||
|
|
r(15)=mc(i+15)
|
||
|
|
r=mod(r+r(1)*p,2)
|
||
|
|
r=cshift(r,1)
|
||
|
|
enddo
|
||
|
|
|
||
|
|
write(c14,'(14b1)') r(1:14)
|
||
|
|
read(c14,'(b14.14)') ncrc
|
||
|
|
! mc(55:68)=r(1:14)
|
||
|
|
|
||
|
|
end subroutine get_crc14
|