libsim  Versione 7.1.9

◆ geo_coord_vect_read_unit()

subroutine geo_coord_class::geo_coord_vect_read_unit ( type(geo_coord), dimension(:)  this,
integer, intent(in)  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.

Parametri
thisoggetto da leggere
[in]unitunità da cui leggere

Definizione alla linea 624 del file geo_coord_class.F90.

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
631 10 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
634 ELSE IF (PRESENT(shphandle) .AND. PRESENT(nshp)) THEN
635  ! Leggo l'oggetto shape
636  shpobj = shpreadobject(shphandle, nshp)
637  IF (.NOT.shpisnull(shpobj)) THEN
638  ! Lo inserisco nel mio oggetto
639  CALL init(this, lon=real(shpobj%padfx,kind=fp_geo), &

Generated with Doxygen.