From 84e07c346a1721fe796fb1f4d5f95b0602ee72fe Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 5 Jul 2021 15:11:35 -0400
Subject: [PATCH] Correct flawed initial values for deltaa(1:2) in polfit.f90.

---
 map65/libm65/polfit.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/map65/libm65/polfit.f90 b/map65/libm65/polfit.f90
index e01bbe6a9..33e8d44ed 100644
--- a/map65/libm65/polfit.f90
+++ b/map65/libm65/polfit.f90
@@ -17,7 +17,7 @@ subroutine polfit(y,npts,a)
   ipk=maxloc(y)
   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
   nterms=3