closing ascii art frames in energy_p_new.F