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