mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-12-01 16:45:12 -05:00
7 lines
160 B
Fortran
7 lines
160 B
Fortran
|
real function gfsk_pulse(b,t)
|
||
|
|
pi=4.*atan(1.0)
|
||
|
|
c=pi*sqrt(2.0/log(2.0))
|
||
|
|
gfsk_pulse=0.5*(erf(c*b*(t+0.5))-erf(c*b*(t-0.5)))
|
||
|
|
return
|
||
|
|
end function gfsk_pulse
|