*----------------------------------------------------------------------- * USPACK DRAW LABEL S.Sakai 99/10/09 *----------------------------------------------------------------------- SUBROUTINE USPLBL(CSIDE, ISLCT, POS, CH, NC, N) CHARACTER CSIDE*(*), CH(*)*(*), CS REAL POS(N) EXTERNAL LENZ NCS = LENZ(CSIDE) DO 100 I=1, NCS CS = CSIDE(I:I) CALL CUPPER(CS) IF(CS.EQ.'T' .OR. CS.EQ.'B' .OR. CS.EQ.'H') THEN IF(CS.EQ.'H') CS='U' CALL UXPLBL(CS, ISLCT, POS, CH, NC, N) ELSEIF(CS.EQ.'L' .OR. CS.EQ.'R' .OR. CS.EQ.'V') THEN IF(CS.EQ.'V') CS='U' CALL UYPLBL(CS, ISLCT, POS, CH, NC, N) ENDIF 100 CONTINUE END