*-----------------------------------------------------------------------
*     GLRGET / GLRSET / GLRSTX
*     99/10/21 LONG NAME
*-----------------------------------------------------------------------
      SUBROUTINE GLRGET(CP, IPARA)

      CHARACTER CP*(*)
      CHARACTER CX*40

      CALL GLRQID(CP, IDX)
      CALL GLRQVL(IDX, IPARA)

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

      CALL GLRQID(CP, IDX)
      CALL GLRSVL(IDX, IPARA)

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

      IP = IPARA
      CALL GLRQID(CP, IDX)
* SHORT NAME     
      CALL GLRQCP(IDX, CX)
      CALL RTRGET('GL:', CX, IP, 1)
* LONG NAME     
      CALL GLRQCP(IDX, CX)
      CALL RLRGET(CX, IP, 1)

      CALL GLRSVL(IDX, IP)

      RETURN
      END
