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