#include	"focas1.h"


/* EXPSF -- Extract PSF from a catalog. */

expsf (catalog)
char   catalog[];
{
    int     i, j;

    cfd = catopen (catalog, 0);
    printf ("%d %d\n", sp.nx, sp.ny);
    for (i = 0; i < sp.ny; i++)
	for (j = 0; j < sp.nx; j++)
	    printf ("%g\n", template[i][j]);
    fclose (cfd);
}