*-----------------------------------------------------------------------
*     SGLGET / SGLSET / SGLSTX
*-----------------------------------------------------------------------
      SUBROUTINE SGLGET(CP, LPARA)

      CHARACTER CP*(*)

      CHARACTER CX*8
      CHARACTER CL*40
      LOGICAL   LPARA, LP

      CALL SGLQID(CP, IDX)
      CALL SGLQVL(IDX, LPARA)

      RETURN
*-----------------------------------------------------------------------
      ENTRY SGLSET(CP, LPARA)

      CALL SGLQID(CP, IDX)
      CALL SGLSVL(IDX, LPARA)

      RETURN
*-----------------------------------------------------------------------
      ENTRY SGLSTX(CP, LPARA)

      LP = LPARA
      CALL SGLQID(CP, IDX)

      CALL SGLQCP(IDX, CX)
      CALL RTLGET('SG:', CX, LP, 1)

      CALL SGLQCL(IDX, CL)
      CALL RLLGET(CL, LP, 1)

      CALL SGLSVL(IDX,LP)

      RETURN
      END
