1*-----------------------------------------------------------------------
2*     BASIC ROUTINES
3*-----------------------------------------------------------------------
4*     UXPTMZ : PLOT TICKMARKS
5*-----------------------------------------------------------------------
6*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
7*-----------------------------------------------------------------------
8      SUBROUTINE UXPTMZ(UX,N,UPY,ROFFX,RTICK,INDEX)
9
10      REAL      UX(*)
11
12      LOGICAL   LCLIPZ
13
14
15      IF (N.LE.0) THEN
16        CALL MSGDMP('E','UXPTMZ','NUMBER OF POINTS IS INVALID.')
17      END IF
18      IF (INDEX.LE.0) THEN
19        CALL MSGDMP('E','UXPTMZ','LINE INDEX IS INVALID.')
20      END IF
21
22      CALL SGLGET('LCLIP',LCLIPZ)
23      CALL SGLSET('LCLIP',.FALSE.)
24
25      CALL SZLNOP(INDEX)
26      DO 10 I=1,N
27        CALL STFTRF(UX(I),UPY,VPX,VPY)
28        VPY=VPY+ROFFX
29        CALL SZLNZV(VPX,VPY,VPX,VPY+RTICK)
30   10 CONTINUE
31      CALL SZLNCL
32
33      CALL SGLSET('LCLIP',LCLIPZ)
34
35      END
36