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

TEMPORARY: save downsampled data at f0=1500 Hz, for testing ft8q3.

Browse Source
This commit is contained in:
Joe Taylor 2021-10-26 08:58:06 -04:00
parent 20ef6a529a
commit a5be2fb4ef
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
CMakeLists.txt
View File

@ -423,6 +423,7 @@ set (wsjt_FSRCS
lib/ft8/ft8b.f90
lib/ft8/ft8code.f90
lib/ft8/ft8_downsample.f90
lib/ft8/ft8q3.f90
lib/ft8/ft8sim.f90
lib/gen4.f90
lib/gen65.f90
@ -1177,6 +1178,9 @@ target_link_libraries (ft4code wsjt_fort wsjt_cxx)
add_executable (ft8sim lib/ft8/ft8sim.f90)
target_link_libraries (ft8sim wsjt_fort wsjt_cxx)
add_executable (ft8q3 lib/ft8/ft8q3.f90)
target_link_libraries (ft8q3 wsjt_fort wsjt_cxx)
add_executable (msk144sim lib/msk144sim.f90)
target_link_libraries (msk144sim wsjt_fort wsjt_cxx)

6
lib/ft8/ft8b.f90
View File

@ -104,6 +104,12 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, &
call timer('ft8_down',0)
call ft8_downsample(dd0,newdat,f1,cd0) !Mix f1 to baseband and downsample
call timer('ft8_down',1)
if(f1.eq.1500.0) then
do i=0,3199
write(40,3040) i,i/200.0,cd0(i)
3040 format(i5,f10.6,2x,2f10.3)
enddo
endif
i0=nint((xdt+0.5)*fs2) !Initial guess for start of signal
smax=0.0