1*-----------------------------------------------------------------------
2*     ARROW SUBPRIMITIVE
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE SGLAU(UX1,UY1,UX2,UY2)
7
8      SAVE
9
10      DATA      ITYPEZ/1/,INDEXZ/1/
11
12
13      IF (ITYPEZ.EQ.0) THEN
14        CALL MSGDMP('M','SGLAU','LINETYPE IS 0 / DO NOTHING.')
15        RETURN
16      END IF
17      IF (INDEXZ.EQ.0) THEN
18        CALL MSGDMP('M','SGLAU','LINE INDEX IS 0 / DO NOTHING.')
19        RETURN
20      END IF
21      IF (INDEXZ.LT.0) THEN
22        CALL MSGDMP('E','SGLAU','LINE INDEX IS INVALID.')
23      END IF
24
25      CALL SZLAOP(ITYPEZ,INDEXZ)
26      CALL SZLAZU(UX1,UY1,UX2,UY2)
27      CALL SZLACL
28
29      RETURN
30*-----------------------------------------------------------------------
31      ENTRY SGLAV(VX1,VY1,VX2,VY2)
32
33      IF (ITYPEZ.EQ.0) THEN
34        CALL MSGDMP('M','SGLAV','LINETYPE IS 0 / DO NOTHING.')
35        RETURN
36      END IF
37      IF (INDEXZ.EQ.0) THEN
38        CALL MSGDMP('M','SGLAV','LINE INDEX IS 0 / DO NOTHING.')
39        RETURN
40      END IF
41      IF (INDEXZ.LT.0) THEN
42        CALL MSGDMP('E','SGLAV','LINE INDEX IS INVALID.')
43      END IF
44
45      CALL SZLAOP(ITYPEZ,INDEXZ)
46      CALL SZLAZV(VX1,VY1,VX2,VY2)
47      CALL SZLACL
48
49      RETURN
50*-----------------------------------------------------------------------
51      ENTRY SGLAR(RX1,RY1,RX2,RY2)
52
53      IF (ITYPEZ.EQ.0) THEN
54        CALL MSGDMP('M','SGLAR','LINETYPE IS 0 / DO NOTHING.')
55        RETURN
56      END IF
57      IF (INDEXZ.EQ.0) THEN
58        CALL MSGDMP('M','SGLAR','LINE INDEX IS 0 / DO NOTHING.')
59        RETURN
60      END IF
61      IF (INDEXZ.LT.0) THEN
62        CALL MSGDMP('E','SGLAR','LINE INDEX IS INVALID.')
63      END IF
64
65      CALL SZLAOP(ITYPEZ,INDEXZ)
66      CALL SZLAZR(RX1,RY1,RX2,RY2)
67      CALL SZLACL
68
69      RETURN
70*-----------------------------------------------------------------------
71      ENTRY SGSLAT(ITYPE)
72
73      ITYPEZ=ITYPE
74
75      RETURN
76*-----------------------------------------------------------------------
77      ENTRY SGQLAT(ITYPE)
78
79      ITYPE=ITYPEZ
80
81      RETURN
82*-----------------------------------------------------------------------
83      ENTRY SGSLAI(INDEX)
84
85      INDEXZ=INDEX
86
87      RETURN
88*-----------------------------------------------------------------------
89      ENTRY SGQLAI(INDEX)
90
91      INDEX=INDEXZ
92
93      RETURN
94      END
95