From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- noao/twodspec/apextract/apprint.x | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 noao/twodspec/apextract/apprint.x (limited to 'noao/twodspec/apextract/apprint.x') diff --git a/noao/twodspec/apextract/apprint.x b/noao/twodspec/apextract/apprint.x new file mode 100644 index 00000000..b2bf17f0 --- /dev/null +++ b/noao/twodspec/apextract/apprint.x @@ -0,0 +1,34 @@ +include "apertures.h" + +# AP_PRINT -- Print the parameters of the indexed aperture. + +procedure ap_print (index, line, all, aps) + +int index # Index of aperture +int line # Dispersion line +int all # All flag +pointer aps[ARB] # Apertures + +int apaxis +pointer ap +real ap_cveval() + +begin + if (index < 1) + return + + if (all == YES) + call printf ("ALL: ") + else + call printf (" ") + + ap = aps[index] + apaxis = AP_AXIS(ap) + call printf ( +"aperture = %d beam = %d center = %.2f low = %.2f upper = %.2f\n") + call pargi (AP_ID(ap)) + call pargi (AP_BEAM(ap)) + call pargr (AP_CEN(ap, apaxis)+ap_cveval (AP_CV(ap), real (line))) + call pargr (AP_LOW(ap, apaxis)) + call pargr (AP_HIGH(ap, apaxis)) +end -- cgit