*-----------------------------------------------------------------------
*     UEIGET / UEISET / UEISTX
*-----------------------------------------------------------------------
      SUBROUTINE UEIGET(CP, IPARA)

      CHARACTER CP*(*)

      CHARACTER CX*8
      CHARACTER CL*40

      CALL UEIQID(CP, IDX)
      CALL UEIQVL(IDX, IPARA)

      RETURN
*-----------------------------------------------------------------------
      ENTRY UEISET(CP, IPARA)

      CALL UEIQID(CP, IDX)
      CALL UEISVL(IDX, IPARA)

      RETURN
*-----------------------------------------------------------------------
      ENTRY UEISTX(CP, IPARA)

      IP = IPARA
      CALL UEIQID(CP, IDX)
* SHORT NAME
      CALL UEIQCP(IDX, CX)
      CALL RTIGET('UE:', CX, IP, 1)
* LONG NAME
      CALL UEIQCL(IDX, CL)
      CALL RLIGET(CL, IP, 1)

      CALL UEISVL(IDX,IP)

      RETURN
      END
