READ <pcim> lang14;
TIME 2014 2014;
GENR jrfvo1 = @jrfvo1 + (0.001*Y/pvo1)*(1+@jrfvo1)/@fvo1 $;
TIME 2014 2074;
SIM ;