libsim Versione 7.2.4
|
◆ geo_coordvect_getval()
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.
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
|