Previous: fitvcm Up: ../plot79_f.html Next: fitvlc
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)