blob: 46c58c0f1e84f3ebe3381d2da345920153557b47 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
$if (datatype == r)
include "curfitdef.h"
$else
include "dcurfitdef.h"
$endif
# CVCOEFF -- Procedure to fetch the number and magnitude of the coefficients.
$if (datatype == r)
procedure cvcoeff (cv, coeff, ncoeff)
$else
procedure dcvcoeff (cv, coeff, ncoeff)
$endif
pointer cv # curve descriptor
PIXEL coeff[ARB] # the coefficients of the fit
int ncoeff # the number of coefficients
begin
ncoeff = CV_NCOEFF(cv)
# fetch coefficients
call amov$t (COEFF(CV_COEFF(cv)), coeff, ncoeff)
end
|
