From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- pkg/xtools/inlfit/ingucolon.gx | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 pkg/xtools/inlfit/ingucolon.gx (limited to 'pkg/xtools/inlfit/ingucolon.gx') diff --git a/pkg/xtools/inlfit/ingucolon.gx b/pkg/xtools/inlfit/ingucolon.gx new file mode 100644 index 00000000..3e858789 --- /dev/null +++ b/pkg/xtools/inlfit/ingucolon.gx @@ -0,0 +1,19 @@ +# ING_UCOLON -- User default colon commands + +procedure ing_ucolon$t (in, gp, gt, nl, x, y, wts, npts, nvars, newgraph) + +pointer in # INLFIT pointer +pointer gp # GIO pointer +pointer gt # GTOOLS pointer +pointer nl # NLFIT pointer +PIXEL x[ARB] # Independent variables +PIXEL y[npts] # Dependent variables +PIXEL wts[npts] # Weights +int npts # Number of points +int nvars # Number of variables +int newgraph # New graph ? (output) + +begin + # Ring bell + call printf ("\07\n") +end -- cgit