Change in ENRG subroutine