mirror of https://github.com/pavel-demin/ft8d.git
remove NH1
This commit is contained in:
parent
f9e209f399
commit
ae19dcded2
|
@ -6,7 +6,7 @@ parameter (NN=NS+ND) !Total channel symbols (79)
|
||||||
parameter (NSPS=640) !Samples per symbol at 4000 S/s
|
parameter (NSPS=640) !Samples per symbol at 4000 S/s
|
||||||
parameter (NZ=NSPS*NN) !Samples in full 15 s waveform (50,560)
|
parameter (NZ=NSPS*NN) !Samples in full 15 s waveform (50,560)
|
||||||
parameter (NMAX=15*4000) !Samples in iwave (60,000)
|
parameter (NMAX=15*4000) !Samples in iwave (60,000)
|
||||||
parameter (NFFT1=2*NSPS, NH1=NFFT1/2) !Length of FFTs for symbol spectra
|
parameter (NFFT1=2*NSPS) !Length of FFTs for symbol spectra
|
||||||
parameter (NSTEP=NSPS/4) !Rough time-sync step size
|
parameter (NSTEP=NSPS/4) !Rough time-sync step size
|
||||||
parameter (NHSYM=NMAX/NSTEP-3) !Number of symbol spectra (1/4-sym steps)
|
parameter (NHSYM=NMAX/NSTEP-3) !Number of symbol spectra (1/4-sym steps)
|
||||||
parameter (NDOWN=20) !Downsample factor
|
parameter (NDOWN=20) !Downsample factor
|
||||||
|
|
|
@ -40,7 +40,7 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,s,candidate,ncand,sbase)
|
||||||
enddo
|
enddo
|
||||||
call baseline(savg,nfa,nfb,sbase)
|
call baseline(savg,nfa,nfb,sbase)
|
||||||
! savg=savg/NHSYM
|
! savg=savg/NHSYM
|
||||||
! do i=1,NH1
|
! do i=1,NFFT1
|
||||||
! write(51,3051) i*df,savg(i),db(savg(i))
|
! write(51,3051) i*df,savg(i),db(savg(i))
|
||||||
!3051 format(f10.3,e12.3,f12.3)
|
!3051 format(f10.3,e12.3,f12.3)
|
||||||
! enddo
|
! enddo
|
||||||
|
|
Loading…
Reference in New Issue