|
◆ geo_coord_getval()
elemental subroutine geo_coord_class::geo_coord_getval |
( |
type(geo_coord), intent(in) |
this, |
|
|
real(kind=fp_geo), intent(out), optional |
lon, |
|
|
real(kind=fp_geo), intent(out), optional |
lat, |
|
|
integer(kind=int_l), intent(out), optional |
ilon, |
|
|
integer(kind=int_l), intent(out), optional |
ilat |
|
) |
| |
Restituisce il valore di uno o più componenti di un oggetto geo_coord.
Qualsiasi combinazione dei parametri opzionali è consentita; se il tipo di coordinata richiesta non è stato inizializzato né calcolato, restituisce il corrispondente valore mancante.
- Parametri
-
[in] | this | oggetto di cui restituire i componenti |
[out] | lon | longitudine geografica |
[out] | lat | latitudine geografica |
[out] | ilon | integer longitudine geografica (nint(lon*1.e5) |
[out] | ilat | integer latitudine geografica (nint(lat*1.e5) |
Definizione alla linea 436 del file geo_coord_class.F90.
437 INQUIRE(unit, form=form) 438 IF (form == 'FORMATTED') THEN 439 read(unit,*) (this(i)%ilon,this(i)%ilat, i=1, SIZE(this)) 443 READ(unit) (this(i)%ilon,this(i)%ilat, i=1, SIZE(this)) 446 END SUBROUTINE geo_coord_vect_read_unit
|