src/test/restriction1.c
Restriction on rectangular domains
#include "grid/multigrid.h"
scalar s[];
int main()
{
dimensions (3, 1);
init_grid (16);
foreach()
s[] = x*y;
restriction ({s});
foreach_level (2, serial)
fprintf (stderr, "%g %g %g\n", x, y, s[]);
}