libsim Versione 7.2.6
|
◆ geo_coord_dist()
Restituisce la distanza in m tra 2 oggetti geo_coord. La distanza è calcolata approssimativamente ed è valida per piccoli angoli.
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, &
|