mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-23 20:58:55 -05:00
3706d4e3c4
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2643 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
52 lines
1.3 KiB
Fortran
52 lines
1.3 KiB
Fortran
subroutine sync9(ss,tstep,f0a,df3,fpk)
|
|
|
|
parameter (NSMAX=22000) !Max length of saved spectra
|
|
real ss(184,NSMAX)
|
|
|
|
integer ii0(16)
|
|
integer ii(16) !Locations of sync half-symbols
|
|
data ii/1,11,21,31,41,51,61,77,89,101,113,125,137,149,161,169/
|
|
integer isync(85) !Sync vector for half-symbols
|
|
data isync/ &
|
|
1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0, &
|
|
1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0, &
|
|
0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0, &
|
|
0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0, &
|
|
1,0,0,0,1/
|
|
|
|
nz=1000.0/df3
|
|
|
|
smax=0.
|
|
lagmax=2.5/tstep + 0.9999
|
|
do n=1,nz
|
|
do lag=-lagmax,lagmax
|
|
sum=0.
|
|
do i=1,16
|
|
k=ii(i) + lag
|
|
if(k.ge.1) sum=sum + ss(k,n)
|
|
enddo
|
|
if(sum.gt.smax) then
|
|
smax=sum
|
|
npk=n
|
|
lagpk=lag
|
|
endif
|
|
enddo
|
|
enddo
|
|
|
|
fpk=f0a + (npk-1)*df3
|
|
|
|
! This loop for tests only:
|
|
! do lag=-lagmax,lagmax
|
|
! sum=0.
|
|
! do i=1,16
|
|
! k=ii(i) + lag
|
|
! if(k.ge.1) sum=sum + ss(k,npk)
|
|
! enddo
|
|
! write(71,3001) lag,sum
|
|
!3001 format(i8,f12.3)
|
|
! enddo
|
|
! flush(71)
|
|
|
|
return
|
|
end subroutine sync9
|