


















      INTEGER      MAXEPSBUF, OUTOFRANGE, EPSUNIT
      PARAMETER    (MAXEPSBUF=79)
      PARAMETER    (OUTOFRANGE=999)
      PARAMETER    (EPSUNIT=57)

      CHARACTER    EPSBUF(MAXEPSBUF)
      INTEGER      EPSBUFCNT, EPSVECCNT, LINEWIDTH, PATHCOLOR
      REAL         OLDX, OLDY

      COMMON       /EPSCHR/ 
     +             EPSBUF

      COMMON       /EPSINT/ 
     +             EPSBUFCNT, EPSVECCNT, LINEWIDTH, PATHCOLOR

      COMMON       /EPSREA/ 
     +             OLDX, OLDY







