From 62ea15192ad8287a151e63d2d6ad369b342f62f0 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Wed, 30 Nov 2016 00:40:50 +0000 Subject: [PATCH] Fix a minor typo. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7349 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/polyfit.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/polyfit.f90 b/lib/polyfit.f90 index 779b99a9b..632223048 100644 --- a/lib/polyfit.f90 +++ b/lib/polyfit.f90 @@ -1,7 +1,7 @@ subroutine polyfit(x,y,sigmay,npts,nterms,mode,a,chisqr) implicit real*8 (a-h,o-z) real*8 x(npts), y(npts), sigmay(npts), a(nterms) - real*8 sumx(19), sumy(10), array(10,10) + real*8 sumx(10), sumy(10), array(10,10) ! Accumulate weighted sums nmax = 2*nterms-1