libsim Versione 7.1.11
|
◆ triangles_compute_r()
Definizione alla linea 318 del file space_utilities.F90. 319ar = dsq12*ratio
320x1 = co(ipmn1)%x
321y1 = co(ipmn1)%y
322dx21 = co(ipmn2)%x-x1
323dy21 = co(ipmn2)%y-y1
324
325err=.true.
326DO jp=3,ndp
327 ip = iwp(jp)
328 IF (abs((co(ip)%y-y1)*dx21-(co(ip)%x-x1)*dy21) .GT. ar) then
|