C     INCLUDE 'calcops.inc'
C     ------------------------------------------------------------------
      INTEGER LUCFG,MCOLOR,KOLOR
      PARAMETER (LUCFG=97,MCOLOR=255)
      REAL R(0:MCOLOR),G(0:MCOLOR),B(0:MCOLOR)
      REAL SCALE,STARTX,STARTY,XOLD,YOLD,HOLD,B1,B2,B3,B4
      PARAMETER (SCALE=72/2.54)
      COMMON/PLOTC/ KOLOR,R,G,B,STARTX,STARTY,XOLD,YOLD,HOLD,B1,B2,B3,B4
      SAVE /PLOTC/
C     ------------------------------------------------------------------
C     LUCFG...Logical unit number of the CalComp configuration file
C             calcomp.lst.
C     STARTX,STARTY... Origin of CalComp coordinates in world
C             coordinates.
C     XOLD,YOLD... Point referred during the previous invocation of a
C             CalComp subroutine, in CalComp coordinates.
C     B1,B2,B3,B4... Bounding box.
C
C     Common block /PLOTC/ is included in FORTRAN 77 source code file
C     'calcops.for'.
C
C Date: 1996, July 8
C Coded by Ludek Klimes
C
C=======================================================================
C