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 --- noao/imred/dtoi/hdicfit/userfcn.x | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 noao/imred/dtoi/hdicfit/userfcn.x (limited to 'noao/imred/dtoi/hdicfit/userfcn.x') diff --git a/noao/imred/dtoi/hdicfit/userfcn.x b/noao/imred/dtoi/hdicfit/userfcn.x new file mode 100644 index 00000000..d5dba4ed --- /dev/null +++ b/noao/imred/dtoi/hdicfit/userfcn.x @@ -0,0 +1,37 @@ +include + +# HD_POWERR -- Construct the basis functions for a power series function. +# Invoked from curfit as a user function. Real version. + +procedure hd_powerr (x, order, k1, k2, basis) + +real x # array of data points +int order # order of polynomial, order = 1, constant +real k1, k2 # normalizing constants - unused +real basis[ARB] # basis functions + +int i + +begin + do i = 1, order + iferr (basis[i] = x ** (i-1)) + call erract (EA_FATAL) +end + + +# HD_POWERD -- Double version of above. + +procedure hd_powerd (x, order, k1, k2, basis) + +double x # array of data points +int order # order of polynomial, order = 1, constant +double k1, k2 # normalizing constants - unused +double basis[ARB] # basis functions + +int i + +begin + do i = 1, order + iferr (basis[i] = x ** (i-1)) + call erract (EA_FATAL) +end -- cgit