Repatch (from linux) of OSX IRAF

1 files changed, 32 insertions, 0 deletions

diff --git a/noao/twodspec/apextract/apvalues.x b/noao/twodspec/apextract/apvalues.x
new file mode 100644
index 00000000..2072907e
--- /dev/null
+++ b/noao/twodspec/apextract/apvalues.x
@@ -0,0 +1,32 @@
+include	"apertures.h"
+
+# AP_VALUES -- Return the values for an aperture
+
+procedure ap_values (current, aps, line, apid, apbeam, center, low, high)
+
+int	current			# Index to current aperture
+pointer	aps[ARB]		# Apertures
+int	line			# Line
+int	apid			# Aperture ID
+int	apbeam			# Aperture beam
+real	center			# Aperture center
+real	low			# Lower limit of aperture
+real	high			# Upper limit of aperture
+
+int	apaxis
+pointer	ap
+
+real	ap_cveval()
+
+begin
+	if (current > 0) {
+	    ap = aps[current]
+	    apaxis = AP_AXIS(ap)
+
+	    apid = AP_ID(ap)
+	    apbeam = AP_BEAM(ap)
+	    center = AP_CEN(ap, apaxis) + ap_cveval (AP_CV(ap), real (line))
+	    low = AP_LOW(ap, apaxis)
+	    high = AP_HIGH(ap, apaxis)
+	}
+end