w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'feat-fst280' of bitbucket.org:k1jt/wsjtx into feat-fst280

This commit is contained in:
Joe Taylor 2020-07-17 12:01:05 -04:00
parent 64dc6c6a6e 02b66241d2
commit 16c857db0b
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.120) nsps=8200
if(nsec.eq.300) nsps=21504
if(nsec.eq.900) nsps=65536
if(nsec.eq.1800) nsps=131072
if(nsps.eq.0) then
print*,'Invalid TR sequence length.'
go to 999

10
lib/fst240_decode.f90
View File

@ -201,6 +201,16 @@ contains
nmax=300*12000
ndown=512/hmod !nss=42,84,168,336
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
nss=nsps/ndown
fs=12000.0 !Sample rate