# MEXTRACT -- Extract a single catalog from a matched catalog

procedure t_mextract ()

pointer	sp, input, output
int	i, clgeti()

begin
	call smark (sp)
	call salloc (input, SZ_FNAME, TY_CHAR)
	call salloc (output, SZ_FNAME, TY_CHAR)

	call clgstr ("input", Memc[input], SZ_FNAME)
	call clgstr ("output", Memc[output], SZ_FNAME)
	i =  clgeti ("ncatalog")
	call strpak (Memc[input], Memc[input], SZ_FNAME)
	call strpak (Memc[output], Memc[output], SZ_FNAME)

	call mextract (Memc[input], Memc[output], i)

	call sfree (sp)
end