READ <pcim> lang15;
TIME 2015 2015;
GENR jrfvo1 = @jrfvo1 + (0.001*Y/pvo1)*(1+@jrfvo1)/@fvo1 $;
TIME 2015 2075;
SIM ;