Repatch (from linux) of OSX IRAF

1 files changed, 43 insertions, 0 deletions

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