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

FITVGR

       SUBROUTINE  FITVGR (XD, YD, NT, IPT, NL, IPL, NXI, NYI, XI, YI,
      X     NGP, IGP)
 C$    (ALG526 - Internal Grid Points)
 C$    This subroutine organizes grid  points for surface  fitting
 C$    by sorting them in ascending order of triangle numbers  and
 C$    of the border  line segment number.   The input  parameters
 C$    are:
 C$
 C$    XD(*),YD(*)....Arrays of dimension NDP containing the X and
 C$                   Y coordinates of the data points, where  NDP
 C$                   is the number of the data points,
 C$    NT.............Number of triangles,
 C$    IPT(*).........INTEGER array of dimension 3*NT containing
 C$                   the point  numbers of  the vertexes  of  the
 C$                   triangles,
 C$    NL.............Number of border line segments,
 C$    IPL............INTEGER array of dimension 3*NL containing
 C$                   the point numbers of  the end points of  the
 C$                   border line  segments and  their  respective
 C$                   triangle numbers,
 C$    NXI............Number of grid points in the X coordinate,
 C$    NYI............Number of grid points in the Y coordinate,
 C$    XI(*),YI(*)....Arrays of dimension  NXI and NYI  containing
 C$                   the X and Y coordinates of the grid  points,
 C$                   respectively.
 C$
 C$    The output parameters are:
 C$
 C$    NGP(*).........INTEGER array of dimension 2*(NT+2*NL) where
 C$                   the number  of grid  points that  belong  to
 C$                   each of the triangles or of the border  line
 C$                   segments are to be stored,
 C$    IGP(*).........INTEGER array of dimension NXI*NYI where the
 C$                   grid point  numbers  are  to  be  stored  in
 C$                   ascending order of  the triangle number  and
 C$                   the border line segment number.
 C$
 C$    (03-APR-82)