1*-----------------------------------------------------------------------
2*     HIGHER LEVEL APPLICATIONS
3*-----------------------------------------------------------------------
4*     UYAXLB : PLOT Y-AXIS (SPECIFY LABELS)
5*-----------------------------------------------------------------------
6*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
7*-----------------------------------------------------------------------
8      SUBROUTINE UYAXLB(CSIDE,UY1,N1,UY2,CH,NC,N2)
9
10      REAL      UY1(*),UY2(*)
11      CHARACTER CSIDE*1,CH(*)*(*)
12
13      LOGICAL   LABEL,LUYCHK
14
15
16      IF (.NOT.(LUYCHK(CSIDE))) THEN
17        CALL MSGDMP('E','UYAXLB','SIDE PARAMETER IS INVALID.')
18      END IF
19
20      CALL UYSOFF
21
22      CALL UYPAXS(CSIDE,2)
23
24      IF (N1.GE.1) THEN
25        CALL UYPTMK(CSIDE,1,UY1,N1)
26      END IF
27
28      IF (N2.GE.1) THEN
29        CALL UYPTMK(CSIDE,2,UY2,N2)
30        CALL UZLGET('LABELY'//CSIDE,LABEL)
31        IF (LABEL) THEN
32          CALL UYPLBL(CSIDE,1,UY2,CH,NC,N2)
33        END IF
34      END IF
35
36      CALL UYROFF
37
38      END
39