libsim  Versione 7.1.7

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

287  !
288  ! SORTS THE OTHER (NDP-2) DATA POINTS IN ASCENDING ORDER OF
289  ! DISTANCE FROM THE MIDPOINT AND STORES THE SORTED DATA POINT
290  ! NUMBERS IN THE IWP ARRAY.
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

Generated with Doxygen.