comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2025-03-21 03:38:43 -04:00
Code Issues Packages Projects Releases Wiki Activity

fix compiler errors when using gfortran 9

Browse Source
This commit is contained in:
Pavel Demin 2019-05-01 13:40:10 +02:00
parent 563757dc52
commit d9e0de9a58
1 changed files with 1 additions and 1 deletions

2
chkcrc14a.f90
View File

@ -13,7 +13,7 @@ subroutine chkcrc14a(decoded,nbadcrc)
read(cbits,1002) ncrc14 !Received CRC14
1002 format(77x,b14)
i1Dec8BitBytes(10)=iand(i1Dec8BitBytes(10),128+64+32+16+8)
i1Dec8BitBytes(10)=iand(i1Dec8BitBytes(10),transfer(128+64+32+16+8,0_1))
i1Dec8BitBytes(11:12)=0
icrc14=crc14(c_loc(i1Dec8BitBytes),12) !CRC14 computed from 77 msg bits