subroutine end_exact_spectrum()
deallocate(pert_ground_left)
deallocate(pert_ground_right)
deallocate(trans_amps_left)
deallocate(trans_amps_right)
deallocate(eigv_es)
deallocate(hamiltonian)
end subroutine end_exact_spectrum