   //      
   r_env = t_htr*10/pow_stb - pm.r_irn;    
     
   //     
   iron_t = pow_stb * r_env/10;   
   
   //         
   pow_stb = t_def_tmp*10/r_env;  
       
   //        
   t_htr = pow_stb * (r_env + pm.r_irn)/10;  
          
   //      
   if(t_htr > 450) 
   { 
    t_htr = 450;    
    pow_stb = t_htr*10 /(r_env + pm.r_irn);
   }