libsim Versione 7.2.1

◆ triangles_new()

type(triangles) function, public triangles_new ( integer, intent(in)  ndp)

initialize triangles

Restituisce
triangles to initialize
Parametri
[in]ndpnumber of station to triangulate

Definizione alla linea 280 del file space_utilities.F90.

281!!$call l4f_log(L4F_DEBUG,"end your")
282!!$print *, DSQMN, IPMN1, IPMN2
283
284dsq12 = dsqmn
285dmp%x = (co(ipmn1)%x+co(ipmn2)%x)/2.0
286dmp%y = (co(ipmn1)%y+co(ipmn2)%y)/2.0
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

Generated with Doxygen.