libsim Versione 7.1.11

◆ geo_coord_dist()

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

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 681 del file geo_coord_class.F90.

682 lnshp = nshp
683 ELSE
684 lnshp = -1 ! -1 = append
685 ENDIF
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)

Generated with Doxygen.