blob: 9ecdd42233dc5bcc9f8631ced27f39a7694cfc1f (
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
|
include <pkg/gtools.h>
# IGS_PARAMS -- Set the GTOOLS parameter string.
procedure igs_params (gt)
pointer gt # GTOOLS pointer
pointer params
include "igsfit.com"
begin
call malloc (params, SZ_LINE, TY_CHAR)
call sprintf (Memc[params], SZ_LINE,
"Function = %s, xorder = %d, yorder = %d, rms = %.4g")
call pargstr (function)
call pargi (xorder)
call pargi (yorder)
call pargr (rms)
call gt_sets (gt, GTPARAMS, Memc[params])
call mfree (params, TY_CHAR)
end
|
