Previous: fitvta Up: ../plot79_f.html First: filbx

FITVXC

       INTEGER FUNCTION  FITVXC (X, Y, I1, I2, I3, I4)
 C$    (ALG526 - Internal Exchange Triangles)
 C$    This function determines whether or not the exchange of two
 C$    triangles  is  necessary  on  the  basis  of  max-min-angle
 C$    criterion by C. L. Lawson.  The input parameters are:
 C$
 C$    X(*),Y(*)......Arrays containing the coordinates of the
 C$                   data points,
 C$    I1,I2,I3,I4....Point numbers of four points P1, P2, P3, and
 C$                   P4 that form a quadrilateral with P3 and  P4
 C$                   connected diagonally.
 C$
 C$    This function  returns an  INTEGER value  1 (one)  when  an
 C$    exchange is necessary, and 0 (zero) otherwise.
 C$
 C$    (03-APR-82)