From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- noao/digiphot/apphot/lib/fitpsfdef.h | 43 ++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 noao/digiphot/apphot/lib/fitpsfdef.h (limited to 'noao/digiphot/apphot/lib/fitpsfdef.h') diff --git a/noao/digiphot/apphot/lib/fitpsfdef.h b/noao/digiphot/apphot/lib/fitpsfdef.h new file mode 100644 index 00000000..bbd88ad0 --- /dev/null +++ b/noao/digiphot/apphot/lib/fitpsfdef.h @@ -0,0 +1,43 @@ +# FITPSF header file + +define LEN_PSFSTRUCT (25 + SZ_FNAME + 1) + +# fitpsf parameters + +define AP_PSFUNCTION Memi[$1] # PSF function +define AP_PSFNPARS Memi[$1+1] # Number of parameters +define AP_MAXNPARS Memi[$1+2] # Maximum number of parameters +define AP_PSFAPERT Memr[P2R($1+3)] # Half-width of fitting box +define AP_PMAXITER Memi[$1+4] # Maximum number of iterations +define AP_PK2 Memr[P2R($1+5)] # Rejection limit in sigma +define AP_PNREJECT Memi[$1+6] # Maximum number of rejections + +# fitpsf buffers + +define AP_PSFPIX Memi[$1+7] # Pointer to pixels +define AP_PSFXPIX Memi[$1+8] # X coordinates array (not used) +define AP_PSFYPIX Memi[$1+9] # Y coordinates array (not used) +define AP_NPSFPIX Memi[$1+10] # Number of pixels (not used) +define AP_LENPSFBUF Memi[$1+11] # Length of pixel buffer (not used) +define AP_PXC Memr[P2R($1+12)]# X center of subraster +define AP_PYC Memr[P2R($1+13)]# Y center of subraster +define AP_PNX Memi[$1+14] # X dimension of subraster +define AP_PNY Memi[$1+15] # Y dimension of subraster +define AP_PFXCUR Memr[P2R($1+16)]# X initial position +define AP_PFYCUR Memr[P2R($1+17)]# Y initial position +define AP_OPFXCUR Memr[P2R($1+18)]# X initial position +define AP_OPFYCUR Memr[P2R($1+19)]# Y initial position + +# fitpsf answers + +define AP_PPARS Memi[$1+20] # fitted parameters +define AP_PPERRS Memi[$1+21] # errors in the parameters +define AP_PSFSTRING Memc[P2C($1+22)] # functions string + +# default fitpsf parameters + +define DEF_MAXNPARS 10 +define DEF_PSFUNCTION AP_RADGAUSS +define DEF_PMAXITER 50 +define DEF_PK2 3.0 +define DEF_PNREJECT 1 -- cgit