Previous: fitvbv Up: ../plot79_f.html Next: fitvcm

FITVCL

       SUBROUTINE  FITVCL (NDP, XD, YD, NCP, IPC, IERROR)
 C$    (ALG526 - Internal Closest Data Point)
 C$
 C$    This  subroutine  selects  several  data  points  that  are
 C$    closest to each  of the data  point.  The input  parameters
 C$    are
 C$
 C$    NDP............Number of data points,
 C$    XD(*),YD(*)....Arrays of dimension NDP containing the X and
 C$                   Y coordinates of the data points,
 C$    NCP............Number of data points closest to each data
 C$                   point.
 C$
 C$    The output parameters are:
 C$
 C$    IPC(*).........INTEGER array of  dimension  NCP*NDP,  where
 C$                   the point numbers of NCP data points closest
 C$                   to each of  the NDP  data points  are to  be
 C$                   stored.
 C$    IERROR.........0 (Normal return)
 C$                   1  (Abnormal  return.   A  message  will  be
 C$                   printed  giving  all   the  arguments,   and
 C$                   nothing more will be done)
 C$
 C$    This subroutine  arbitrarily sets  a restriction  that  NCP
 C$    must not exceed 25.
 C$
 C$    (03-APR-82)