mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-08-06 14:52:28 -04:00
02722a43fd
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7634 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
28 lines
769 B
Fortran
28 lines
769 B
Fortran
subroutine chkcrc10(decoded,nbadcrc)
|
|
|
|
use crc
|
|
integer*1 decoded(60)
|
|
integer*1, target:: i1Dec8BitBytes(9)
|
|
|
|
! Check the CRC
|
|
do ibyte=1,6
|
|
itmp=0
|
|
do ibit=1,8
|
|
itmp=ishft(itmp,1)+iand(1,decoded((ibyte-1)*8+ibit))
|
|
enddo
|
|
i1Dec8BitBytes(ibyte)=itmp
|
|
enddo
|
|
i1Dec8BitBytes(7)=decoded(49)*128+decoded(50)*64
|
|
|
|
! Pack received CRC into bytes 8 and 9 for crc10_check
|
|
i1Dec8BitBytes(8)=decoded(51)*2+decoded(52)
|
|
i1Dec8BitBytes(9)=decoded(53)*128 + decoded(54)*64+decoded(55)*32 + &
|
|
decoded(56)*16
|
|
i1Dec8BitBytes(9)=i1Dec8BitBytes(9) + decoded(57)*8+decoded(58)*4 + &
|
|
decoded(59)*2+decoded(60)*1
|
|
nbadcrc=1
|
|
if(crc10_check(c_loc(i1Dec8BitBytes),9)) nbadcrc=0
|
|
|
|
return
|
|
end subroutine chkcrc10
|