libsim Versione 7.2.1

◆ triangles_compute_r()

integer function triangles_compute_r ( real, dimension(:), intent(in)  xd,
real, 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 312 del file space_utilities.F90.

313call l4f_log(L4F_DEBUG,"end triangulation sort")
314
315 !
316 ! IF NECESSARY, MODIFIES THE ORDERING IN SUCH A WAY THAT THE
317 ! FIRST THREE DATA POINTS ARE NOT COLLINEAR.
318 !
319ar = dsq12*ratio
320x1 = co(ipmn1)%x
321y1 = co(ipmn1)%y
322dx21 = co(ipmn2)%x-x1

Generated with Doxygen.