1C*PGLAB -- write labels for x-axis, y-axis, and top of plot
2C%void cpglab(const char *xlbl, const char *ylbl, const char *toplbl);
3C+
4      SUBROUTINE PGLAB (XLBL, YLBL, TOPLBL)
5      CHARACTER*(*) XLBL, YLBL, TOPLBL
6C
7C Write labels outside the viewport. This routine is a simple
8C interface to PGMTXT, which should be used if PGLAB is inadequate.
9C
10C Arguments:
11C  XLBL   (input) : a label for the x-axis (centered below the
12C                   viewport).
13C  YLBL   (input) : a label for the y-axis (centered to the left
14C                   of the viewport, drawn vertically).
15C  TOPLBL (input) : a label for the entire plot (centered above the
16C                   viewport).
17C--
18C 11-May-1990 - remove unnecessary include - TJP.
19C-----------------------------------------------------------------------
20      CALL PGBBUF
21      CALL PGMTXT('T', 2.0, 0.5, 0.5, TOPLBL)
22      CALL PGMTXT('B', 3.2, 0.5, 0.5, XLBL)
23      CALL PGMTXT('L', 2.2, 0.5, 0.5, YLBL)
24      CALL PGEBUF
25      END
26