chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Restored ft8apset

Browse Source
This commit is contained in:
Jordan Sherer 2018-08-10 10:58:50 +03:00
parent 917e4f0771
commit c779bf4ca0
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lib/ft8/ft8apset.f90
View File

@ -10,19 +10,19 @@ subroutine ft8apset(mycall12,mygrid6,hiscall12,hisgrid6,bcontest,apsym,iaptype)
integer*1 msgbits(KK) integer*1 msgbits(KK)
integer itone(KK) integer itone(KK)
mycall=mycall12(1:6) ! mycall=mycall12(1:6)
hiscall=hiscall12(1:6) ! hiscall=hiscall12(1:6)
hisgrid=hisgrid6(1:4) ! hisgrid=hisgrid6(1:4)
if(len_trim(hiscall).eq.0) then ! if(len_trim(hiscall).eq.0) then
iaptype=1 ! iaptype=1
hiscall="K9AN" ! hiscall="K9AN"
else ! else
iaptype=2 ! iaptype=2
endif ! endif
hisgrid=hisgrid6(1:4) ! hisgrid=hisgrid6(1:4)
! if(len_trim(hisgrid).eq.0) hisgrid="EN50" !! if(len_trim(hisgrid).eq.0) hisgrid="EN50"
if(index(hisgrid," ").eq.0) hisgrid="EN50" ! if(index(hisgrid," ").eq.0) hisgrid="EN50"
msg=mycall//' '//hiscall//' '//hisgrid msg='tZQpZP-slh4+'
i3bit=0 ! ### TEMPORARY ??? ### i3bit=0 ! ### TEMPORARY ??? ###
call genft8(msg,mygrid6,bcontest,i3bit,msgsent,msgbits,itone) call genft8(msg,mygrid6,bcontest,i3bit,msgsent,msgbits,itone)
apsym=2*msgbits-1 apsym=2*msgbits-1

2
lib/ft8_decode.f90
View File

@ -62,7 +62,7 @@ contains
write(datetime,1001) nutc !### TEMPORARY ### write(datetime,1001) nutc !### TEMPORARY ###
1001 format("000000_",i6.6) 1001 format("000000_",i6.6)
!call ft8apset(mycall12,mygrid6,hiscall12,hisgrid6,bcontest,apsym,iaptype) call ft8apset(mycall12,mygrid6,hiscall12,hisgrid6,bcontest,apsym,iaptype)
dd=iwave dd=iwave
ndecodes=0 ndecodes=0