/post1
set,1,1,,1                                 
/gre
plns,volt 
esel,s,mat,,egs                            
etab,jheat,jheat                            
etab,volu,volu                               
smult,jv,jheat,volu                           
ssum                                        
*get,power,ssum,,item,jv               
T_power=power*360/5