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