Initial commit

1 files changed, 132 insertions, 0 deletions

diff --git a/noao/obsutil/src/sptime/sptime.h b/noao/obsutil/src/sptime/sptime.h
new file mode 100644
index 00000000..c17b377a
--- /dev/null
+++ b/noao/obsutil/src/sptime/sptime.h
@@ -0,0 +1,132 @@
+# Definitions for SPTIME.
+
+# Spectral distribution types.
+define	SPECTYPES	"|blackbody|flambda_power|fnu_power|"
+define	SPEC_TAB	0
+define	SPEC_BB		1
+define	SPEC_FL		2
+define	SPEC_FN		3
+
+# Flux units.
+define	FUNITS		"|AB|F_lambda|F_nu|U|B|V|R|I|J|H|Ks|K|L|L'|M|"
+define	AB		1
+define	FLAMBDA		2
+define	FNU		3
+define	UMAG		4
+define	BMAG		5
+define	VMAG		6
+define	RMAG		7
+define	IMAG		8
+define	JMAG		9
+define	HMAG		10
+define	KSMAG		11
+define	KMAG		12
+define	LMAG		13
+define	LPMAG		14
+define	MMAG		15
+
+# Sky subtraction options.
+define	SKYSUB		"|none|longslit|multiap|shuffle|"
+define	SKY_NONE	1
+define	SKY_LONGSLIT	2
+define	SKY_MULTIAP	3
+define	SKY_SHUFFLE	4
+
+# Aperture types.
+define	APTYPES		"|circular|rectangular|"
+define	CIRCULAR	1
+define	RECTANGULAR	2
+
+# Output types.
+define	OUTTYPES	"|counts|snr|object|rate|atmosphere|telescope|adc|\
+			 |aperture|fiber|filter|filter2|collimator|disperser|\
+			 |xdisperser|corrector|camera|detector|spectrograph|\
+			 |emissivity|thruput|sensfunc|correction|"
+define	OUT_COUNTS	1
+define	OUT_SNR		2
+define	OUT_OBJ		3
+define	OUT_RATE	4
+define	OUT_ATM		5
+define	OUT_TEL		6
+define	OUT_ADC		7
+define	OUT_AP		9
+define	OUT_FIB		10
+define	OUT_FILT	11
+define	OUT_FILT2	12
+define	OUT_COL		13
+define	OUT_DISP	14
+define	OUT_XDISP	16
+define	OUT_COR		17
+define	OUT_CAM		18
+define	OUT_DET		19
+define	OUT_SPEC	20
+define	OUT_EMIS	22
+define	OUT_THRU	23
+define	OUT_SENS	24
+define	OUT_CORRECT	25
+
+# Grating types.
+define	DISPTYPES	"|grating|grism|generic"
+define	GRATING		1
+define	GRISM		2
+define	GENERIC		3
+
+# Macros.
+define	MINEXP		0.01		# Minimum exposure time.
+define	MAXNEXP		10000		# Maximum number of exposures.
+define	MAXITER		50
+define	H		6.626E-27
+define	C		2.99792456E18
+
+# Data structure.
+define	ST_SZSTRING	99			# Length of strings
+define	ST_LEN		154			# Structure length
+
+define	ST_TAB		Memi[$1]		# Tables pointer
+define	ST_SEARCH	Memi[$1+1]		# Search list
+define	ST_SPEC		Memi[$1+2]		# Spectrum type
+define	ST_PARAM	Memr[P2R($1+3)]		# Spectrum parameter
+define	ST_THERMAL	Memr[P2R($1+4)]		# Thermal background temperature
+define	ST_AV		Memr[P2R($1+5)]		# A(V)
+define	ST_RV		Memr[P2R($1+6)]		# A(V)/E(B-V)
+define	ST_TIME		Memr[P2R($1+7)]		# Exposure time
+define	ST_NEXP		Memi[$1+8]		# Number of exposures
+define	ST_MINEXP	Memr[P2R($1+9)]		# Minimum time per integration
+define	ST_MAXEXP	Memr[P2R($1+10)]	# Maximum time per integration
+define	ST_AIRMASS	Memr[P2R($1+11)]	# Airmass
+define	ST_SEEING	Memr[P2R($1+12)]	# Seeing (FWHM in arcsec)
+define	ST_PHASE	Memr[P2R($1+13)]	# Moon phase
+define	ST_REFW		Memr[P2R($1+14)]	# Reference wavelength
+define	ST_REFF		Memr[P2R($1+15)]	# Reference flux
+define	ST_REFFL	Memr[P2R($1+16)]	# Reference flambda
+define	ST_CW		Memr[P2R($1+17)]	# Central wavelength
+define	ST_ORDER	Memi[$1+17+$2]		# Grating orders (2)
+define	ST_APSIZE	Memr[P2R($1+19+$2)]	# Aperture sizes (2) 
+define	ST_BIN		Memi[$1+21+$2]		# Binning (2)
+define	ST_GAIN		Memr[P2R($1+24)]	# Detector gain
+define	ST_RDNOISE	Memr[P2R($1+25)]	# Detector read noise
+define	ST_DARK		Memr[P2R($1+26)]	# Detector dark counts
+define	ST_INOUTA	Memr[P2R($1+26+$2)]	# Incident-diffracted angle(deg)
+define	ST_SKYSUB	Memi[$1+29]		# Sky subtraction type
+define	ST_NSKYAPS	Memi[$1+30]		# Number of sky apertures
+
+define	ST_DISPTYPE	Memi[$1+30+$2]		# Disperser type
+define	ST_GR		Memi[$1+32+$2]		# Grating pointer (2)
+define	ST_DISP		Memr[P2R($1+34+$2)]	# Dispersion (2)
+define	ST_SCALE	Memr[P2R($1+36+$2)]	# Scale at detector (2)
+define	ST_RES		Memr[P2R($1+38+$2)]	# Resolution at detector (2)
+define	ST_AREA		Memr[P2R($1+41)]	# Effective collecting area
+define	ST_TELSCALE	Memr[P2R($1+42)]	# Telescope scale at aperture
+define	ST_NOBJPIX	Memi[$1+43]		# Number of object pixels
+define	ST_NSKYPIX	Memi[$1+44]		# Number of sky pixels
+define	ST_APLIM	Memi[$1+45]		# Aperture limited?
+define	ST_APTYPE	Memi[$1+46]		# Aperture type
+define	ST_PIXSIZE	Memr[P2R($1+47)]	# Pixel weighted disp. size
+define	ST_FILTBLK	Memi[$1+48]		# Block filter flag
+define	ST_DUNANG	Memi[$1+49]		# Angstrom units pointer
+define	ST_DUN		Memi[$1+50]		# User units pointer
+define	ST_SUBPIXELS	Memi[$1+51]		# Number of subpixels
+define	ST_COLFL	Memr[P2R($1+52)]	# Collimator focal length
+define	ST_CAMFL	Memr[P2R($1+53)]	# Collimator focal length
+define	ST_DUNITS	Memc[P2C($1+54)]	# Dispersion units
+define	ST_FUNITS	Memc[P2C($1+104)]	# Flux units