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/digiphot/apphot/radprof/aprferrors.x | 40 +++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 noao/digiphot/apphot/radprof/aprferrors.x (limited to 'noao/digiphot/apphot/radprof/aprferrors.x') 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 -- cgit