1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "names.h"
# IC_ERRORS -- Compute and error diagnositic information.
procedure ic_errorsr (ic, file, cv, x, y, wts, npts)
pointer ic # ICFIT pointer
char file[ARB] # Output file
pointer cv # Curfit pointer
real x[ARB] # Ordinates
real y[ARB] # Abscissas
real wts[ARB] # Weights
int npts # Number of data points
int fd, open()
errchk open, ic_ferrorsr
begin
fd = open (file, APPEND, TEXT_FILE)
call ic_ferrorsr (ic, cv, x, y, wts, npts, fd)
call close (fd)
end
|
