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
48
49
50
51
52
|
include <pkg/gtools.h>
include "hdicfit.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
pointer str
int open()
long clktime()
errchk open, malloc
begin
fd = open (file, APPEND, TEXT_FILE)
call malloc (str, SZ_LINE, TY_CHAR)
call cnvtime (clktime(0), Memc[str], SZ_LINE)
call fprintf (fd, "\n# %s\n")
call pargstr (Memc[str])
call gt_gets (gt, GTTITLE, Memc[str], SZ_LINE)
call fprintf (fd, "# %s\n")
call pargstr (Memc[str])
call gt_gets (gt, GTYUNITS, Memc[str], SZ_LINE)
if (Memc[str] != EOS) {
call fprintf (fd, "fit units = %s\n")
call pargstr (Memc[str])
}
call ic_gstr (ic, "function", Memc[str], SZ_LINE)
call fprintf (fd, "function = %s\n")
call pargstr (Memc[str])
call fprintf (fd, "order = %d\n")
call pargi (IC_ORDER(ic))
call ic_gstr (ic, "transform", Memc[str], SZ_LINE)
call fprintf (fd, "transform = %s\n")
call pargstr (Memc[str])
call fprintf (fd, "fog = %g\n")
call pargr (IC_FOG(ic))
call mfree (str, TY_CHAR)
call close (fd)
end
|
