#include    "focas1.h"


/* EVALUATE -- Evaluate object photometry and astrometry. */

evaluate (catalog)

char   *catalog;

{
    int diag;
    long szrec, szobjrec();
    struct objrec ob;
    struct areas area;

    cfd = catopen (catalog, 2);
    cmmnt ("evaluate");
    wtcathdr (cfd, 0);

    pfd = fndfld (sp.ptfl, 0);
    sp.xs = pthdr.crpix1;
    sp.ys = pthdr.crpix2;
    afd = fndar (sp.arfl, 0);
    setr();
    szrec = szobjrec();

    for (;;) {
	if (rdcatob (cfd, 0L, &ob))
	    break;
	if (ffilter (&ob) != 1)
	    continue;
	if (rdarea (afd, ob.entnum, ob.subent, ob.arpos, &area))
	    continue;
	if (evlobj (&ob, &area, diag, stdout))
	    ;

	fseek (cfd, -szrec, 1);
	wtcat (&ob, cfd);
    }

    fclose (afd);
    fclose (cfd);
}