w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-26 06:08:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix call to ft8apset.

Browse Source
This commit is contained in:
Steve Franke 2018-07-29 17:18:02 -05:00
parent f7d423296f
commit fe491393cd
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/ft8_decode.f90
View File

@ -62,11 +62,8 @@ contains
write(datetime,1001) nutc !### TEMPORARY ### write(datetime,1001) nutc !### TEMPORARY ###
1001 format("000000_",i6.6) 1001 format("000000_",i6.6)
call ft8apset(mycall12,hiscall12,hisgrid6,apsym1) call ft8apset(mycall12,hiscall12,apsym1)
! For now, turn off apset until we get basic functionality going... AP will
! need to be re-thinked for itype=2 messages.
call ft8apset_174_91(mycall12,hiscall12,hisgrid6,ncontest,apsym2) call ft8apset_174_91(mycall12,hiscall12,hisgrid6,ncontest,apsym2)
!write(*,'(28i1,1x,i1,1x,28i1,1x,i1,1x,i1,1x,15i1,1x,3i1)') (apsym2+1)/2
dd=iwave dd=iwave
ndecodes=0 ndecodes=0
allmessages=' ' allmessages=' '