w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-29 23:52:24 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add 15 minute and 30 minute TRperiod option for FST240.

Browse Source
This commit is contained in:
Steven Franke 2020-07-17 10:52:27 -05:00
parent 5b705d54d2
commit 02b66241d2
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/fst240/fst240sim.f90
View File

@ -52,6 +52,8 @@ program fst240sim
if(nsec.eq.60) nsps=3888 if(nsec.eq.60) nsps=3888
if(nsec.eq.120) nsps=8200 if(nsec.eq.120) nsps=8200
if(nsec.eq.300) nsps=21504 if(nsec.eq.300) nsps=21504
if(nsec.eq.900) nsps=65536
if(nsec.eq.1800) nsps=131072
if(nsps.eq.0) then if(nsps.eq.0) then
print*,'Invalid TR sequence length.' print*,'Invalid TR sequence length.'
go to 999 go to 999

10
lib/fst240_decode.f90
View File

@ -201,6 +201,16 @@ contains
nmax=300*12000 nmax=300*12000
ndown=512/hmod !nss=42,84,168,336 ndown=512/hmod !nss=42,84,168,336
nfft1=int((nmax-200)/ndown)*ndown nfft1=int((nmax-200)/ndown)*ndown
else if(ntrperiod.eq.900) then
nsps=65536
nmax=900*12000
ndown=1024/hmod !nss=64,128,256,512
nfft1=int((nmax-200)/ndown)*ndown
else if(ntrperiod.eq.1800) then
nsps=131072
nmax=1800*12000
ndown=2048/hmod !nss=64,128,256,512
nfft1=int((nmax-200)/ndown)*ndown
end if end if
nss=nsps/ndown nss=nsps/ndown
fs=12000.0 !Sample rate fs=12000.0 !Sample rate