libsim  Versione6.3.0

◆ geo_coord_getval()

elemental subroutine 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]thisoggetto di cui restituire i componenti
[out]lonlongitudine geografica
[out]latlatitudine geografica
[out]iloninteger longitudine geografica (nint(lon*1.e5)
[out]ilatinteger latitudine geografica (nint(lat*1.e5)

Definizione alla linea 436 del file geo_coord_class.F90.

436 
437 INQUIRE(unit, form=form)
438 IF (form == 'FORMATTED') THEN
439  read(unit,*) (this(i)%ilon,this(i)%ilat, i=1,SIZE(this))
440 !TODO bug gfortran compiler !
441 !missing values are unredeable when formatted
442 ELSE
443  READ(unit) (this(i)%ilon,this(i)%ilat, i=1,SIZE(this))
444 ENDIF
445 
446 END SUBROUTINE geo_coord_vect_read_unit
447 

Generated with Doxygen.