libsim Versione 7.2.0

◆ triangles_delete()

subroutine triangles_delete ( type(triangles)  this)
private

delete triangles

Parametri
thistriangles to delete

Definizione alla linea 300 del file space_utilities.F90.

301 jpmn = jp1
302 DO jp2=jp1,ndp
303 IF (wk(jp2) .GE. dsqmn) cycle
304 dsqmn = wk(jp2)
305 jpmn = jp2
306 end DO
307 its = iwp(jp1)
308 iwp(jp1) = iwp(jpmn)

Generated with Doxygen.