end_ftlm Subroutine

public subroutine end_ftlm()

Arguments

None

Source Code

    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