libsim Versione 7.2.1

◆ geo_coordvect_init()

recursive subroutine geo_coordvect_init ( type(geo_coordvect), intent(out)  this,
real(kind=fp_geo), dimension(:), intent(in), optional  lon,
real(kind=fp_geo), dimension(:), intent(in), optional  lat 
)

Costruisce un oggetto geo_coordvect con i parametri opzionali forniti.

Se sono presenti lon e lat, inizializza le coordinate geografiche ignorando utme e utmn, mentre se sono specificati utme e utmn succede il contrario; non è possibile specificare le coordinate in entrambi i sistemi, usare eventualmente to_geo. Se non viene passato nessun parametro opzionale l'oggetto è inizializzato a valore mancante. Il numero di punti dell'oggetto finale sarà uguale all'estensione del più breve vettore della coppia fornita.

Parametri
[out]thisoggetto da inizializzare
[in]lonlongitudine geografica
[in]latlatitudine geografica

Definizione alla linea 721 del file geo_coord_class.F90.

722
723REAL(kind=fp_geo) :: inu
724REAL(kind=fp_d) :: minb(4), maxb(4)
725INTEGER :: i, u, ns, lvsize, shptype, dbfnf, dbfnr
726CHARACTER(len=40) :: lname
727#ifdef HAVE_SHAPELIB
728TYPE(shpfileobject) :: shphandle
729#endif
730
731NULLIFY(this)
732
733IF (PRESENT(shpfilesim)) THEN
734 u = getunit()
735 OPEN(u, file=shpfilesim, status='old', err=30)
736 ns = 0 ! Conto il numero di shape contenute

Generated with Doxygen.