libsim Versione 7.1.11
|
◆ triangles_new()
initialize triangles
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 !
292jp1 = 2
293DO 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))
298end DO
299DO jp1=3,ndpm1
300 dsqmn = wk(jp1)
301 jpmn = jp1
|