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/fitpsf/appferrors.x | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 noao/digiphot/apphot/fitpsf/appferrors.x (limited to 'noao/digiphot/apphot/fitpsf/appferrors.x') diff --git a/noao/digiphot/apphot/fitpsf/appferrors.x b/noao/digiphot/apphot/fitpsf/appferrors.x new file mode 100644 index 00000000..20ed8820 --- /dev/null +++ b/noao/digiphot/apphot/fitpsf/appferrors.x @@ -0,0 +1,26 @@ +include "../lib/fitpsf.h" + +# AP_PFERRORS -- Print detailed fitpsf error messages on the standard output. + +procedure ap_pferrors (ap, ier) + +pointer ap # pointer to apphot structure (unused) +int ier # integer error code + +begin + switch (ier) { + case AP_NOPSFAREA: + call printf ( + "The psf fitting aperture is outside the image.\n") + case AP_PSF_OUTOFBOUNDS: + call printf ( + "The psf fitting aperture is partially outside the image.\n") + case AP_NPSF_TOO_SMALL: + call printf ( + "The number of data points is too few for psf fitting.\n") + case AP_PSF_SINGULAR: + call printf ("The psf fitting solution is singular.\n") + case AP_PSF_NOCONVERGE: + call printf ("The psf fitting solution did not converge.\n") + } +end -- cgit