From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- pkg/xtools/clgcurfit.x | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 pkg/xtools/clgcurfit.x (limited to 'pkg/xtools/clgcurfit.x') diff --git a/pkg/xtools/clgcurfit.x b/pkg/xtools/clgcurfit.x new file mode 100644 index 00000000..89818c1a --- /dev/null +++ b/pkg/xtools/clgcurfit.x @@ -0,0 +1,29 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include + +# CLGCURFIT -- Get the curve type and order for the curfit package. +# +# Prompt1 is issued for the curve type. The curve type is entered +# as a minimum abbreviation string with clgwrd. The allowed strings +# are legendre, chebyshev, and spline3. Prompt2 is issued to get +# the order. + +procedure clgcurfit (prompt1, prompt2, curve_type, order) + +char prompt1[ARB], prompt2[ARB] +int curve_type +int order + +char str[SZ_LINE] +int i, curtypes[3], clgwrd(), clgeti() +errchk clgwrd + +data curtypes/LEGENDRE, CHEBYSHEV, SPLINE3/ + +begin + + i = clgwrd (prompt1, str, SZ_LINE, ",legendre,chebyshev,spline3,") + curve_type = curtypes[i] + order = clgeti (prompt2) +end -- cgit