w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Can now decode FST240W signals from WSJT-X, using FST240 and the option "Decode -> Also FST240W".

Browse Source
This commit is contained in:
Joe Taylor 2020-06-30 20:04:44 -04:00
parent f6a8a179dc
commit 22b782a4ae
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/decoder.f90
View File

@ -192,10 +192,11 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
ndepth=iand(params%ndepth,3) ndepth=iand(params%ndepth,3)
iwspr=0 iwspr=0
if(iand(params%ndepth,128).ne.0) iwspr=2 if(iand(params%ndepth,128).ne.0) iwspr=2
! if(iand(params%ndepth,128).ne.0) iwspr=1
call timer('dec240 ',0) call timer('dec240 ',0)
call my_fst240%decode(fst240_decoded,id2,params%nutc, & call my_fst240%decode(fst240_decoded,id2,params%nutc, &
params%nQSOProgress,params%nfqso,params%nfa,params%nfb, & params%nQSOProgress,params%nfqso,params%nfa,params%nfb, &
params%nsubmode,params%ndepth,params%ntr,params%nexp_decode, & params%nsubmode,ndepth,params%ntr,params%nexp_decode, &
params%ntol,params%nzhsym,params%emedelay, & params%ntol,params%nzhsym,params%emedelay, &
logical(params%lapcqonly),params%napwid,mycall,hiscall, & logical(params%lapcqonly),params%napwid,mycall,hiscall, &
params%nfsplit,iwspr) params%nfsplit,iwspr)

4
lib/fst240_decode.f90
View File

@ -238,7 +238,9 @@ contains
r_data(nfft1+1:nfft1+2)=0.0 r_data(nfft1+1:nfft1+2)=0.0
call four2a(r_data,nfft1,1,-1,0) call four2a(r_data,nfft1,1,-1,0)
c_bigfft=cmplx(r_data(1:nfft1+2:2),r_data(2:nfft1+2:2)) c_bigfft=cmplx(r_data(1:nfft1+2:2),r_data(2:nfft1+2:2))
iwspr=1 ! write(*,3001) iwspr,nfa,nfb,nfsplit,ndeep
!3001 format('a',5i5)
! iwspr=1 !### For hardwired tests ###
if(iwspr.eq.0) then if(iwspr.eq.0) then
itype1=1 itype1=1
itype2=1 itype2=1