libsim  Versione6.3.0

◆ triangles_compute_d()

integer function space_utilities::triangles_compute_d ( double precision, dimension(:), intent(in)  XD,
double precision, dimension(:), intent(in)  YD,
type (triangles), intent(inout)  tri 
)
private
Parametri
[in]xdARRAY OF DIMENSION NDP CONTAINING THE X COORDINATES OF THE DATA POINTS
[in]ydARRAY OF DIMENSION NDP CONTAINING THE Y COORDINATES OF THE DATA POINTS.
[in,out]tricomputed triangles

Definizione alla linea 351 del file space_utilities.F90.

351  ! TEXES OF THE TRIANGLE IN THE IPT ARRAY, AND STORES POINT NUM-
352  ! BERS OF THE BORDER LINE SEGMENTS AND THE TRIANGLE NUMBER IN
353  ! THE IPL ARRAY.
354  !
355 ip1 = ipmn1
356 ip2 = ipmn2
357 ip3 = iwp(3)
358 IF (side(co(ip1),co(ip2),co(ip3)) < 10.0) then
359  ip1 = ipmn2
360  ip2 = ipmn1

Generated with Doxygen.