1*-----------------------------------------------------------------------
2*     USPACK DRAW NUMBER LABEL                        S.Sakai  99/10/09
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE USPNUM(CSIDE, ISLCT, POS, N)
7
8      CHARACTER  CSIDE*(*), CS
9      REAL       POS(N)
10      EXTERNAL   LENZ
11
12      NCS = LENZ(CSIDE)
13      DO 100 I=1, NCS
14        CS = CSIDE(I:I)
15        CALL CUPPER(CS)
16
17        IF(CS.EQ.'T' .OR. CS.EQ.'B' .OR. CS.EQ.'H') THEN
18          IF(CS.EQ.'H') CS='U'
19          CALL UXPNUM(CS, ISLCT, POS, N)
20
21        ELSEIF(CS.EQ.'L' .OR. CS.EQ.'R' .OR. CS.EQ.'V') THEN
22          IF(CS.EQ.'V') CS='U'
23          CALL UYPNUM(CS, ISLCT, POS, N)
24        ENDIF
25
26  100 CONTINUE
27
28      END
29