libsim  Versione6.3.0

◆ triangles_compute_r()

integer function space_utilities::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 338 del file space_utilities.F90.

338 IF (jp /= 3) then
339  jpmx = jp
340  jp = jpmx+1
341  DO jpc=4,jpmx
342  jp = jp-1
343  iwp(jp) = iwp(jp-1)
344  end DO
345  iwp(3) = ip
346 end IF
347 call l4f_log(l4f_debug,"end triangulation collinear")

Generated with Doxygen.