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