Initial commit

1 files changed, 40 insertions, 0 deletions

diff --git a/noao/digiphot/apphot/radprof/aprferrors.x b/noao/digiphot/apphot/radprof/aprferrors.x
new file mode 100644
index 00000000..f72586f3
--- /dev/null
+++ b/noao/digiphot/apphot/radprof/aprferrors.x
@@ -0,0 +1,40 @@
+include "../lib/phot.h"
+include "../lib/radprof.h"
+
+# AP_RFERRORS -- Procedure to print a short form of the output of radprof on
+# the standard output.
+
+procedure ap_rferrors (ap, cier, sier, pier, rier)
+
+pointer	ap	# pointer to apphot structure
+int	cier	# centering error
+int	sier	# sky fitting error
+int	pier	# photmetry error
+int	rier	# photometric error
+
+begin
+	# Print the centering errors.
+	call ap_cerrors (ap, cier)
+
+	# Print the sky fitting errors.
+	call ap_serrors (ap, sier)
+
+	# Print the photometry errors.
+	call ap_merrors (ap, pier)
+
+	# Print the radial profile fitting errors.
+	switch (rier) {
+	case AP_RP_NOPROFILE:
+	    call printf ("The profile fitting region is outside the image.\n")
+	case AP_RP_OUTOFBOUNDS:
+	    call printf (
+	        "The profile fitting region is partially outside the image.\n")
+	case AP_RP_NPTS_TOO_SMALL:
+	    call printf (
+	        "There are too few points in the profile fitting region.\n")
+	case AP_RP_SINGULAR:
+	    call printf ("The profile fit is singular.\n")
+	default:
+	    call printf ("")
+	}
+end