libsim Versione 7.2.4
|
◆ triangles_compute_d()
Definizione alla linea 325 del file space_utilities.F90. 326DO 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
332end DO
333if (err) then
334 call l4f_log(l4f_debug,"CONTNG - ALL COLLINEAR DATA POINTS")
335 contng_simc=2
|