libsim Versione 7.1.11
|
◆ geo_coordvect_init()
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.
Definizione alla linea 727 del file geo_coord_class.F90. 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
737 DO WHILE(.true.)
738 READ(u,*,END=10,ERR=20)lvsize,inu,inu,inu,inu,lname
739 READ(u,*,END=20,ERR=20)(inu,inu, i=1,lvsize)
740 ns = ns + 1
741 ENDDO
74210 CONTINUE
|