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

Fix the issue with using AP for the "i3" bit and 78th bit.

Browse Source
This commit is contained in:
Joe Taylor 2020-10-31 11:15:03 -04:00
parent b3f0aec407
commit abbb277793
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/q65_decode.f90
View File

@ -130,12 +130,11 @@ contains
apsymbols1) apsymbols1)
write(c78,1050) apmask1 write(c78,1050) apmask1
1050 format(78i1) 1050 format(78i1)
c78(75:78)=' '
read(c78,1060) apmask read(c78,1060) apmask
1060 format(13b6.6) 1060 format(13b6.6)
write(c78,1050) apsymbols1 write(c78,1050) apsymbols1
read(c78,1060) apsymbols read(c78,1060) apsymbols
apsymbols(13)=apsymbols(13)/2 !Fixup for c77-->c78
! write(72,3060) 'A',ipass,apmask,apmask ! write(72,3060) 'A',ipass,apmask,apmask
!3060 format(a1,i1,1x,13b6.6/3x,13i6) !3060 format(a1,i1,1x,13b6.6/3x,13i6)
! write(72,3060) 'B',ipass,apsymbols,apsymbols ! write(72,3060) 'B',ipass,apsymbols,apsymbols