w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 12:23:37 -05:00
Code Issues Packages Projects Releases Wiki Activity

Now seems to compile OK in Linux.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8308 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-12-09 00:36:52 +00:00
parent 4dc5c9fcf8
commit 100c73b851
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/ft8/ft8b.f90
View File

@ -9,8 +9,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,
character*32 msg32 character*32 msg32
character message*22,msgsent*22 character message*22,msgsent*22
character*12 mycall12,recent_calls(NRECENT) character*12 mycall12,recent_calls(NRECENT)
character*6, target:: mycall6 character*6 mycall6,mygrid6,c1,c2
character*6 mygrid6,c1,c2
character*87 cbits character*87 cbits
logical bcontest logical bcontest
real a(5) real a(5)
@ -28,6 +27,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,
integer icos7(0:6),ip(1) integer icos7(0:6),ip(1)
integer nappasses(0:5) ! the number of decoding passes to use for each QSO state integer nappasses(0:5) ! the number of decoding passes to use for each QSO state
integer naptypes(0:5,4) ! (nQSOProgress, decoding pass) maximum of 4 passes for now integer naptypes(0:5,4) ! (nQSOProgress, decoding pass) maximum of 4 passes for now
integer*1, target:: i1mycall(6)
complex cd0(3200) complex cd0(3200)
complex ctwk(32) complex ctwk(32)
complex csymb(32) complex csymb(32)
@ -399,7 +399,10 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,
if(i3bit.eq.1) then if(i3bit.eq.1) then
mycall6=mycall12(1:6) mycall6=mycall12(1:6)
icrc10=crc10(c_loc(mycall6),6) do i=1,6
i1mycall(i)=ichar(mycall6(i:i))
enddo
icrc10=crc10(c_loc(i1mycall),6)
write(cbits,1001) decoded write(cbits,1001) decoded
1001 format(87i1) 1001 format(87i1)
read(cbits,1002) ncrc10,nrpt read(cbits,1002) ncrc10,nrpt