mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-23 12:48:40 -05: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
12 lines
175 B
Fortran
12 lines
175 B
Fortran
program t2
|
|
|
|
df=375.0/65536.0
|
|
do i=1,65536
|
|
w=1.0/(1.0 + ((i-32768)/26214.0)**20)
|
|
f=(i-32768)*df
|
|
write(13,1010) f,w
|
|
1010 format(2f15.6)
|
|
enddo
|
|
|
|
end program t2
|