READ <pcim> lang15;
GENR fimro1 = fimro1 + 0.001*Y(2015)/pimro1(2015) $;
UPD <2015 2075> Dfxo1i = 1;
TIME 2015 2075;
SIM;