C 
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.cfg.
C     MCOLOR..Maximum colour index.  Colours greater than MCOLOR are
C             replaced by KOLOR=MCOLOR.
C     KOLOR...Colour index set by the last invocation of subroutine
C             NEWPEN.  Initially set to KOLOR=0.
C     R,G,B...Arays containing the intensities of the red, blue and
C             green colour components (reals between 0 and 1).
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     HOLD... Character height set by the last invocation of subroutine
C             SYMBOL or NUMBER.  Initially set to HOLD=0.
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: 1998, August 12
C Coded by Ludek Klimes
C
C=======================================================================
C