1 files changed, 42 insertions, 0 deletions
diff --git a/noao/digiphot/apphot/phot/apqppars.x b/noao/digiphot/apphot/phot/apqppars.x
new file mode 100644
index 00000000..cb87383b
--- /dev/null
+++ b/noao/digiphot/apphot/phot/apqppars.x
@@ -0,0 +1,42 @@
+include "../lib/apphot.h"
+include "../lib/center.h"
+include "../lib/fitsky.h"
+include "../lib/phot.h"
+include "../lib/noise.h"
+include "../lib/display.h"
+
+# AP_QPPARS -- Procedure to write out qthe phot task parameters.
+
+procedure ap_qppars (ap)
+
+pointer	ap		# pointer to apphot structure
+
+pointer	mp, str
+bool	itob()
+int	apstati()
+real	apstatr()
+
+begin
+	call smark (mp)
+	call salloc (str, SZ_LINE, TY_CHAR)
+
+	call clputr ("cbox", 2.0 * apstatr (ap, CAPERT))
+	call clputr ("annulus", apstatr (ap, ANNULUS))
+	call clputr ("dannulus", apstatr (ap, DANNULUS))
+	call apstats (ap, APERTS, Memc[str], SZ_LINE)
+	call clpstr ("apertures", Memc[str])
+
+	call apstats (ap, EXPOSURE, Memc[str], SZ_LINE)
+	call clpstr ("exposure", Memc[str])
+	call apstats (ap, AIRMASS, Memc[str], SZ_LINE)
+	call clpstr ("airmass", Memc[str])
+	call apstats (ap, FILTER, Memc[str], SZ_LINE)
+	call clpstr ("filter", Memc[str])
+	call apstats (ap, OBSTIME, Memc[str], SZ_LINE)
+	call clpstr ("obstime", Memc[str])
+	call clputr ("epadu", apstatr (ap, EPADU))
+	call clputr ("zmag", apstatr (ap, ZMAG))
+	call clputb ("radplots", itob (apstati (ap, RADPLOTS)))
+
+	call sfree (mp)
+end