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/twodspec/apextract/apdelete.x | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 noao/twodspec/apextract/apdelete.x (limited to 'noao/twodspec/apextract/apdelete.x') diff --git a/noao/twodspec/apextract/apdelete.x b/noao/twodspec/apextract/apdelete.x new file mode 100644 index 00000000..1956a331 --- /dev/null +++ b/noao/twodspec/apextract/apdelete.x @@ -0,0 +1,23 @@ +# AP_DELETE -- Delete the specified aperture and return a new current aperture. + +procedure ap_delete (current, aps, naps) + +int current # Return current aperture index +pointer aps[ARB] # Aperture data +int naps # Number of apertures + +int i + +begin + if (current < 1) + return + + call ap_free (aps[current]) + for (i = current; i < naps; i = i + 1) + aps[i] = aps[i+1] + + aps[naps] = NULL + + naps = naps - 1 + current = min (naps, current) +end -- cgit