|
◆ geo_coord_vect_read_unit()
subroutine 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
-
| this | oggetto da leggere |
[in] | unit | unità da cui leggere |
Definizione alla linea 629 del file geo_coord_class.F90.
629 DEALLOCATE(llon, llat) 631 10 CALL raise_error( 'nella lettura del file '//trim(to_char(unitsim))) 632 DEALLOCATE(llon, llat) 634 ELSE IF ( PRESENT(shphandle) .AND. PRESENT(nshp)) THEN 636 shpobj = shpreadobject(shphandle, nshp) 637 IF (.NOT.shpisnull(shpobj)) THEN 639 CALL init(this, lon= REAL(shpobj%padfx,kind=fp_geo), & 640 lat=real(shpobj%padfy,kind=fp_geo)) 641 this%vtype = shpobj%nshptype 642 CALL shpdestroyobject(shpobj)
|