C++*********************************************************************
C
C POLFIT.F SUMX,SUM DIMENSIONS CORRECTED MAY 99 ARDEAN LEITH
C A REMOVED FROM COMMON MAY 02 ARDEAN LEITH
C
C **********************************************************************
C=* *
C=* This file is part of: SPIDER - Modular Image Processing System. *
C=* SPIDER System Authors: Joachim Frank & ArDean Leith *
C=* Copyright 1985-2010 Health Research Inc., *
C=* Riverview Center, 150 Broadway, Suite 560, Menands, NY 12204. *
C=* Email: spider@wadsworth.org *
C=* *
C=* SPIDER is free software; you can redistribute it and/or *
C=* modify it under the terms of the GNU General Public License as *
C=* published by the Free Software Foundation; either version 2 of the *
C=* License, or (at your option) any later version. *
C=* *
C=* SPIDER is distributed in the hope that it will be useful, *
C=* but WITHOUT ANY WARRANTY; without even the implied warranty of *
C=* merchantability or fitness for a particular purpose. See the GNU *
C=* General Public License for more details. *
C=* You should have received a copy of the GNU General Public License *
C=* along with this program. If not, see *
C=* *
C **********************************************************************
C
C POLFIT(X,Y,NORD,N,C)
C
C PURPOSE: MAKES LEAST SQUARES FIT OF EXPERIMENTAL DATA IN
C X(N),Y(N) USING A POLYNOMIAL OF ARBITRARY ORDER>1
C
C PARAMETERS:
C X A REAL ARRAY DIMENSIONED N CONTAINING THE ABSCISSAE
C Y A REAL ARRAY DIMENSIONED N CONTAINING THE FUNCTION VALUES
C NORD ORDER OF POLYNOMIAL. NORD