libsim Versione 7.2.1

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

676 CALL raise_warning('oggetto geo_coordvect vuoto, non scrivo niente in '// &
677 trim(to_char(unitsim)))
678 ENDIF
679#ifdef HAVE_SHAPELIB
680ELSE IF (PRESENT(shphandle)) THEN
681 IF (PRESENT(nshp)) THEN
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, &

Generated with Doxygen.