define mkgrmf (order)
{
   variable parms = "verbose=2 diagonalrmf=no grating_arm=LEG clobber=yes";
   variable ymin, ymax, dy;

   ymin = 1.0;
   ymax = 205.8;
   dy = (ymax - ymin) / 16384.0;

   variable args;
   args = sprintf ("mkgrmf outfile=leg_m%d.rmf order=%d wvgrid_arf=%f:%f:#16384 wvgrid_chan=%f:%f:#16384 %s",
                   order, order,
                   ymin/order, ymax/order,
                   ymin/order, ymax/order,
                   parms);
   () = system (args);
}

foreach ([1:11])
{
   mkgrmf();
}