1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      SUBROUTINE SGLAZR(RX1,RY1,RX2,RY2,ITYPE,INDEX)
5
6
7      IF (ITYPE.EQ.0) THEN
8        CALL MSGDMP('M','SGLAZR','LINETYPE IS 0 / DO NOTHING.')
9        RETURN
10      END IF
11      IF (INDEX.EQ.0) THEN
12        CALL MSGDMP('M','SGLAZR','LINE INDEX IS 0 / DO NOTHING.')
13        RETURN
14      END IF
15      IF (INDEX.LT.0) THEN
16        CALL MSGDMP('E','SGLAZR','LINE INDEX IS INVALID.')
17      END IF
18
19      CALL SZLAOP(ITYPE,INDEX)
20      CALL SZLAZR(RX1,RY1,RX2,RY2)
21      CALL SZLACL
22
23      END
24