libsim Versione 7.2.1

◆ geo_coordvect_getval()

subroutine geo_coordvect_getval ( type(geo_coordvect), intent(in) this,
real(kind=fp_geo), dimension(:), optional, pointer lon,
real(kind=fp_geo), dimension(:), optional, pointer lat )
private

Restituisce il valore di uno o più componenti di un oggetto geo_coordvect.

Qualsiasi combinazione dei parametri opzionali è consentita; se il tipo di coordinata richiesta non è stato inizializzato né calcolato, restituisce il corrispondente valore mancante. Se forniti, i parametri lon, lat, utme, utmn devono essere dichiarati come puntatori che vengono allocati dalla getval stessa e che devono poi essere deallocati esplicitamente dal programma chiamante.

Parametri
[in]thisoggetto di cui restituire i componenti
lonlongitudine geografica
latlatitudine geografica

Definizione alla linea 760 del file geo_coord_class.F90.

761#ifdef HAVE_SHAPELIB
762 shphandle = shpopen(trim(shpfile), 'rb')
763 IF (shpfileisnull(shphandle)) THEN
764 CALL raise_error('Impossibile aprire lo shapefile '//trim(shpfile))
765 RETURN
766 ENDIF
767 CALL shpgetinfo(shphandle, ns, shptype, minb, maxb, dbfnf, dbfnr) ! Ottengo le info sul file
768 IF (ns > 0) THEN ! Alloco e leggo il mio oggetto
769 ALLOCATE(this(ns))
770 this(:)%vtype = shptype
771 DO i = 1, ns
772 CALL import(this(i), shphandle=shphandle, nshp=i-1)
773 ENDDO
774 ENDIF
775 CALL shpclose(shphandle)
776 RETURN
777#endif

Generated with Doxygen.