mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-01 16:13:57 -04:00
6fe67b1ddf
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6165 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
32 lines
520 B
Fortran
32 lines
520 B
Fortran
subroutine fqso_first(nfqso,ntol,ca,ncand)
|
|
|
|
! If a candidate was found within +/- ntol of nfqso, move it into ca(1).
|
|
|
|
type candidate
|
|
real freq
|
|
real dt
|
|
real sync
|
|
end type candidate
|
|
type(candidate) ca(300),cb
|
|
|
|
dmin=1.e30
|
|
i0=0
|
|
do i=1,ncand
|
|
d=abs(ca(i)%freq-nfqso)
|
|
if(d.lt.dmin) then
|
|
i0=i
|
|
dmin=d
|
|
endif
|
|
enddo
|
|
|
|
if(dmin.lt.float(ntol)) then
|
|
cb=ca(i0)
|
|
do i=i0,2,-1
|
|
ca(i)=ca(i-1)
|
|
enddo
|
|
ca(1)=cb
|
|
endif
|
|
|
|
return
|
|
end subroutine fqso_first
|