SETUMATTRANS Subroutine

    SUBROUTINE SETUMATTRANS(TRANS)
        ! In:
        !    Trans: Translation list of orbitrals from one ordering to a new one.
        ! Currently only called in cpmdinit to re-order states by the
        ! one-particle energies (option is rarely used).
        ! Copy to UMatCache's translation table.
        INTEGER TRANS(NSTATES), ierr
        character(*), parameter :: thisroutine = 'SetupUMatTrans'
        allocate(TransTable(nStates), STAT=ierr)
        call LogMemAlloc('TransTable', nStates, 4, thisroutine, tagTransTable, ierr)
        CALL NECI_ICOPY(NSTATES, TRANS, 1, TransTable, 1)
        TTRANSGTID = .TRUE.
    END SUBROUTINE SetUMatTrans