READ <pcim> lang100;
TIME #per1 #per2 ;
GENR Qwo = Qwo + 1000/(0.001*klo(2013)*lnakk(2013)*Hgwo(2013)) $ ;
SIM ;