2020-08-09 11:04:49 -04:00
|
|
|
subroutine spec66(c0,nsps,s3,LL,NN)
|
|
|
|
|
|
|
|
|
|
! Compute synchronized symbol spectra.
|
2020-08-01 09:24:59 -04:00
|
|
|
|
2020-08-05 11:06:18 -04:00
|
|
|
complex c0(0:85*nsps-1) !Synchronized complex data at 6000 S/s
|
|
|
|
|
complex cs(0:nsps-1) !Complex symbol spectrum
|
|
|
|
|
real s3(LL,NN) !Synchronized symbol spectra
|
2020-08-09 11:04:49 -04:00
|
|
|
real xbase0(LL),xbase(LL) !Work arrays
|
2020-08-01 09:24:59 -04:00
|
|
|
|
2020-08-05 11:06:18 -04:00
|
|
|
fac=1.0/nsps
|
|
|
|
|
ja=-nsps
|
2020-08-01 09:24:59 -04:00
|
|
|
do j=1,NN
|
2020-08-05 11:06:18 -04:00
|
|
|
ja=ja+nsps
|
|
|
|
|
if(mod(ja/nsps,4).eq.0) ja=ja+nsps
|
|
|
|
|
jb=ja+nsps-1
|
2020-08-01 09:24:59 -04:00
|
|
|
cs=fac*c0(ja:jb)
|
2020-08-05 11:06:18 -04:00
|
|
|
call four2a(cs,nsps,1,-1,1) !c2c FFT to frequency
|
2020-08-01 09:24:59 -04:00
|
|
|
do ii=1,LL
|
|
|
|
|
i=ii-65
|
2020-08-05 11:06:18 -04:00
|
|
|
if(i.lt.0) i=i+nsps
|
2020-08-01 09:24:59 -04:00
|
|
|
s3(ii,j)=real(cs(i))**2 + aimag(cs(i))**2
|
|
|
|
|
enddo
|
|
|
|
|
enddo
|
|
|
|
|
|
2020-08-05 11:06:18 -04:00
|
|
|
df=6000.0/nsps
|
2020-08-01 09:24:59 -04:00
|
|
|
do i=1,LL
|
|
|
|
|
call pctile(s3(i,1:NN),NN,45,xbase0(i)) !Get baseline for passband shape
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
nh=9
|
|
|
|
|
xbase(1:nh-1)=sum(xbase0(1:nh-1))/(nh-1.0)
|
|
|
|
|
xbase(LL-nh+1:LL)=sum(xbase0(LL-nh+1:LL))/(nh-1.0)
|
|
|
|
|
do i=nh,LL-nh
|
|
|
|
|
xbase(i)=sum(xbase0(i-nh+1:i+nh))/(2*nh+1) !Smoothed passband shape
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
do i=1,LL
|
|
|
|
|
s3(i,1:NN)=s3(i,1:NN)/(xbase(i)+0.001) !Apply frequency equalization
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine spec66
|
