READ <pcim> lang15;
TIME 2015 2075;
GENR elpfxa  = @elpfxa  * 2 ;
GENR elpfe2k = @elpfe2k * 2 ;
GENR elpfe59 = @elpfe59 * 2 ;
GENR elpfet  = @elpfet  * 2 ;
Genr elpfesq = @elpfesq * 2 ;

// Genr ekpfxa  = @ekpfxa  * 1.5 ;
Genr Ekpfe2k = @Ekpfe2k * 1.5 ;
Genr Ekpfe59 = @Ekpfe59 * 1.5 ;
Genr Ekpfet  = @Ekpfet  * 1.5 ;
Genr ekpfesq = @ekpfesq * 1.5 ;

Genr Tfxa    = @Tfxa    * 2 ;
Genr tfe2k   = @tfe2k   * 2 ;
Genr tfe59   = @tfe59   * 2 ;
Genr tfet    = @tfet    * 2 ;
Genr tfesq   = @tfesq   * 2 ;

LIST + #dfewl dfe2kw dfe59w dfetw dfEsqw dfXaw; UPD #dfewl = 1;
TIME 2015 2075;
SIM ; UPD #dfewl = 0; WRITE stor;


READ Stor;
TIME 2015 2075;
GENR Uq = @Uq -0.01*Q $ ;
UPD duqsy = 1 ;
SIM ;