libsim  Versione7.2.1

◆ geo_coord_dist()

real(kind=fp_geo) function geo_coord_class::geo_coord_dist ( type(geo_coord), intent(in)  this,
type(geo_coord), intent(in)  that 
)

Restituisce la distanza in m tra 2 oggetti geo_coord.

La distanza è calcolata approssimativamente ed è valida per piccoli angoli.

Parametri
[in]thisprimo punto
[in]thatsecondo punto
Restituisce
distanza in metri

Definizione alla linea 686 del file geo_coord_class.F90.

686  ! Creo l'oggetto shape inizializzandolo con il mio oggetto
687  shpobj = shpcreatesimpleobject(this%vtype, this%vsize, &
688  REAL(this%ll(1:this%vsize,1),kind=fp_d), &
689  REAL(this%ll(1:this%vsize,2),kind=fp_d))
690  IF (.NOT.shpisnull(shpobj)) THEN
691  ! Lo scrivo nello shapefile
692  i=shpwriteobject(shphandle, lnshp, shpobj)
693  CALL shpdestroyobject(shpobj)
694  ENDIF
695 #endif
696 ENDIF
697 

Generated with Doxygen.