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

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

Browse Source
This commit is contained in:
Joe Taylor 2020-06-27 16:23:20 -04:00
commit bf51dfd61d
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/fst240/fst240sim.f90
View File

@ -51,7 +51,7 @@ program fst240sim
if(nsec.eq.30) nsps=1680 if(nsec.eq.30) nsps=1680
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=21168 if(nsec.eq.300) nsps=21504
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

3
lib/fst240_decode.f90
View File

@ -376,7 +376,7 @@ write(21,'(8i4,f7.1,f7.2,3f7.1,1x,a37)') &
integer hmod,isyncword(0:7) integer hmod,isyncword(0:7)
real f0save real f0save
data isyncword/0,1,3,2,1,0,2,3/ data isyncword/0,1,3,2,1,0,2,3/
data first/.true./,f0save/0.0/,nss0/-1/ data first/.true./,f0save/-99.9/,nss0/-1/
save first,twopi,dt,fac,f0save,nss0 save first,twopi,dt,fac,f0save,nss0
p(z1)=(real(z1*fac)**2 + aimag(z1*fac)**2)**0.5 !Compute power p(z1)=(real(z1*fac)**2 + aimag(z1*fac)**2)**0.5 !Compute power
@ -444,7 +444,6 @@ write(21,'(8i4,f7.1,f7.2,3f7.1,1x,a37)') &
s4=s4+abs(z4)/(8*nss) s4=s4+abs(z4)/(8*nss)
s5=s5+abs(z5)/(8*nss) s5=s5+abs(z5)/(8*nss)
enddo enddo
sync = s1+s2+s3+s4+s5 sync = s1+s2+s3+s4+s5
return return