libsim  Versione7.2.1

◆ triangles_new()

type(triangles) function, public space_utilities::triangles_new ( integer, intent(in)  ndp)

initialize triangles

Restituisce
triangles to initialize
Parametri
[in]ndpnumber of station to triangulate

Definizione alla linea 291 del file space_utilities.F90.

291  !
292 jp1 = 2
293 DO ip1=1,ndp
294  IF (ip1.EQ.ipmn1 .OR. ip1.EQ.ipmn2) cycle
295  jp1 = jp1+1
296  iwp(jp1) = ip1
297  wk(jp1) = vdsqf(dmp,co(ip1))
298 end DO
299 DO jp1=3,ndpm1
300  dsqmn = wk(jp1)
301  jpmn = jp1
302  DO jp2=jp1,ndp
303  IF (wk(jp2) .GE. dsqmn) cycle
304  dsqmn = wk(jp2)
305  jpmn = jp2

Generated with Doxygen.