*-----------------------------------------------------------------------
*     GLCGET / GLCSET / GLCSTX
*-----------------------------------------------------------------------
      SUBROUTINE GLCGET(CP,CPARA)

      CHARACTER CP*(*),CPARA*(*)

      CHARACTER CX*40,CPVAL*80


      CALL GLCQID(CP,IDX)
      CALL GLCQVL(IDX,CPARA)

      RETURN
*-----------------------------------------------------------------------
      ENTRY GLCSET(CP,CPARA)

      CALL GLCQID(CP,IDX)
      CALL GLCSVL(IDX,CPARA)

      RETURN
*-----------------------------------------------------------------------
      ENTRY GLCSTX(CP,CPARA)

      CPVAL=CPARA

      CALL GLCQID(CX,IDX)

      CALL GLCQCP(IDX, CX)
      CALL RTCGET('GL:',CX,CPVAL,1)

      CALL GLCQCL(IDX, CX)
      CALL RLCGET(CX,CPVAL,1)

      CALL GLCSVL(IDX,CPVAL)

      RETURN
      END
