1*-----------------------------------------------------------------------
2*     SGRGET / SGRSET / SGRSTX
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE SGRGET(CP, RPARA)
7
8      CHARACTER CP*(*)
9
10      CHARACTER CX*8
11      CHARACTER CL*40
12
13
14      CALL SGRQID(CP, IDX)
15      CALL SGRQVL(IDX, RPARA)
16
17      RETURN
18*-----------------------------------------------------------------------
19      ENTRY SGRSET(CP, RPARA)
20
21      CALL SGRQID(CP, IDX)
22      CALL SGRSVL(IDX, RPARA)
23
24      RETURN
25*-----------------------------------------------------------------------
26      ENTRY SGRSTX(CP, RPARA)
27
28      RP = RPARA
29      CALL SGRQID(CP, IDX)
30
31*     / SHORT NAME /
32
33      CALL SGRQCP(IDX, CX)
34      CALL RTRGET('SG', CX, RP, 1)
35
36*     / LONG NAME /
37
38      CALL SGRQCL(IDX, CL)
39      CALL RLRGET(CL, RP, 1)
40
41      CALL SGRSVL(IDX,RP)
42
43      RETURN
44      END
45