2018-02-08 21:28:33 -05:00
|
|
|
subroutine chkcrc12a(decoded,nbadcrc)
|
|
|
|
|
|
|
|
|
|
use crc
|
|
|
|
|
integer*1 decoded(87)
|
|
|
|
|
integer*1, target:: i1Dec8BitBytes(11)
|
|
|
|
|
character*87 cbits
|
|
|
|
|
|
|
|
|
|
! Write decoded bits into cbits: 75-bit message plus 12-bit CRC
|
|
|
|
|
write(cbits,1000) decoded
|
|
|
|
|
1000 format(87i1)
|
|
|
|
|
read(cbits,1001) i1Dec8BitBytes
|
|
|
|
|
1001 format(11b8)
|
|
|
|
|
read(cbits,1002) ncrc12 !Received CRC12
|
|
|
|
|
1002 format(75x,b12)
|
|
|
|
|
|
2019-03-21 21:14:23 -04:00
|
|
|
i1Dec8BitBytes(10)=iand(i1Dec8BitBytes(10),transfer(128+64+32,0_1))
|
2018-02-08 21:28:33 -05:00
|
|
|
i1Dec8BitBytes(11)=0
|
|
|
|
|
icrc12=crc12(c_loc(i1Dec8BitBytes),11) !CRC12 computed from 75 msg bits
|
2018-10-31 11:56:12 -04:00
|
|
|
icrc12=xor(icrc12, 42) ! TODO: jsherer - could change the crc here
|
2018-02-08 21:28:33 -05:00
|
|
|
|
|
|
|
|
nbadcrc=1
|
|
|
|
|
if(ncrc12.eq.icrc12) nbadcrc=0
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine chkcrc12a
|
