# NEWRES -- New resolution classifier

procedure t_newres ()

pointer	catalog			# Catalog
int	type			# Template type (1-4)
int	center			# Center templates?
int	clsf			# Check all templates?
real	minr			# Minimum radius
real	maxr			# Maximum radius
real	rn			# Readnoise
real	sky			# Subtracted sky
pointer	filter			# Filter options

pointer	sp
bool	clgetb()
int	clgeti(), btoi(), stflt()
real	clgetr()

begin
	call smark (sp)
	call salloc (catalog, SZ_FNAME, TY_CHAR)
	call salloc (filter, SZ_LINE, TY_CHAR)

	call clgstr ("catalog", Memc[catalog], SZ_LINE)
	type = clgeti ("templates")
	center = btoi (clgetb ("center"))
	clsf = btoi (clgetb ("alltemplates"))
	minr = clgetr ("minradius")
	maxr = clgetr ("maxradius")
	rn = clgetr ("rn")
	sky = clgetr ("sky")
	call clgstr ("filter", Memc[filter], SZ_LINE)

	call strpak (Memc[catalog], Memc[catalog], SZ_FNAME)
	call strpak (Memc[filter], Memc[filter], SZ_LINE)

	if (stflt (Memc[filter]) == 0)
	    call newres (Memc[catalog], type, center, clsf, minr, maxr, rn, sky)

	call sfree (sp)
end