1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      SUBROUTINE SGPLZV(N,VPX,VPY,ITYPE,INDEX)
5
6      REAL      VPX(*),VPY(*)
7
8
9      IF (N.LT.2) THEN
10        CALL MSGDMP('E','SGPLZV','NUMBER OF POINTS IS LESS THAN 2.')
11      END IF
12      IF (ITYPE.EQ.0) THEN
13        CALL MSGDMP('M','SGPLZV','LINETYPE IS 0 / DO NOTHING.')
14        RETURN
15      END IF
16      IF (INDEX.EQ.0) THEN
17        CALL MSGDMP('M','SGPLZV','POLYLINE INDEX IS 0 / DO NOTHING.')
18        RETURN
19      END IF
20      IF (INDEX.LT.0) THEN
21        CALL MSGDMP('E','SGPLZV','POLYLINE INDEX IS LESS THAN 0.')
22      END IF
23
24      CALL SZPLOP(ITYPE,INDEX)
25      CALL SZPLZV(N,VPX,VPY)
26      CALL SZPLCL
27
28      END
29