mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-22 04:11:16 -05:00
2c17544f3f
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@1 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
14 lines
207 B
Fortran
14 lines
207 B
Fortran
subroutine gentone(x,n,k)
|
|
|
|
real*4 x(512)
|
|
|
|
dt=1.0/11025.0
|
|
f=(n+51)*11025.0/512.0
|
|
do i=1,512
|
|
x(i)=sin(6.2831853*i*dt*f)
|
|
enddo
|
|
k=k+512
|
|
|
|
return
|
|
end
|