Previous: consc Up: ../plot79_c.html Next: consk

CONSC3

       SUBROUTINE  CONSC3 (ZE, MX,MY, NX,NY, IA,IB, JA,JB, Z0, XF,YF,
      X                    PL3)
 C$    (Single 3-D 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.  XF
 C$              and YF represent the surface  tip in the X and  Y
 C$              directions in a single cell of the grid.
 C$    PL3       3-D pen movement subroutine, perhaps PL3CA.
 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)