remove NH1

This commit is contained in:
Pavel Demin 2018-10-13 22:32:59 +02:00
parent f9e209f399
commit ae19dcded2
2 changed files with 2 additions and 2 deletions

View File

@ -6,7 +6,7 @@ parameter (NN=NS+ND) !Total channel symbols (79)
parameter (NSPS=640) !Samples per symbol at 4000 S/s
parameter (NZ=NSPS*NN) !Samples in full 15 s waveform (50,560)
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 (NHSYM=NMAX/NSTEP-3) !Number of symbol spectra (1/4-sym steps)
parameter (NDOWN=20) !Downsample factor

View File

@ -40,7 +40,7 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,s,candidate,ncand,sbase)
enddo
call baseline(savg,nfa,nfb,sbase)
! savg=savg/NHSYM
! do i=1,NH1
! do i=1,NFFT1
! write(51,3051) i*df,savg(i),db(savg(i))
!3051 format(f10.3,e12.3,f12.3)
! enddo