C-----------------------------------------------------------------------
C PGPLOT: common block definition.
C-----------------------------------------------------------------------
C General parameters:
C
C IDENT   GRPCKG plot identifier from call to GROPEN, set in PGBEGIN.
C PGOPEN  =0 if PGBEGIN has not been called; =1 between call of
C         PGBEGIN and PGEND. Set to 1 by PGBEGIN and set to 0 by
C         PGEND. Assumed to be initialized to 0 by compiler.
C ADVSET  Set to 0 by PGBEGIN, set to 1 by PGPAGE; used to suppress
C         the prompt for the first page.
C NX      Number of x subdivisions (= argument of PGBEGIN).
C NY      Number of y subdivisions (= argument of PGBEGIN).
C NXC     Ordinal number of current X subdivision.
C NYC     Ordinal number of current Y subdivision (NXC and NYC are
C         initialized by PGBEGIN and adjusted by PGENV).
C XPERIN  Plot x scale in dots/inch, initialized by PGBEGIN.
C YPERIN  Plot y scale in dots/inch, initialized by PGBEGIN.
C XSP     Character X spacing (dots), initialized by PGBEGIN.
C YSP     Character Y spacing (dots), initialized by PGBEGIN.
C XSZ     X dimension of subpage (dots), initialized by PGBEGIN.
C YSZ     Y dimension of subpage (dots), initialized by PGBEGIN.
C TRANS   Transformation matrix for contour plots; copied
C         from argument list by PGCONT and used by PGCP.
C PROMPT  If .TRUE., ask user before clearing page; set by PGASK
C         and (indirectly) by PGBEGIN, used in PGENV.
C FLUSH   Not used.
C PGFAS   Fill-area Style attribute value.
C PGCHSZ  Character Height attribute value.
C PGBLEV  Buffering level: incremented by PGBBUF, decremented by
C         PGEBUF.
C PGPS    Not used.
C
C Viewport parameters (all are absolute [device] coordinates):
C
C XOFF    X coordinate of blc of viewport.
C YOFF    Y coordinate of blc of viewport.
C XVP     X coordinate of blc of viewport, relative to blc of subpage.
C YVP     Y coordinate of blc of viewport, relative to blc of subpage.
C XLEN    Width of viewport. 
C YLEN    Height of viewport.
C
C Scaling parameters:
C
C XORG    Absolute coordinate value corresponding to world X=0.
C YORG    Absolute coordinate value corresponding to world Y=0.
C XSCALE  Scale in x (absolute units per world coordinate unit).
C YSCALE  Scale in y (absolute units per world coordinate unit).
C
C Window parameters (all are world coordinate values):
C
C XBLC    X at blc of box.
C XTRC    X at trc of box.
C YBLC    Y at blc of box.
C YTRC    Y at trc of box.
C-----------------------------------------------------------------------
      INTEGER IDENT,PGOPEN,ADVSET,NX,NY,NXC,NYC, PGFAS, PGBLEV
      REAL    XPERIN,YPERIN,XSP,YSP,XSZ,YSZ
      REAL    XVP,YVP,XOFF,YOFF,XLEN,YLEN,XORG,YORG
      REAL    XSCALE,YSCALE,XBLC,XTRC,YBLC,YTRC,TRANS(6),PGCHSZ
      LOGICAL PROMPT,FLUSH,PGPS
      COMMON  /PGPLT1/ IDENT,PGOPEN,ADVSET,NX,NY,NXC,NYC,
     1        XPERIN,YPERIN,XSP,YSP,XSZ,YSZ,
     2        XVP,YVP,XOFF,YOFF,XLEN,YLEN,XORG,YORG,
     3        XSCALE,YSCALE,XBLC,XTRC,YBLC,YTRC,TRANS,
     4        PROMPT,FLUSH,PGFAS,PGCHSZ,PGBLEV,PGPS
      SAVE    /PGPLT1/
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
C            Include file for GRPCKG
C Modifications:
C   29-Jan-1985 - add HP2648 (KS/TJP).
C   16-Sep-1985 - remove tabs (TJP).
C   30-Dec-1985 - add PS, VPS (TJP).
C   27-May-1987 - remove ARGS, NULL, PS, VPS, QMS, VQMS, HIDMP,
C                 HP7221, GRINL (TJP).
C    6-Jun-1987 - remove PRTX, TRILOG, VERS, VV (TJP).
C   11-Jun-1987 - remove remaining built-in devices (TJP).
C    5-Jul-1987 - replace GRINIT, GRPLTD by GRSTAT.
C   16-Aug-1987 - remove obsolete variables.
C    9-Sep-1989 - add SAVE statement.
C-----------------------------------------------------------------------
C
C Parameters:
C   GRIMAX : maximum number of concurrent devices
C   GRFNMX : maximum length of file names
C   GRCXSZ : default width of chars (pixels)
C   GRCYSZ : default height of chars (pixels)
C   GRCXSP : default x-spacing of chars (pixels)
C   GRCYSP : default y-spacing of chars (pixels)
C
      INTEGER   GRIMAX, GRFNMX
      REAL      GRCXSZ, GRCYSZ, GRCXSP, GRCYSP
      PARAMETER (GRIMAX = 3)
      PARAMETER (GRFNMX = 90)
      PARAMETER (GRCXSZ =  7.0, GRCYSZ =  9.0)
      PARAMETER (GRCXSP = 10.0, GRCYSP = 13.0)
