1 files changed, 80 insertions, 0 deletions
diff --git a/noao/imred/dtoi/hdicfit/hdicfit.x b/noao/imred/dtoi/hdicfit/hdicfit.x
new file mode 100644
index 00000000..91e05f9d
--- /dev/null
+++ b/noao/imred/dtoi/hdicfit/hdicfit.x
@@ -0,0 +1,80 @@
+include	<math/curfit.h>
+include	"hdicfit.h"
+
+# IC_FIT -- Fit a function.  This is the main fitting task.  It uses
+# flags to define changes since the last fit.  This allows the most
+# efficient use of the curfit and ranges packages.
+
+procedure ic_fitd (ic, cv, x, y, wts, npts, newx, newy, newwts, newfunction)
+
+pointer	ic				# ICFIT pointer
+pointer	cv				# Curfit pointer
+double	x[npts]				# Ordinates
+double	y[npts]				# Data to be fit
+double	wts[npts]			# Weights
+int	npts				# Number of points
+int	newx				# New x points?
+int	newy				# New y points?
+int	newwts				# New weights?
+int	newfunction			# New function?
+
+int	ier, refit
+errchk	ic_dosetupd
+
+begin
+	# Setup the new parameters.
+	call ic_dosetupd (ic, cv, x, wts, npts, newx, newwts, newfunction,
+	    refit)
+
+	if (npts == IC_NFIT(ic)) {
+	    # If not sampling use the data array directly.
+	    if (refit == NO) {
+	        call dcvfit (cv, x, y, wts, npts, WTS_USER, ier)
+	    } else if (newy == YES)
+	        call dcvrefit (cv, x, y, wts, ier)
+
+	} else {
+	    # If sampling first form the sample y values.
+	    if ((newx == YES) || (newy == YES) || (newwts == YES))
+	        call rg_wtbind (IC_RG(ic), IC_NAVERAGE(ic), y, wts, npts,
+		    Memd[IC_YFIT(ic)], Memd[IC_WTSFIT(ic)], IC_NFIT(ic))
+	    if (refit == NO) {
+	        call dcvfit (cv, Memd[IC_XFIT(ic)], Memd[IC_YFIT(ic)],
+		    Memd[IC_WTSFIT(ic)], IC_NFIT(ic), WTS_USER, ier)
+	    } else if (newy == YES)
+	        call dcvrefit (cv, Memd[IC_XFIT(ic)], Memd[IC_YFIT(ic)],
+		    Memd[IC_WTSFIT(ic)], ier)
+	}
+
+	# Check for an error in the fit.
+	switch (ier) {
+	case SINGULAR:
+	    call printf ("Singular solution")
+	    call flush (STDOUT)
+	case NO_DEG_FREEDOM:
+	    call printf ("No degrees of freedom")
+	    call flush (STDOUT)
+	    return
+	}
+
+	refit = YES
+
+	# Do pixel rejection if desired.
+	if ((IC_LOW(ic) > 0.) || (IC_HIGH(ic) > 0.)) {
+	    if (npts == IC_NFIT(ic)) {
+	        call ic_rejectd (cv, x, y, wts, Memi[IC_REJPTS(ic)],
+		    IC_NFIT(ic), IC_LOW(ic), IC_HIGH(ic), IC_NITERATE(ic),
+		    IC_GROW(ic), IC_NREJECT(ic))
+	    } else {
+	        call ic_rejectd (cv, Memd[IC_XFIT(ic)], Memd[IC_YFIT(ic)],
+		    Memd[IC_WTSFIT(ic)], Memi[IC_REJPTS(ic)], IC_NFIT(ic),
+		    IC_LOW(ic), IC_HIGH(ic), IC_NITERATE(ic), IC_GROW(ic),
+		    IC_NREJECT(ic))
+	    }
+
+	    if (IC_NREJECT(ic) > 0)
+		refit = NO
+	} else
+	    IC_NREJECT(ic) = 0
+end
+