# DOI -- Evaluate DOI parameters.

procedure t_doi ()

pointer	catalog			# Catalog
real	r1, r2			# Normalized radii for evaluation
pointer	filter			# Filter options

pointer	sp
int	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)
	r1 = clgetr ("r1")
	r2 = clgetr ("r2")
	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 doi (Memc[catalog], r1, r2)

	call sfree (sp)
end