2019-01-21 20:31:54 -05:00
|
|
|
subroutine getcandidates4(id,fa,fb,syncmin,nfqso,maxcand,savg,candidate, &
|
|
|
|
|
ncand,sbase)
|
|
|
|
|
|
2019-01-25 17:01:34 -05:00
|
|
|
include 'ft4_params.f90'
|
2019-01-21 20:31:54 -05:00
|
|
|
real s(NH1,NHSYM)
|
|
|
|
|
real savg(NH1),savsm(NH1)
|
|
|
|
|
real sbase(NH1)
|
|
|
|
|
real x(NFFT1)
|
2019-01-30 13:47:01 -05:00
|
|
|
real window(NFFT1)
|
2019-01-21 20:31:54 -05:00
|
|
|
complex cx(0:NH1)
|
|
|
|
|
real candidate(3,maxcand)
|
|
|
|
|
integer*2 id(NMAX)
|
|
|
|
|
integer indx(NH1)
|
2019-01-27 20:19:47 -05:00
|
|
|
integer ipk(1)
|
2019-01-21 20:31:54 -05:00
|
|
|
equivalence (x,cx)
|
2019-01-30 13:47:01 -05:00
|
|
|
logical first
|
|
|
|
|
data first/.true./
|
|
|
|
|
save first,window
|
|
|
|
|
|
|
|
|
|
if(first) then
|
|
|
|
|
first=.false.
|
|
|
|
|
pi=4.0*atan(1.)
|
2019-03-03 14:02:22 -05:00
|
|
|
window=0.
|
|
|
|
|
call nuttal_window(window,NFFT1)
|
2019-01-30 13:47:01 -05:00
|
|
|
endif
|
2019-01-21 20:31:54 -05:00
|
|
|
|
|
|
|
|
! Compute symbol spectra, stepping by NSTEP steps.
|
|
|
|
|
savg=0.
|
|
|
|
|
tstep=NSTEP/12000.0
|
2019-03-28 12:13:26 -04:00
|
|
|
df=12000.0/NFFT1
|
2019-01-21 20:31:54 -05:00
|
|
|
fac=1.0/300.0
|
|
|
|
|
do j=1,NHSYM
|
|
|
|
|
ia=(j-1)*NSTEP + 1
|
2019-01-30 13:47:01 -05:00
|
|
|
ib=ia+NFFT1-1
|
|
|
|
|
if(ib.gt.NMAX) exit
|
|
|
|
|
x=fac*id(ia:ib)*window
|
2019-01-21 20:31:54 -05:00
|
|
|
call four2a(x,NFFT1,1,-1,0) !r2c FFT
|
|
|
|
|
do i=1,NH1
|
|
|
|
|
s(i,j)=real(cx(i))**2 + aimag(cx(i))**2
|
|
|
|
|
enddo
|
|
|
|
|
savg=savg + s(1:NH1,j) !Average spectrum
|
|
|
|
|
enddo
|
|
|
|
|
savsm=0.
|
2019-01-27 20:19:47 -05:00
|
|
|
do i=8,NH1-7
|
|
|
|
|
savsm(i)=sum(savg(i-7:i+7))/15.
|
2019-01-21 20:31:54 -05:00
|
|
|
enddo
|
|
|
|
|
nfa=fa/df
|
2019-01-31 12:10:58 -05:00
|
|
|
if(nfa.lt.1) nfa=1
|
2019-01-21 20:31:54 -05:00
|
|
|
nfb=fb/df
|
2019-01-31 12:10:58 -05:00
|
|
|
if(nfb.gt.nint(5000.0/df)) nfb=nint(5000.0/df)
|
2019-03-27 21:55:15 -04:00
|
|
|
n300=300/df
|
|
|
|
|
n2500=2500/df
|
|
|
|
|
! np=nfb-nfa+1
|
|
|
|
|
np=n2500-n300+1
|
2019-01-21 20:31:54 -05:00
|
|
|
indx=0
|
2019-03-27 21:55:15 -04:00
|
|
|
call indexx(savsm(n300:n2500),np,indx)
|
2019-01-21 20:31:54 -05:00
|
|
|
xn=savsm(nfa+indx(nint(0.3*np)))
|
2019-03-28 12:13:26 -04:00
|
|
|
ncand=0
|
|
|
|
|
if(xn.le.1.e-8) return
|
2019-01-21 20:31:54 -05:00
|
|
|
savsm=savsm/xn
|
2019-03-28 12:13:26 -04:00
|
|
|
! call ft4_baseline(savg,nfa,nfb,sbase)
|
|
|
|
|
! savsm=savsm/sbase
|
2019-01-27 20:19:47 -05:00
|
|
|
|
|
|
|
|
f_offset = -1.5*12000/512
|
2019-02-02 17:29:17 -05:00
|
|
|
do i=nfa+1,nfb-1
|
|
|
|
|
if(savsm(i).ge.savsm(i-1) .and. savsm(i).ge.savsm(i+1) .and. savsm(i).ge.syncmin) then
|
2019-03-28 12:13:26 -04:00
|
|
|
den=savsm(i-1)-2*savsm(i)+savsm(i+1)
|
|
|
|
|
if(den.ne.0.0) then
|
|
|
|
|
del=0.5*(savsm(i-1)-savsm(i+1))/den
|
|
|
|
|
else
|
|
|
|
|
del=0.0
|
|
|
|
|
endif
|
2019-02-02 17:29:17 -05:00
|
|
|
fpeak=(i+del)*df+f_offset
|
|
|
|
|
speak=savsm(i) - 0.25*(savsm(i-1)-savsm(i+1))*del
|
|
|
|
|
ncand=ncand+1
|
2019-03-28 12:13:26 -04:00
|
|
|
if(ncand.gt.maxcand) then
|
|
|
|
|
ncand=maxcand
|
|
|
|
|
exit
|
|
|
|
|
endif
|
2019-02-02 17:29:17 -05:00
|
|
|
candidate(1,ncand)=fpeak
|
|
|
|
|
candidate(2,ncand)=-99.99
|
|
|
|
|
candidate(3,ncand)=speak
|
|
|
|
|
endif
|
2019-01-21 20:31:54 -05:00
|
|
|
enddo
|
2019-02-02 17:29:17 -05:00
|
|
|
|
2019-01-21 20:31:54 -05:00
|
|
|
return
|
|
|
|
|
end subroutine getcandidates4
|
