blob: c677475879465e1baab8dac323cbd5072d60e647 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
# 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
|
