libsim Versione 7.1.11
|
◆ 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 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)
|