C
C     INCLUDE 'scropc.inc'
C     ------------------------------------------------------------------
      INTEGER JWAVE
      REAL HMIN,HMAX,VMIN,VMAX,WIDTH
      REAL H1A,H1B,H2A,H2B,V2A,V2B,V3A,V3B,H1OLD,H2OLD,V2OLD,V3OLD
      COMMON/SCROC/HMIN,HMAX,VMIN,VMAX,WIDTH,H1A,H1B,
     *             H2A,H2B,V2A,V2B,V3A,V3B,H1OLD,H2OLD,V2OLD,V3OLD,JWAVE
      SAVE /SCROC/
C     ------------------------------------------------------------------
C     HMIN, HMAX... Horizontal coordinates of the vertical boundaries of
C             the plotting area in the plot coordinates.
C             The leftmost 1/4 of the screen area is reserved for the
C             text output.
C     VMIN, VMAX... Vertical coordinates of the horizontal boundaries of
C             the plotting area in the plot coordinates.
C     WIDTH...Estimated thickness of the plotted line.
C     H1A,H1B,H2A,H2B,V2A,V2B,V3A,V3B... Auxiliary variables:
C             Coefficients of the linear functions projecting general
C             coordinates of a point on a ray to the plot coordinates.
C     H1OLD,H2OLD,V2OLD,V3OLD... Auxiliary variables: positions of the
C             projections of the last point of a ray to the screen in
C             plot coordinates.
C     JWAVE...Storage location for iwave mediated from the subroutine
C             SCRO1 to SCRO2.
C
C     Common block /SCROC/ is included in FORTRAN 77 source code file
C     'scropc.for'.
C
C Date: 1996, July 8
C Coded by Ludek Klimes
C
C=======================================================================
C