1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      SUBROUTINE GRSTRF
5
6
7      CALL GLRGET('RUNDEF',RUNDEF)
8
9      CALL SGIGET('ITR',ITR)
10
11      CALL SGRGET('VXMIN',VXMIN)
12      IF (VXMIN.EQ.RUNDEF) THEN
13        CALL MSGDMP('E','GRSTRF','VXMIN IS NOT DEFINED.')
14      END IF
15      CALL SGRGET('VXMAX',VXMAX)
16      IF (VXMAX.EQ.RUNDEF) THEN
17        CALL MSGDMP('E','GRSTRF','VXMAX IS NOT DEFINED.')
18      END IF
19      CALL SGRGET('VYMIN',VYMIN)
20      IF (VYMIN.EQ.RUNDEF) THEN
21        CALL MSGDMP('E','GRSTRF','VYMIN IS NOT DEFINED.')
22      END IF
23      CALL SGRGET('VYMAX',VYMAX)
24      IF (VYMAX.EQ.RUNDEF) THEN
25        CALL MSGDMP('E','GRSTRF','VYMAX IS NOT DEFINED.')
26      END IF
27
28      IF (1.LE.ITR .AND. ITR.LE.4) THEN
29        CALL SGRGET('UXMIN',UXMIN)
30        IF (UXMIN.EQ.RUNDEF) THEN
31          CALL MSGDMP('E','GRSTRF','UXMIN IS NOT DEFINED.')
32        END IF
33        CALL SGRGET('UXMAX',UXMAX)
34        IF (UXMAX.EQ.RUNDEF) THEN
35          CALL MSGDMP('E','GRSTRF','UXMAX IS NOT DEFINED.')
36        END IF
37        CALL SGRGET('UYMIN',UYMIN)
38        IF (UYMIN.EQ.RUNDEF) THEN
39          CALL MSGDMP('E','GRSTRF','UYMIN IS NOT DEFINED.')
40        END IF
41        CALL SGRGET('UYMAX',UYMAX)
42        IF (UYMAX.EQ.RUNDEF) THEN
43          CALL MSGDMP('E','GRSTRF','UYMAX IS NOT DEFINED.')
44        END IF
45      ELSE IF (5.LE.ITR .AND. ITR.LE.7) THEN
46        CALL SGRGET('SIMFAC',SIMFAC)
47        IF (SIMFAC.EQ.RUNDEF) THEN
48          CALL MSGDMP('E','GRSTRF','SIMFAC IS NOT DEFINED.')
49        END IF
50        CALL SGRGET('VXOFF',VXOFF)
51        IF (VXOFF.EQ.RUNDEF) THEN
52          CALL MSGDMP('E','GRSTRF','VXOFF IS NOT DEFINED.')
53        END IF
54        CALL SGRGET('VYOFF',VYOFF)
55        IF (VYOFF.EQ.RUNDEF) THEN
56          CALL MSGDMP('E','GRSTRF','VYOFF IS NOT DEFINED.')
57        END IF
58      ELSE IF (10.LE.ITR .AND. ITR.LE.24 .OR.
59     +         30.LE.ITR .AND. ITR.LE.34 ) THEN
60        CALL SGRGET('SIMFAC',SIMFAC)
61        IF (SIMFAC.EQ.RUNDEF) THEN
62          CALL MSGDMP('E','GRSTRF','SIMFAC IS NOT DEFINED.')
63        END IF
64        CALL SGRGET('VXOFF',VXOFF)
65        IF (VXOFF.EQ.RUNDEF) THEN
66          CALL MSGDMP('E','GRSTRF','VXOFF IS NOT DEFINED.')
67        END IF
68        CALL SGRGET('VYOFF',VYOFF)
69        IF (VYOFF.EQ.RUNDEF) THEN
70          CALL MSGDMP('E','GRSTRF','VYOFF IS NOT DEFINED.')
71        END IF
72        CALL SGRGET('PLX',PLX)
73        IF (PLX.EQ.RUNDEF) THEN
74          CALL MSGDMP('E','GRSTRF','PLX IS NOT DEFINED.')
75        END IF
76        CALL SGRGET('PLY',PLY)
77        IF (PLY.EQ.RUNDEF) THEN
78          CALL MSGDMP('E','GRSTRF','PLY IS NOT DEFINED.')
79        END IF
80        CALL SGRGET('PLROT',PLROT)
81        IF (PLROT.EQ.RUNDEF) THEN
82          CALL MSGDMP('E','GRSTRF','PLROT IS NOT DEFINED.')
83        END IF
84        CALL SGRGET('TXMIN',TXMIN)
85        IF (TXMIN.EQ.RUNDEF) THEN
86          CALL MSGDMP('E','GRSTRF','TXMIN IS NOT DEFINED.')
87        END IF
88        CALL SGRGET('TXMAX',TXMAX)
89        IF (TXMAX.EQ.RUNDEF) THEN
90          CALL MSGDMP('E','GRSTRF','TXMAX IS NOT DEFINED.')
91        END IF
92        CALL SGRGET('TYMIN',TYMIN)
93        IF (TYMIN.EQ.RUNDEF) THEN
94          CALL MSGDMP('E','GRSTRF','TYMIN IS NOT DEFINED.')
95        END IF
96        CALL SGRGET('TYMAX',TYMAX)
97        IF (TYMAX.EQ.RUNDEF) THEN
98          CALL MSGDMP('E','GRSTRF','TYMAX IS NOT DEFINED.')
99        END IF
100      END IF
101
102      CALL SGSTRF
103
104      END
105