1 files changed, 17 insertions, 0 deletions
diff --git a/pkg/utilities/pffctn.x b/pkg/utilities/pffctn.x
new file mode 100644
index 00000000..277ad384
--- /dev/null
+++ b/pkg/utilities/pffctn.x
@@ -0,0 +1,17 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+
+# PF_FCTN -- function required by REGRES to define polynomial function
+# This routine taken from Bevington, Page 177.
+
+real procedure pf_fctn (x, i, j, jterms)
+
+real	x[ARB]
+int	i, j
+int	jterms[ARB]
+int	jexp
+
+begin
+	jexp = jterms[j]
+	return (x[i] ** jexp)
+end