libsim Versione 7.1.11
|
◆ 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 766 del file geo_coord_class.F90. 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
778ENDIF
779
780END SUBROUTINE geo_coordvect_importvect
781
782
|