libsim  Versione 7.2.4

◆ geo_coord_read_unit()

subroutine geo_coord_class::geo_coord_read_unit ( type(geo_coord), intent(out)  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
[out]thisoggetto da leggere
[in]unitunità da cui leggere

Definizione alla linea 614 del file geo_coord_class.F90.

615  READ(unitsim,*,END=10)lvsize,lv1,lv2,lv3,lv4,lname
616  ALLOCATE(llon(lvsize+1), llat(lvsize+1))
617  ! Leggo il poligono
618  READ(unitsim,*)(llon(i),llat(i), i=1,lvsize)
619  ! Lo chiudo se necessario

Generated with Doxygen.