DeallocateNatOrbs Subroutine

    subroutine DeallocateNatOrbs()

        use LoggingData, only: tTruncRODump

        character(len=*), parameter :: t_r = 'DeallocateNatOrbs'

        if (tTruncRODump) then
            deallocate(SymOrbs_rotTemp)
            call LogMemDeAlloc(t_r, SymOrbs_rotTempTag)
        end if
        deallocate(NatOrbMat)
        call LogMemDeAlloc(t_r, NatOrbMatTag)
        deallocate(Evalues)
        call LogMemDeAlloc(t_r, EvaluesTag)

    end subroutine DeallocateNatOrbs