  CONST
    rmc$maximum_density = rmc$38000;

*copyc rmt$density
