libsim  Versione 7.2.4

◆ 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 322 del file space_utilities.F90.

323 dy21 = co(ipmn2)%y-y1
324 
325 err=.true.
326 DO jp=3,ndp
327  ip = iwp(jp)
328  IF (abs((co(ip)%y-y1)*dx21-(co(ip)%x-x1)*dy21) .GT. ar) then
329  err=.false.
330  exit
331  end IF
332 end DO

Generated with Doxygen.