w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Correct flawed initial values for deltaa(1:2) in polfit.f90.

Browse Source
This commit is contained in:
Joe Taylor 2021-07-05 15:11:35 -04:00
parent 808b5f556d
commit 84e07c346a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
map65/libm65/polfit.f90
View File

@ -17,7 +17,7 @@ subroutine polfit(y,npts,a)
ipk=maxloc(y) ipk=maxloc(y)
a(3)=(ipk(1)-1)*45.0 a(3)=(ipk(1)-1)*45.0
deltaa(1:2)=0.1*(a(2)-a(1)) deltaa(1:2)=0.1*a(2)
deltaa(3)=10.0 deltaa(3)=10.0
nterms=3 nterms=3