1 files changed, 21 insertions, 0 deletions
diff --git a/math/nlfit/nlevalr.x b/math/nlfit/nlevalr.x
new file mode 100644
index 00000000..4c68d865
--- /dev/null
+++ b/math/nlfit/nlevalr.x
@@ -0,0 +1,21 @@
+include <math/nlfit.h>
+include "nlfitdefr.h"
+
+
+# NLEVAL -- Evaluate the fit at a point.
+
+real procedure nlevalr (nl, x, nvars)
+
+pointer	nl		# nlfit descriptor
+real	x[ARB]		# x values
+int	nvars		# number of variables
+
+real	zfit
+
+begin
+	# Evaluate the function.
+	call zcall5 (NL_FUNC(nl), x, nvars, PARAM(NL_PARAM(nl)),
+	    NL_NPARAMS(nl), zfit)
+
+	return (zfit)
+end