C
C Common blocks:
C   GRCIDE : identifier of current plot
C   GRCTYP : device type of current plot
C   GRGTYP : =0 for hardwired device, >0 for GEDRIVER device.
C The following are qualified by a plot id:
C   GRSTAT : 0 => workstation closed
C            1 => workstation open
C            2 => picture open
C   GRPLTD :
C   GRDASH : software dashing in effect?
C   GRUNIT : unit associated with id
C   GRFNLN : length of filename
C   GRTYPE : device type
C   GRXMXA : x size of plotting surface
C   GRYMXA : y size of plotting surface
C   GRXMIN : blc of plotting window
C   GRYMIN : ditto
C   GRXMAX : trc of plotting window
C   GRYMAX : ditto
C   GRSTYL : line style (integer code)
C   GRWIDT : line width (integer code)
C   GRCCOL : current color index (integer code)
C   GRCMRK : marker number
C   GRXPRE : previous (current) pen position (x)
C   GRYPRE : ditto (y)
C   GRXORG : transformation variables (GRTRAN)
C   GRYORG : ditto
C   GRXSCL : ditto
C   GRYSCL : ditto
C   GRCSCL : character scaling factor
C   GRCFAC :
C   GRCFNT : character font
C   GRFILE : file name (character)
C   GRPXPI : pixels per inch in x
C   GRPYPI : pixels per inch in y
C
      INTEGER   GRCIDE, GRCTYP, GRGTYP
      LOGICAL   GRPLTD(GRIMAX), GRDASH(GRIMAX)
      INTEGER   GRSTAT(GRIMAX)
      INTEGER   GRUNIT(GRIMAX), GRFNLN(GRIMAX), GRTYPE(GRIMAX),
     1          GRXMXA(GRIMAX), GRYMXA(GRIMAX), GRXMIN(GRIMAX),
     2          GRYMIN(GRIMAX), GRXMAX(GRIMAX), GRYMAX(GRIMAX),
     3          GRSTYL(GRIMAX), GRWIDT(GRIMAX), GRCCOL(GRIMAX),
     4          GRCMRK(GRIMAX), GRIPAT(GRIMAX), GRCFNT(GRIMAX)
      REAL      GRXPRE(GRIMAX), GRYPRE(GRIMAX), GRXORG(GRIMAX),
     1          GRYORG(GRIMAX), GRXSCL(GRIMAX), GRYSCL(GRIMAX),
     2          GRCSCL(GRIMAX), GRCFAC(GRIMAX), GRPOFF(GRIMAX),
     3          GRPATN(GRIMAX,8),GRPXPI(GRIMAX),GRPYPI(GRIMAX)
      COMMON /GRCM00/ GRCIDE, GRCTYP, GRGTYP, GRSTAT, GRPLTD, GRUNIT,
     1                GRFNLN, GRTYPE, GRXMXA, GRYMXA, GRXMIN, GRYMIN,
     2                GRXMAX, GRYMAX, GRWIDT, GRCCOL, GRSTYL, 
     3                GRXPRE, GRYPRE, GRXORG, GRYORG, GRXSCL, GRYSCL,
     4                GRCSCL, GRCFAC, GRDASH, GRPATN, GRPOFF,
     5                GRIPAT, GRCFNT, GRCMRK, GRPXPI, GRPYPI
C
      CHARACTER*(GRFNMX) GRFILE(GRIMAX)
      COMMON /GRCM01/ GRFILE
      SAVE /GRCM00/, /GRCM01/
C-----------------------------------------------------------------------
