Previous: consa Up: ../plot79_c.html Next: consc3

CONSC

       SUBROUTINE  CONSC (ZE, MX,MY, NX,NY, IA,IB, JA,JB, Z0, XF,YF, PL2)
 C$    (Single Contour)
 C$    A general purpose subroutine which may be used to  generate
 C$    simple contours, or contours  of orthographic relief.   The
 C$    arguments are:
 C$
 C$    ZE(NX,NY) Array of function values
 C$    (MX,MY)   Actual declared dimension of Z(*,*)
 C$    (IA,IB)   X-interval to be contoured
 C$    (JA,JB)   Y-interval to be contoured
 C$    Z0        Contour level sought
 C$    (XF,YF)   Lighting direction for orthographic relief.
 C$              XF and YF represent the surface tip in the
 C$              X and Y directions in a single cell of the grid.
 C$    PL2       2-D pen movement subroutine
 C$
 C$    An in principle meaningless request for a "contour" with Z0
 C$    = ZE(I,J) for  some region  (I,J) will  result in  contours
 C$    which are  single points  at the  grid points.   This  can,
 C$    however, be used to advantage, either as a signal of a flat
 C$    region, or to indicate  missing data points.  For  example,
 C$    if all meaningful ZE(*,*) values are non-negative,  missing
 C$    ones could  be given  the value  -1.0, and  then a  contour
 C$    request with Z0 = -1.0 would mark them all with dots.
 C$
 C$    Note: The intervals (IA,IB) and (JA,JB) must not exceed the
 C$    dimensions of EMPTY(*,*,*) below.  These are currently  set
 C$    at 50.
 C$    (13-FEB-85)