libsim  Versione7.2.6

◆ triangles_compute_d()

integer function space_utilities::triangles_compute_d ( double precision, dimension(:), intent(in)  XD,
double precision, dimension(:), intent(in)  YD,
type (triangles), intent(inout)  tri 
)
private
Parametri
[in]xdARRAY OF DIMENSION NDP CONTAINING THE X COORDINATES OF THE DATA POINTS
[in]ydARRAY OF DIMENSION NDP CONTAINING THE Y COORDINATES OF THE DATA POINTS.
[in,out]tricomputed triangles

Definizione alla linea 336 del file space_utilities.F90.

336  return
337 end if
338 IF (jp /= 3) then
339  jpmx = jp
340  jp = jpmx+1
341  DO jpc=4,jpmx
342  jp = jp-1
343  iwp(jp) = iwp(jp-1)
344  end DO
345  iwp(3) = ip

Generated with Doxygen.