libsim Versione 7.2.0
|
◆ geo_coord_vect_read_unit()
Legge da un'unità di file il contenuto dell'oggetto this. Il record da leggere deve essere stato scritto con la ::write_unit e, nel caso this sia un vettore, la lunghezza del record e quella del vettore devono essere accordate. Il metodo controlla se il file è aperto per un I/O formattato o non formattato e fa la cosa giusta.
Definizione alla linea 618 del file geo_coord_class.F90. 619 ! Lo chiudo se necessario
620 IF (llon(1) /= llon(lvsize) .OR. llat(1) /= llat(lvsize)) THEN
621 lvsize = lvsize + 1
622 llon(lvsize) = llon(1)
623 llat(lvsize) = llat(1)
624 ENDIF
625 ! Lo inserisco nel mio oggetto
626 CALL init(this, lon=llon(1:lvsize), lat=llat(1:lvsize))
627 this%vtype = geo_coordvect_polygon ! Sempre un poligono
628
629 DEALLOCATE(llon, llat)
630 RETURN
63110 CALL raise_error('nella lettura del file '//trim(to_char(unitsim)))
632 DEALLOCATE(llon, llat) ! End of file, ritorno un oggetto non assegnato
633#ifdef HAVE_SHAPELIB
|