subroutine finalize_excitgen_test() deallocate(TMat2D) call shared_deallocate_mpi(umat_win, UMat) call CalcCleanup() call SysCleanup() end subroutine finalize_excitgen_test