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

CONSK

       SUBROUTINE  CONSK (ZE, MX,MY, NX,NY, IA,IB, JA,JB, Z0, FU, PL2)
 C$    (Single Complex Contour)
 C$    Trace out a single complex contour for a cross-section of a
 C$    complex array.  The arguments are:
 C$
 C$    ZE(NX,NY) Array of COMPLEX function values
 C$    (MX,MY)   Actual declared dimensions of ZE(*,*)
 C$    (IA,IB)   X-interval to be contoured
 C$    (JA,JB)   Y-interval to be contoured
 C$    Z0        Contour level sought
 C$    FU        CABS or CARG, according to contours desired
 C$    PL2       2-D pen movement subroutine, usually PL2CA
 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)