#---------------------------------------------------------------------------
.help ratio_obj.h May94 source
.ih
NAME
ratio_obj.h -- Definition of a hybrid spectrum/centerflux object.
.endhelp
#---------------------------------------------------------------------------

# Memory management, string sizes.
define	RA_SZ_UNITS		SZ_COMMAND
define	RA_SZ_WUNITS		SZ_COMMAND
define	RA_SZ_GRATING		SZ_COMMAND
define	RA_SZ_APERTURE		SZ_COMMAND

# Structure of the object.
define	RA_UNITS_PTR		Memi[$1+1]
define	RA_UNITS		Memc[RA_UNITS_PTR($1)]
define	RA_WUNITS_PTR		Memi[$1+2]
define	RA_WUNITS		Memc[RA_WUNITS_PTR($1)]
define	RA_N			Memi[$1+3]
define	RA_DATA_ARRAY_PTR	Memi[$1+4]
define	RA_DATA_ARRAY		Memi[RA_DATA_ARRAY_PTR($1)+$2-1]
define	RA_MAX_DATA		Memi[$1+5]
define	RA_GROW			Memi[$1+6]
define	RA_EXIST_PTR		Memi[$1+7]
define	RA_EXIST		Memi[RA_EXIST_PTR($1)+$2-1]
define	RA_GRATING_PTR		Memi[$1+8]
define	RA_GRATING		Memc[RA_GRATING_PTR($1)]
define	RA_APERTURE_PTR		Memi[$1+9]
define	RA_APERTURE		Memc[RA_APERTURE_PTR($1)]
define	RA_SIZE			10

# Constanstants for the output table.
define	RA_N_COLUMNS		5
define	RA_ALL			0
define	RA_CARPOS		1
define	RA_ORDER		2
define	RA_VALUE		3
define	RA_WAVE			4
define	RA_ERR			5

# Access the values.
define	RA_CARPOS_DATA		Memi[RA_DATA_ARRAY($1,RA_CARPOS)+$2-1]
define	RA_ORDER_DATA		Memi[RA_DATA_ARRAY($1,RA_ORDER)+$2-1]
define	RA_VALUE_DATA		Memd[RA_DATA_ARRAY($1,RA_VALUE)+$2-1]
define	RA_WAVE_DATA		Memd[RA_DATA_ARRAY($1,RA_WAVE)+$2-1]
define	RA_ERR_DATA		Memd[RA_DATA_ARRAY($1,RA_ERR)+$2-1]
#---------------------------------------------------------------------------
# End of ratio_obj.h
#---------------------------------------------------------------------------