*----------------------------------------------------------------------- * GLLGET / GLLSET / GLLSTX * 99/10/21 LONG NAME *----------------------------------------------------------------------- SUBROUTINE GLLGET(CP, LPARA) CHARACTER CP*(*) CHARACTER CX*40 LOGICAL LPARA, LP CALL GLLQID(CP, IDX) CALL GLLQVL(IDX, LPARA) RETURN *----------------------------------------------------------------------- ENTRY GLLSET(CP, LPARA) CALL GLLQID(CP, IDX) CALL GLLSVL(IDX, LPARA) RETURN *----------------------------------------------------------------------- ENTRY GLLSTX(CP, LPARA) LP = LPARA CALL GLLQID(CP, IDX) * SHORT NAME CALL GLLQCP(IDX, CX) CALL RTLGET('GL:', CX, LP, 1) * LONG NAME CALL GLLQCP(IDX, CX) CALL RLLGET(CX, LP, 1) CALL GLLSVL(IDX, LP) RETURN END