mirror of https://github.com/pavel-demin/ft8d.git
fix compiler errors when using gfortran 9
This commit is contained in:
parent
563757dc52
commit
d9e0de9a58
|
@ -13,7 +13,7 @@ subroutine chkcrc14a(decoded,nbadcrc)
|
||||||
read(cbits,1002) ncrc14 !Received CRC14
|
read(cbits,1002) ncrc14 !Received CRC14
|
||||||
1002 format(77x,b14)
|
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
|
i1Dec8BitBytes(11:12)=0
|
||||||
icrc14=crc14(c_loc(i1Dec8BitBytes),12) !CRC14 computed from 77 msg bits
|
icrc14=crc14(c_loc(i1Dec8BitBytes),12) !CRC14 computed from 77 msg bits
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue