libsim  Versione6.3.0

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

306  end DO
307  its = iwp(jp1)
308  iwp(jp1) = iwp(jpmn)
309  iwp(jpmn) = its
310  wk(jpmn) = wk(jp1)
311 end DO
312 
313 call 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  !
319 ar = dsq12*ratio
320 x1 = co(ipmn1)%x

Generated with Doxygen.