1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      SUBROUTINE SCPLZV(N,VPX,VPY,VPZ,INDEX)
5
6      REAL      VPX(*),VPY(*),VPZ(*)
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 (INDEX.EQ.0) THEN
13        CALL MSGDMP('M','SGPLZV','POLYLINE INDEX IS 0 / DO NOTHING.')
14        RETURN
15      END IF
16      IF (INDEX.LT.0) THEN
17        CALL MSGDMP('E','SGPLZV','POLYLINE INDEX IS LESS THAN 0.')
18      END IF
19
20      CALL SZL3OP(INDEX)
21      CALL SZL3ZV(N,VPX,VPY,VPZ)
22      CALL SZL3CL
23
24      END
25