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