PARAMETER (NCOM=70,NUMC=8,NUMD=500,MAXLIN=4000,NUMZ=50,NEWZ=2500)
      PARAMETER (MAXPLT=4)
C
      COMMON / GRAF$PLCOMC / COMMAN(NCOM), TOKEN(NUMD), NTOKE, DONE,
     $  LINE,  LINE_LEN, SLINE,  FNAME,  VERSN,  DNAME,  DEFNAM, 
     $  ERRTXT(100), CDATE, QMSVERS, TMPFIL(MAXPLT), PGLAB, DEV,
     $  COLRS(9), BCOLOR
      COMMON / GRAF$PLCOM  / NYUK, LIVES(MAXPLT), ISUB, NSUB, LSUB,
     $  BUGGIN, LPRINT, QPRINT, WIDTH,  INGRAF, NUMERR, INITLD
      CHARACTER *(MAXLIN) LINE, SLINE
      CHARACTER *80 ERRTXT, FNAME, DNAME, DEFNAM
      CHARACTER *40 VERSN, CDATE, PGLAB
      CHARACTER *20 COMMAN, TOKEN
      CHARACTER *15 TMPFIL
      CHARACTER *8 COLRS, BCOLOR
      CHARACTER *6 QMSVERS
      CHARACTER *5 DEV
      LOGICAL DONE, LIVES, INGRAF, BUGGIN, LPRINT, QPRINT
C                                
C --- GRAF$PDATAC DUMPED FOR EACH SUBPLOT - CURRENT SIZE 1540
C
      COMMON / GRAF$PDATAC /    PTYPE, TITLE, STITLE(3), FIGURE,
     $  DCOLOR, COLOR(NUMC),   XLAB,  YLAB,      ZLAB, 
     $  LABEL(NUMC),    FIT(NUMC),     FONT,  LEGTXT,    TEXT(NUMC)
C
C --- GRAF$PDATA AVAILABLE TO HARDBALL, BUT NOT DUMPED FOR EACH SUBPLOT
C
      COMMON /GRAF$PDATA/  STX, STY,  STHITE, DSTAMP, TSTAMP,
     $  STANG, ROT(9), XSH(9), YSH(9), XSC(9), YSC(9), PLABY(4),
     $  PLHITE, BRDER, PAGEX,  PAGEY, THBORD
C
C --- GRAF$SDATA AVAILABLE TO HARDBALL; ALSO DUMPED FOR EACH SUBPLOT
C ---  CURRENT SIZE 124
C
      COMMON / GRAF$SDATA  /    LGRID,  THITE,  SHITE,  LLINE,
     $  XAXIS,  YAXIS,  LGEND,  XLOC,   YLOC,   XMIN,
     $  XMAX,   YMIN,   YMAX,   ICURVE, NCURVE, FRAMED, STACK,  NT,
     $  NDELTA, XOVER,  XMOVER, YOVER,  YMOVER, GMARG,  FIGY,
     $  HITEL,  NXTICS, CHITE,  FAC,    IXGRID, IYGRID, THGRID, ZHITE,  
     $  RAT(4), NYTICS, THKNES, XSHIFT, YSHIFT, ROTATE, ZOVER,  ZMOVER, 
     $  ZMN,    ZMX,    NZTICS, XVU,    YVU,    ZVU,    X3AXIS, Y3AXIS, 
     $  Z3AXIS, XSCALE, YSCALE, SHANG(8),       NARRAY(8),
     $  GARRAY(3,8),    IVEC,   RMULT,  LXINT,  LYINT,  SYHITE,  HARD, 
     $  LXLOG,  LYLOG,  LZINT,  SHADY,  XAXES,  NUMTXT, XTXT(8), 
     $  YTXT(8), FRMTHK, XENDS, YENDS, ADD
C                       
C --- GRAF$PDATAX DUMPED FOR EACH SUBPLOT - CURRENT SIZE 23265
C
      COMMON / GRAF$PDATAX / NXPTS(NUMC),    NYPTS(NUMC),    NZPTS,          
     $  ISYM(NUMC),     LTYPE(NUMC),    XMIN1(NUMC),    XMAX1(NUMC),
     $  YMIN1(NUMC),    YMAX1(NUMC),    X(NUMD,NUMC),   Y(NUMD,NUMC),   
     $  ZMN1(NUMZ),     ZMX1(NUMZ),     ZMAT(NUMZ,NUMZ),ZZ(NEWZ),       
     $  PMAT(NUMZ,NUMZ),PMIN(NUMZ),     PMAX(NUMZ),     XTO(NUMZ,NUMZ),
     $  YTO(NUMZ,NUMZ), ZP(NUMZ,NUMZ)   
C
      CHARACTER *80 TITLE, STITLE, TEXT
      CHARACTER *40 LABEL, XLAB, YLAB, ZLAB
      CHARACTER *28 FIGURE
      CHARACTER *21 LEGTXT
      CHARACTER *8 DCOLOR, COLOR, PTYPE
      CHARACTER *6 FONT
      CHARACTER *5 FIT                                     
C                         
      LOGICAL LGEND, LGRID, FRAMED, STACK, XOVER, XMOVER, ADD
      LOGICAL YOVER, YMOVER, ZOVER, ZMOVER, LXINT, YENDS
      LOGICAL LYINT, HARD, LXLOG, LYLOG, LZINT, SHADY, XAXES, XENDS
      LOGICAL DSTAMP, TSTAMP, BRDER