Fixed jumping frequency by better signal frequency tweaking after sync
This commit is contained in:
@@ -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
@@ -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
@@ -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,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'
|
||||
|
||||
|
||||
Reference in New Issue
Block a user