subroutine end_ftlm()
close(ftlm_unit)
deallocate(ftlm_vecs)
deallocate(full_vec_ftlm)
deallocate(ftlm_hamil)
deallocate(ftlm_trace)
deallocate(ftlm_e_num)
deallocate(ftlm_h_eigv)
deallocate(ndets_ftlm)
deallocate(disps_ftlm)
write(stdout, '(/,1x,a18,/)') "Exiting FTLM code."
end subroutine end_ftlm