Tweaks to sfox_sync routine.

This commit is contained in:
Joe Taylor 2024-02-23 14:42:09 -05:00
parent 577f6f3097
commit 161f456101

View File

@ -34,12 +34,13 @@ subroutine sfox_sync(crcvd,fsample,isync,f,t)
pmax=0.
ntol=100
iz=nint(ntol/df)
iz=nint(ntol/df)+2
i0=nint(1500.0/df)
ipk=-999
jpk=-999
jz=nsz-8*NS
allocate(ccf(-iz:iz,1:jz))
ccf=0.
do j=1,jz
do i=-iz,iz
p=0.