Fixed jumping frequency by better signal frequency tweaking after sync

This commit is contained in:
Jordan Sherer
2019-10-05 14:55:15 -04:00
parent aee8de2b64
commit 6f111cdb73
6 changed files with 48 additions and 18 deletions
+1 -1
View File
@@ -1,6 +1,6 @@
subroutine baselinejs8(s,nfa,nfb,sbase)
! Fit baseline to spectrum (for FT8)
! Fit baseline to spectrum (for JS8)
! Input: s(npts) Linear scale in power
! Output: sbase(npts) Baseline
+1 -1
View File
@@ -1,6 +1,6 @@
subroutine genjs8(msg,mygrid,bcontest,i3bit,msgsent,msgbits,itone)
! Encode an FT8 message, producing array itone().
! Encode an JS8 message, producing array itone().
use crc
use packjt
+1 -1
View File
@@ -137,7 +137,7 @@ subroutine js8dec(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
delf=ifr*0.5
dphi=twopi*delf*dt2
phi=0.0
do i=1,NDOWNSPS
do i=1,(4*NSPS/NDOWN)
ctwk(i)=cmplx(cos(phi),sin(phi))
phi=mod(phi+dphi,twopi)
enddo
+1 -1
View File
@@ -1,5 +1,5 @@
subroutine syncjs8d(cd0,i0,ctwk,itwk,sync)
! Compute sync power for a complex, downsampled FT8 signal.
! Compute sync power for a complex, downsampled JS8 signal.
!include 'js8_params.f90'