mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-28 16:16:48 -04:00
Move ft8apset to a separate file.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7882 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
141f0ceefa
commit
d0ad300a65
@ -433,6 +433,7 @@ set (wsjt_FSRCS
|
|||||||
lib/fqso_first.f90
|
lib/fqso_first.f90
|
||||||
lib/freqcal.f90
|
lib/freqcal.f90
|
||||||
lib/fsk4hf/fsk4hf.f90
|
lib/fsk4hf/fsk4hf.f90
|
||||||
|
lib/fsk4hf/ft8apset.f90
|
||||||
lib/fsk4hf/ft8b.f90
|
lib/fsk4hf/ft8b.f90
|
||||||
lib/fsk4hf/ft8_downsample.f90
|
lib/fsk4hf/ft8_downsample.f90
|
||||||
lib/fsk4hf/ft8sim.f90
|
lib/fsk4hf/ft8sim.f90
|
||||||
|
@ -74,7 +74,7 @@ do id=1,K ! diagonal element indices
|
|||||||
endif
|
endif
|
||||||
do ii=1,K
|
do ii=1,K
|
||||||
if( ii .ne. id .and. genmrb(ii,id) .eq. 1 ) then
|
if( ii .ne. id .and. genmrb(ii,id) .eq. 1 ) then
|
||||||
genmrb(ii,1:N)=mod(genmrb(ii,1:N)+genmrb(id,1:N),2)
|
genmrb(ii,1:N)=ieor(genmrb(ii,1:N),genmrb(id,1:N))
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
exit
|
exit
|
||||||
|
@ -98,23 +98,3 @@ contains
|
|||||||
end subroutine decode
|
end subroutine decode
|
||||||
|
|
||||||
end module ft8_decode
|
end module ft8_decode
|
||||||
|
|
||||||
subroutine ft8apset(mycall12,hiscall12,hisgrid6,apsym)
|
|
||||||
parameter(NAPM=4,KK=87)
|
|
||||||
character*12 mycall12,hiscall12
|
|
||||||
character*22 msg,msgsent
|
|
||||||
character*6 mycall,hiscall
|
|
||||||
character*6 hisgrid6
|
|
||||||
character*4 hisgrid
|
|
||||||
integer apsym(KK)
|
|
||||||
integer*1 msgbits(KK)
|
|
||||||
integer itone(KK)
|
|
||||||
|
|
||||||
mycall=mycall12(1:6)
|
|
||||||
hiscall=hiscall12(1:6)
|
|
||||||
hisgrid=hisgrid6(1:4)
|
|
||||||
msg=mycall//' '//hiscall//' '//hisgrid
|
|
||||||
call genft8(msg,msgsent,msgbits,itone)
|
|
||||||
apsym=2*msgbits-1
|
|
||||||
return
|
|
||||||
end subroutine ft8apset
|
|
||||||
|
Loading…
Reference in New Issue
Block a user