libsim Versione 7.2.1
|
◆ triangles_compute_r()
Definizione alla linea 312 del file space_utilities.F90. 313call 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 !
319ar = dsq12*ratio
320x1 = co(ipmn1)%x
321y1 = co(ipmn1)%y
322dx21 = co(ipmn2)%x-x1
|