w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-29 07:28:54 -04:00
Code Issues Packages Projects Releases Wiki Activity

Correct a scaling error in the Watterson model.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7644 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-04-20 12:55:11 +00:00
parent da22f86813
commit a5cc419351
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/fsk4hf/watterson.f90
View File

@ -42,8 +42,8 @@ subroutine watterson(c,fs,delay,fspread)
cs1=cs1/NZ cs1=cs1/NZ
cs2=cs2/NZ cs2=cs2/NZ
endif endif
nshift=0.001*delay*12000.0 nshift=nint(0.001*delay*fs)
c2=cshift(c,nshift) c2=cshift(c,nshift)
sq=0. sq=0.
do i=0,NZ-1 do i=0,NZ-1