# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

$if (datatype == r)
include "curfitdef.h"
$else
include "dcurfitdef.h"
$endif

# CVZERO -- Procedure to zero the accumulators before doing
# a new fit in accumulate mode. The inner products of the basis functions
# are accumulated in the CV_ORDER(cv) by CV_NCOEFF(cv) array MATRIX, while
# the inner products of the basis functions and the data ordinates are
# accumulated in the CV_NCOEFF(cv)-vector VECTOR.

$if (datatype == r)
procedure cvzero (cv)
$else
procedure dcvzero (cv)
$endif

pointer	cv	# pointer to curve descriptor

errchk	mfree

begin
	# zero the accumulators
	CV_NPTS(cv) = 0
	call aclr$t (MATRIX(CV_MATRIX(cv)), CV_ORDER(cv)*CV_NCOEFF(cv))
	call aclr$t (VECTOR(CV_VECTOR(cv)), CV_NCOEFF(cv))

	# free the basis functions defined from previous calls to cvrefit
	if (CV_BASIS(cv) != NULL) {
	    $if (datatype == r)
	    call mfree (CV_BASIS(cv), TY_REAL)
	    call mfree (CV_WY(cv), TY_REAL)
	    $else
	    call mfree (CV_BASIS(cv), TY_DOUBLE)
	    call mfree (CV_WY(cv), TY_DOUBLE)
	    $endif
	    CV_BASIS(cv) = NULL
	    CV_WY(cv) = NULL
	    if (CV_LEFT(cv) != NULL) {
		call mfree (CV_LEFT(cv), TY_INT)
		CV_LEFT(cv) = NULL
	    }
	}
end