1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      SUBROUTINE SGLNZV(VX1,VY1,VX2,VY2,INDEX)
5
6
7      IF (INDEX.EQ.0) THEN
8        CALL MSGDMP('M','SGLNZV','LINE INDEX IS 0 / DO NOTHING.')
9        RETURN
10      END IF
11      IF (INDEX.LT.0) THEN
12        CALL MSGDMP('E','SGLNZV','LINE INDEX IS LESS THAN 0.')
13      END IF
14
15      CALL SZLNOP(INDEX)
16      CALL SZLNZV(VX1,VY1,VX2,VY2)
17      CALL SZLNCL
18
19      END
20