WSJT-X/lib/tweak1.f90

subroutine tweak1(ca,jz,f0,cb)

! Shift frequency of analytic signal ca, with output to cb

  complex ca(jz),cb(jz)
  real*8 twopi
  complex*16 w,wstep
  data twopi/0.d0/
  save twopi

  if(twopi.eq.0.d0) twopi=8.d0*atan(1.d0)
  w=1.d0
  dphi=twopi*f0/12000.d0
  wstep=cmplx(cos(dphi),sin(dphi))
  do i=1,jz
     w=w*wstep
     cb(i)=w*ca(i)
  enddo

  return
end subroutine tweak1
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-11-17 20:28:12 -05:00			`subroutine tweak1(ca,jz,f0,cb)`

			`! Shift frequency of analytic signal ca, with output to cb`

			`complex ca(jz),cb(jz)`
			`real*8 twopi`
			`complex*16 w,wstep`
			`data twopi/0.d0/`
			`save twopi`

			`if(twopi.eq.0.d0) twopi=8.d0*atan(1.d0)`
			`w=1.d0`
Correct the sample rate used in tweak1.f90 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6447 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2016-01-27 13:51:55 -05:00			`dphi=twopi*f0/12000.d0`
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-11-17 20:28:12 -05:00			`wstep=cmplx(cos(dphi),sin(dphi))`
			`do i=1,jz`
			`w=w*wstep`
			`cb(i)=w*ca(i)`
			`enddo`

			`return`
			`end subroutine tweak1`