blob: d39e85d5eea1abe2aa94894140fa1f28acaf21af (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "icfit.h"
# IC_SHOW -- Show the values of the parameters.
procedure ic_show (ic, file, gt)
pointer ic # ICFIT pointer
char file[ARB] # Output file
pointer gt # GTOOLS pointer
int fd, open()
errchk open, ic_fshow
begin
fd = open (file, APPEND, TEXT_FILE)
IC_GT(ic) = gt
call ic_fshow (ic, fd)
call close (fd)
end
|
