2024-02-10 19:51:36 -05:00
|
|
|
subroutine sfox_clo(fsample,syncwidth,clo)
|
2024-02-10 13:35:06 -05:00
|
|
|
|
|
|
|
|
! Generate complex LO for the SuperFox sync signal
|
|
|
|
|
|
|
|
|
|
use sfox_mod
|
|
|
|
|
complex clo(NMAX) !Complex Local Oscillator
|
|
|
|
|
complex w,wstep
|
|
|
|
|
|
|
|
|
|
twopi=8.0*atan(1.0)
|
|
|
|
|
tsync=NS*NSPS/fsample
|
|
|
|
|
w=1.0
|
|
|
|
|
a0=1500.0+ syncwidth/2.0 !Frequency at midpoint of LO waveform
|
|
|
|
|
a2=2.0*syncwidth/tsync !Frequency drift rate
|
|
|
|
|
x0=0.5*(nsync+1)
|
|
|
|
|
s=2.0/nsync
|
|
|
|
|
do i=1,nsync
|
|
|
|
|
if(i.eq.nsync/2+1) a2=-a2 !Reverse sign of drift at midpoint
|
|
|
|
|
x=s*(i-x0)
|
|
|
|
|
dphi=(a0 + x*a2)*(twopi/fsample)
|
|
|
|
|
wstep=cmplx(cos(dphi),sin(dphi))
|
|
|
|
|
w=w*wstep
|
|
|
|
|
clo(i)=conjg(w)
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
return
|
2024-02-10 19:51:36 -05:00
|
|
|
end subroutine sfox_clo
|
