Previous: fitvcl Up: ../plot79_f.html Next: fitvgr

FITVCM

       SUBROUTINE  FITVCM (NDP, XD, YD, NCP, IPC, IERROR)
 C$    (ALG526 - (Modified) Internal Closest Data Point)
 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$    This version is similar to the original FITVCL adapted from
 C$    Algorithm 526 (IDCLDP).  The modifications to avoid  nearly
 C$    singular constellations  of  neighbors  were  added  by  A.
 C$    Preusser for use in Algorithm 626.
 C$    (21-AUG-85)