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/polyphot/apgypars.x | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 noao/digiphot/apphot/polyphot/apgypars.x (limited to 'noao/digiphot/apphot/polyphot/apgypars.x') diff --git a/noao/digiphot/apphot/polyphot/apgypars.x b/noao/digiphot/apphot/polyphot/apgypars.x new file mode 100644 index 00000000..960f9cbc --- /dev/null +++ b/noao/digiphot/apphot/polyphot/apgypars.x @@ -0,0 +1,29 @@ +include "../lib/display.h" +include "../lib/noise.h" +include "../lib/center.h" +include "../lib/fitsky.h" +include "../lib/polyphot.h" + +# AP_GYPARS -- Procedure to fetch the polyphot task parameters. + +procedure ap_gypars (ap) + +pointer ap # pointer to apphot fitting structure + +begin + # Open the apphot strucuture. + call apyinit (ap, AP_CENTROID1D, 2.5, AP_MODE, 10.0, 10.0, 2.0, + AP_NPOISSON) + + # Get the data dependent parameters. + call ap_gdapars (ap) + + # Get the centering algorithm parameters. + call ap_gcepars (ap) + + # Get the sky fitting parameters. + call ap_gsapars (ap) + + # Get the photometry parameters. + call ap_gpopars (ap) +end -- cgit