mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-31 15:47:10 -04:00
34f8924cfc
This merge brings the WSPR feature development into the main line ready for release in a future v1.6 release. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5424 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
26 lines
502 B
Fortran
26 lines
502 B
Fortran
subroutine mixlpf(x1,nbfo,c0)
|
|
|
|
real*4 x1(512)
|
|
real*8 twopi,phi,dphi
|
|
complex c1(512),c2(105+512)
|
|
complex c0(64)
|
|
data phi/0.d0/
|
|
save phi,c2
|
|
|
|
twopi=8.d0*atan(1.d0)
|
|
dphi=twopi*nbfo/12000.d0
|
|
|
|
do i=1,512
|
|
phi=phi+dphi
|
|
if(phi.gt.twopi) phi=phi-twopi
|
|
xphi=phi
|
|
c1(i)=x1(i)*cmplx(cos(xphi),sin(xphi))
|
|
enddo
|
|
c2(106:105+512)=c1
|
|
|
|
call fil3c(c2,105+512,c0,n2)
|
|
c2(1:105)=c1(512-104:512) !Save 105 trailing samples
|
|
|
|
return
|
|
end subroutine mixlpf
|