modified: energy_p_new_barrier.F - closed ascii art frames