w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-06 00:22:30 -04:00
Code Issues Packages Projects Releases Wiki Activity

Create chkcrc13a.f90. Should chkcrc12a, chkcrc13a, and chkcrc14a be combined into one routine?

Browse Source
This commit is contained in:
Steve Franke 2018-06-16 09:04:51 -05:00
parent c18338b83b
commit e16e78790a
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CMakeLists.txt
View File

@ -387,6 +387,7 @@ set (wsjt_FSRCS
lib/fsk4hf/chkcrc10.f90 lib/fsk4hf/chkcrc10.f90
lib/fsk4hf/chkcrc12.f90 lib/fsk4hf/chkcrc12.f90
lib/ft8/chkcrc12a.f90 lib/ft8/chkcrc12a.f90
lib/ft8/chkcrc13a.f90
lib/ft8/chkcrc14a.f90 lib/ft8/chkcrc14a.f90
lib/chkcall.f90 lib/chkcall.f90
lib/chkhist.f90 lib/chkhist.f90

24
lib/ft8/chkcrc13a.f90 Normal file
View File

@ -0,0 +1,24 @@
subroutine chkcrc13a(decoded,nbadcrc)
use crc
integer*1 decoded(90)
integer*1, target:: i1Dec8BitBytes(12)
character*90 cbits
! Write decoded bits into cbits: 77-bit message plus 13-bit CRC
write(cbits,1000) decoded
1000 format(90i1)
read(cbits,1001) i1Dec8BitBytes
1001 format(12b8)
read(cbits,1002) ncrc13 !Received CRC13
1002 format(77x,b13)
i1Dec8BitBytes(10)=iand(i1Dec8BitBytes(10),128+64+32+16+8)
i1Dec8BitBytes(11:12)=0
icrc13=crc13(c_loc(i1Dec8BitBytes),12) !CRC13 computed from 77 msg bits
nbadcrc=1
if(ncrc13.eq.icrc13) nbadcrc=0
return
end subroutine chkcrc13a